delphi6函数大全Word下载.docx

delphi6函数大全Word下载.docx

《delphi6函数大全Word下载.docx》由会员分享，可在线阅读，更多相关《delphi6函数大全Word下载.docx（32页珍藏版）》请在冰豆网上搜索。

AnsiResemblesText（Edit1.Text, 

Edit2.Text）;

━━━━━━━━━━━━━━━━━━━━━

AnsiContainsText（const 

ASubText:

返回字符串AText是否包含子串ASubText

StrUtils.AnsiUppercase;

StrUtils.AnsiPos

AnsiContainsText（Edit1.Text, 

━━━━━━━━━━━━━━━━━━━━━ 

AnsiStartsText（const 

ASubText, 

AText:

返回字符串AText是否以子串ASubText开头

Windows.CompareString

AnsiStartsText（Edit1.Text, 

AnsiEndsText（const 

返回字符串AText是否以子串ASubText结尾

AnsiEndsText（Edit1.Text, 

AnsiReplaceText（const 

AFromText, 

AToText:

string;

返回字符串AText中用子串AFromText替换成子串AToText的结果

SysUtils.StringReplace;

type 

SysUtils.TReplaceFlags

Edit4.Text 

AnsiReplaceText（Edit1.Text, 

Edit2.Text, 

Edit3.Text）;

AnsiMatchText（const 

const 

AValues:

array 

of 

返回字符串数组AValues中是否包含字符串AText

StrUtils.AnsiIndexText

AnsiMatchText（Edit1.Text, 

[’a1’, 

’a2’, 

’a3’, 

’a4’]）;

AnsiIndexText（const 

Integer;

返回字符串AText在字符串数组AValues中的位置

不区分大小写;

如果不包含则返回-1

SysUtils.AnsiSameText

SpinEdit1.Value 

AnsiIndexText（Edit1.Text, 

AnsiContainsStr（const 

区分大小写

AnsiContainsStr（Edit1.Text, 

AnsiStartsStr（const 

SysUtils.AnsiSameStr

AnsiStartsStr（Edit1.Text, 

AnsiEndsStr（const 

AnsiEndsStr（Edit1.Text, 

AnsiReplaceStr（const 

AnsiReplaceStr（Edit1.Text, 

AnsiMatchStr（const 

StrUtils.AnsiIndexStr

AnsiMatchStr（Edit1.Text, 

AnsiIndexStr（const 

AnsiIndexStr（Edit1.Text, 

DupeString（const 

ACount:

Integer）:

返回字符串AText的ACount个复本

当ACount为0时返回’’

System.SetLength

Edit3.Text 

DupeString（Edit1.Text, 

SpinEdit1.Value）;

ReverseString（const 

返回字符串AText的反序

ReverseString（’1234’） 

’4321’

ReverseString（Edit1.Text）;

StuffString（const 

AStart, 

ALength:

Cardinal;

返回嵌套字符串

AStart:

嵌套开始位置;

嵌套长度;

StuffString（’abcd’, 

2, 

0, 

’12’） 

’a12bcd’

System.Copy

StuffString（Edit1.Text, 

SpinEdit1.Value, 

SpinEdit2.Value, 

RandomFrom（const 

overload;

随机返回字符串数组AValues中的一个元素

之前建议执行Randomize

System.Random

Randomize;

RandomFrom（[’a1’, 

IfThen（AValue:

ATrue:

AFalse:

string 

’’）:

返回指定的逻辑字符串

IfThen（True, 

’是’, 

’否’） 

’是’;

IfThen（False, 

’否’

NULL>

IfThen（CheckBox1.Checked, 

Edit1.Text, 

LeftStr（const 

返回字符串AText左边的ACount个字符

LeftStr（’123456’, 

3） 

’123’

LeftStr（Edit1.Text, 

RightStr（const 

返回字符串AText右边的ACount个字符

RightStr（’123456’, 

’456’

RightStr（Edit1.Text, 

MidStr（const 

返回字符串AText从AStart开始的ACount个字符

其实就是Copy

MidStr（Edit1.Text, 

SpinEdit2.Value）;

SearchBuf（Buf:

PChar;

BufLen:

SelStart, 

SelLength:

SearchString:

String;

Options:

TStringSearchOptions 

[soDown]）:

返回第一个搜索到的指针位置

这函数常用于文本中搜索字符串

///////Begin 

SearchBuf

SearchEdit（EditControl:

TCustomEdit;

SearchOptions:

TStringSearchOptions;

FindFirst:

Boolean 

False）:

var

Buffer, 

P:

Size:

Word;

begin

Result 

False;

if 

（Length（SearchString） 

0） 

then 

Exit;

Size 

EditControl.GetTextLen;

（Size 

Buffer 

StrAlloc（Size 

+ 

1）;

try

EditControl.GetTextBuf（Buffer, 

P 

SearchBuf（Buffer, 

Size, 

EditControl.SelStart, 

EditControl.SelLength,

SearchString, 

SearchOptions）;

nil 

EditControl.SelStart 

- 

Buffer;

EditControl.SelLength 

Length（SearchString）;

True;

end;

finally

StrDispose（Buffer）;

procedure 

TForm1.Button1Click（Sender:

TObject）;

SearchOptions 

[];

then

Include（SearchOptions, 

soDown）;

CheckBox2.Checked 

soMatchCase）;

CheckBox3.Checked 

soWholeWord）;

SearchEdit（Memo1, 

Memo1.SetFocus;

///////End 

Soundex（const 

TSoundexLength 

4）:

返回探测字符串

根据探测法（Soundex）可以找到相进的字符串;

http:

//www.nara.gov/genealogy/coding.html

Edit2.Text 

Soundex（Edit1.Text, 

SoundexInt（const 

TSoundexIntLength 

返回探测整数

ALength的值越大解码准确率越高

SpinEdit2.Value 

SoundexInt（Edit1.Text, 

DecodeSoundexInt（AValue:

返回探测整数的解码

DecodeSoundexInt（SoundexInt（’hello’）） 

相当于 

Soundex（’hello’）

DecodeSoundexInt（SpinEdit2.Value）;

SoundexWord（const 

返回探测文字数值

没有参数ALength已经固定为4

SoundexWord（Edit1.Text）;

DecodeSoundexWord（AValue:

Word）:

返回探测文字数值的解码

DecodeSoundexWord（SoundexWord（’hello’）） 

DecodeSoundexWord（SpinEdit2.Value）;

SoundexSimilar（const 

返回两个字符串的探测字符串是否相同

Soundex（AText, 

ALength） 

Soundex（AOther, 

ALength）

SoundexSimilar（Edit1.Text, 

SoundexCompare（const 

返回比较两个字符串的探测字符串的结果

AnsiCompareStr（Soundex（AText, 

ALength）, 

ALength））

SysUtils.AnsiCompareStr

SoundexCompare（Edit1.Text, 

SoundexProc（const 

调用SoundexSimilar返回两个字符串的探测字符串是否相同

系统变量AnsiResemblesProc的默认值

StrUtils.AnsiResemblesText

[var 

AnsiResemblesProc:

TCompareTextProc 

SoundexProc;

]

Languages:

TLanguages;

$[SysUtils.pas

返回系统语言对象

通过此函数可以得到系统的语言环境

SysUtils.TLanguages

Languages

I:

Memo1.Clear;

for 

I 

0 

to 

Languages.Count 

1 

do

Memo1.Lines.Add（Languages.Name[I]）;

AllocMem（Size:

Cardinal）:

Pointer;

返回一个指定大小Size的内存块

配合用FreeMem释放资源

System.GetMem

AllocMem

TForm1.Button1Click（Sen