Delphi字符串函數大全

作者：Eve Cole 更新時間：2025-02-18 13:36:02

uses StrUtils;【字符串函數大全】

首部function AnsiResemblesText(const AText, AOther: string): Boolean;

$[StrUtils.pas

功能返回兩個字符串是否相似

說明ANSI(American National Standards Institute)美國國家標準協會;不區分大小寫

參考function StrUtils.SoundexPRoc; var StrUtils.AnsiResemblesProc

例子CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);

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

首部function AnsiContainsText(const AText, ASubText: string): Boolean;

$[StrUtils.pas

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

說明不區分大小寫

參考function StrUtils.AnsiUppercase; function StrUtils.Ansipos

例子CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);

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

首部function AnsiStartsText(const ASubText, AText: string): Boolean;

$[StrUtils.pas

功能返回字符串AText是否以子串ASubText開頭

說明不區分大小寫

參考function Windows.CompareString

例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);

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

首部function AnsiEndsText(const ASubText, AText: string): Boolean;

$[StrUtils.pas

功能返回字符串AText是否以子串ASubText結尾

說明不區分大小寫

參考function Windows.CompareString

例子CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);

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

首部function AnsiReplaceText(const AText, AFromText, AToText: string):

string; $[StrUtils.pas

功能返回字符串AText中用子串AFromText替換成子串AToText的結果

說明不區分大小寫

參考function SysUtils.StringReplace; type SysUtils.TReplaceFlags

例子Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);

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

首部function AnsiMatchText(const AText: string; const AValues: array of

string): Boolean; $[StrUtils.pas

功能返回字符串數組AValues中是否包含字符串AText

說明不區分大小寫

參考function StrUtils.AnsiIndexText

例子CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3',

'a4']);

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

首部function AnsiIndexText(const AText: string; const AValues: array of

string): Integer; $[StrUtils.pas

功能返回字符串AText在字符串數組AValues中的位置

說明不區分大小寫;如果不包含則返回-1

參考function SysUtils.AnsiSameText

例子SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);

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

首部function AnsiContainsStr(const AText, ASubText: string): Boolean;

$[StrUtils.pas

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

說明區分大小寫

參考function StrUtils.AnsiPos

例子CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);

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

首部function AnsiStartsStr(const ASubText, AText: string): Boolean;

$[StrUtils.pas

功能返回字符串AText是否以子串ASubText開頭

說明區分大小寫

參考function SysUtils.AnsiSameStr

例子CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);

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

首部function AnsiEndsStr(const ASubText, AText: string): Boolean;

$[StrUtils.pas

功能返回字符串AText是否以子串ASubText結尾

說明區分大小寫

參考function SysUtils.AnsiSameStr

例子CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);

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

首部function AnsiReplaceStr(const AText, AFromText, AToText: string):

string; $[StrUtils.pas

功能返回字符串AText中用子串AFromText替換成子串AToText的結果

說明區分大小寫

參考function SysUtils.StringReplace; type SysUtils.TReplaceFlags

例子Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);

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

首部function AnsiMatchStr(const AText: string; const AValues: array of

string): Boolean; $[StrUtils.pas

功能返回字符串數組AValues中是否包含字符串AText

說明區分大小寫

參考function StrUtils.AnsiIndexStr

例子CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3',

'a4']);

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

首部function AnsiIndexStr(const AText: string; const AValues: array of

string): Integer; $[StrUtils.pas

功能返回字符串AText在字符串數組AValues中的位置

說明區分大小寫

參考function SysUtils.AnsiSameStr

例子SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);

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

首部function DupeString(const AText: string; ACount: Integer): string;

$[StrUtils.pas

功能返回字符串AText的ACount個複本

說明當ACount為0時返回''

參考function System.SetLength

例子Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);

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

首部function ReverseString(const AText: string): string; $[StrUtils.pas

功能返回字符串AText的反序

說明ReverseString('1234') = '4321'

參考function System.SetLength

例子Edit3.Text := ReverseString(Edit1.Text);

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

首部function StuffString(const AText: string; AStart, ALength: Cardinal;

const ASubText: string): string; $[StrUtils.pas

功能返回嵌套字符串

說明AStart:嵌套開始位置;ALength:嵌套長度;StuffString('abcd', 2, 0, '12') = 'a12bcd'

參考function System.Copy

例子Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value,

Edit2.Text);

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

首部function RandomFrom(const AValues: array of string): string; overload;

$[StrUtils.pas

功能隨機返回字符串數組AValues中的一個元素

說明之前建議執行Randomize

參考function System.Random

例子Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']);

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

首部function IfThen(AValue: Boolean; const ATrue: string; AFalse: string =

''): string; overload; $[StrUtils.pas

功能返回指定的邏輯字符串

說明IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否'

參考<NULL>

例子Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);

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

首部function LeftStr(const AText: string; const ACount: Integer): string;

$[StrUtils.pas

功能返回字符串AText左邊的ACount個字符

說明LeftStr('123456', 3) = '123'

參考function System.Copy

例子Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);

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

首部function RightStr(const AText: string; const ACount: Integer): string;

$[StrUtils.pas

功能返回字符串AText右邊的ACount個字符

說明RightStr('123456', 3) = '456'

參考function System.Copy

例子Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);

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

首部function MidStr(const AText: string; const AStart, ACount: Integer):

string; $[StrUtils.pas

功能返回字符串AText從AStart開始的ACount個字符

說明其實就是Copy

參考function System.Copy

例子Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);

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

首部function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength:

Integer; SearchString: String; Options: TStringSearchOptions = [soDown]):

PChar; $[StrUtils.pas

功能返回第一個搜索到的指針位置

說明這函數常用於文本中搜索字符串

參考<NULL>

例子

///////Begin SearchBuf

function SearchEdit(EditControl: TCustomEdit; const SearchString: String;

SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;

var

Buffer, P: PChar;

Size: Word;

begin

Result := False;

if (Length(SearchString) = 0) then Exit;

Size := EditControl.GetTextLen;

if (Size = 0) then Exit;

Buffer := StrAlloc(Size + 1);

try

EditControl.GetTextBuf(Buffer, Size + 1);

P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,

SearchString, SearchOptions);

if P <> nil then begin

EditControl.SelStart := P - Buffer;

EditControl.SelLength := Length(SearchString);

Result := True;

end;

finally

StrDispose(Buffer);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

SearchOptions: TStringSearchOptions;

begin

SearchOptions := [];

if CheckBox1.Checked then

Include(SearchOptions, soDown);

if CheckBox2.Checked then

Include(SearchOptions, soMatchCase);

if CheckBox3.Checked then

Include(SearchOptions, soWholeWord);

SearchEdit(Memo1, Edit1.Text, SearchOptions);

Memo1.SetFocus;

end;

///////End SearchBuf

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

首部function Soundex(const AText: string; ALength: TSoundexLength = 4):

string; $[StrUtils.pas

功能返回探測字符串

說明根據探測法(Soundex)可以找到相進的字符串;http://www.nara.gov/genealogy/coding.html

參考<NULL>

例子Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);

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

首部function SoundexInt(const AText: string; ALength: TSoundexIntLength =

4): Integer; $[StrUtils.pas

功能返回探測整數

說明ALength的值越大解碼準確率越高

參考<NULL>

例子SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value);

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

首部function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas

功能返回探測整數的解碼

說明DecodeSoundexInt(SoundexInt('hello')) 相當於Soundex('hello')

參考<NULL>

例子Edit2.Text := DecodeSoundexInt(SpinEdit2.Value);

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

首部function SoundexWord(const AText: string): Word; $[StrUtils.pas

功能返回探測文字數值

說明沒有參數ALength已經固定為4

參考<NULL>

例子SpinEdit2.Value := SoundexWord(Edit1.Text);

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

首部function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas

功能返回探測文字數值的解碼

說明DecodeSoundexWord(SoundexWord('hello')) 相當於Soundex('hello')

參考<NULL>

例子Edit2.Text := DecodeSoundexWord(SpinEdit2.Value);

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

首部function SoundexSimilar(const AText, AOther: string; ALength:

TSoundexLength = 4): Boolean; $[StrUtils.pas

功能返回兩個字符串的探測字符串是否相同

說明Result := Soundex(AText, ALength) = Soundex(AOther, ALength)

參考<NULL>

例子CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text,

SpinEdit1.Value);

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

首部function SoundexCompare(const AText, AOther: string; ALength:

TSoundexLength = 4): Integer; $[StrUtils.pas

功能返回比較兩個字符串的探測字符串的結果

說明Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther,

ALength))

參考function SysUtils.AnsiCompareStr

例子SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text,

SpinEdit1.Value);

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

首部function SoundexProc(const AText, AOther: string): Boolean;

$[StrUtils.pas

功能調用SoundexSimilar返回兩個字符串的探測字符串是否相同

說明系統變量AnsiResemblesProc的默認值

參考function StrUtils.AnsiResemblesText

例子[var AnsiResemblesProc: TCompareTextProc = SoundexProc;]

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

首部function NewStr(const S: string): PString; deprecated; $[SysUtils.pas

功能返回一個新的字符串指針地址

說明字符串S為空時返回NullStr

參考procedure System.New

例子

////////Begin NewStr,DisposeStr

procedure TForm1.Button1Click(Sender: TObject);

var

P: PString;

begin

P := NewStr(Edit1.Text);

Edit2.Text := P^;

DisposeStr(P);

end;

////////End NewStr,DisposeStr

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

首部procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas

功能釋放字符串指針P資源

說明配合函數NewStr使用

參考procedure System.Dispose

例子<如上參見,如下參見>

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

首部procedure AssignStr(var P: PString; const S: string); deprecated;

$[SysUtils.pas

功能將字符串S更新給字符串指針P

說明更新值時會釋放以前字符串指針的資源

參考function SysUtils.NewStr;function SysUtils.DisposeStr

例子

////////Begin AssignStr

procedure TForm1.Button1Click(Sender: TObject);

var

P: PString;

begin

P := nil;

AssignStr(P, Edit1.Text);

Edit2.Text := P^;

DisposeStr(P);

end;

////////End AssignStr

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

首部procedure AppendStr(var Dest: string; const S: string); deprecated;

$[SysUtils.pas

功能在字符串Dest後追加字符串S

說明相當於Dest := Dest + S;Delphi6已經不建議使用

參考<NULL>

例子

////////Begin AppendStr

procedure TForm1.Button1Click(Sender: TObject);

var

S: string;

begin

S := Edit2.Text;

AppendStr(S, Edit1.Text);

Edit2.Text := S;

end;

////////End AppendStr

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

首部function UpperCase(const S: string): string; $[SysUtils.pas

功能返回字符串S的大寫形式

說明非小寫字符不處理

參考procedure System.SetLength

例子Edit2.Text := UpperCase(Edit1.Text);

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

首部function LowerCase(const S: string): string; $[SysUtils.pas

功能返回字符串S的小寫形式

說明非大寫字符不處理

參考procedure System.SetLength

例子Edit2.Text := LowerCase(Edit1.Text);

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

首部function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas

功能返回比較兩個字符

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區分大小寫

參考<NULL>

例子SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text);

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

首部function CompareMem(P1, P2: Pointer; Length: Integer): Boolean;

assembler; $[SysUtils.pas

功能返回比較兩個內存指針

說明CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'),

PChar('12c'), 3)=False

參考<NULL>

例子CheckBox1.Checked := CompareMem(Self, Form1, 8);

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

首部function CompareText(const S1, S2: string): Integer; $[SysUtils.pas

功能返回比較兩個字符串

說明不區分大小寫

參考<NULL>

例子SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);

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

首部function SameText(const S1, S2: string): Boolean; $[SysUtils.pas

功能返回兩個字符串是否相等

說明不區分大小寫

參考<NULL>

例子CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);

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

首部function AnsiUpperCase(const S: string): string; $[SysUtils.pas

功能返回字符串S的大寫形式

說明ANSI(American National Standards Institute)美國國家標準協會;非小寫的字符不變

參考function Windows.CharUpperBuff

例子Edit2.Text := AnsiUpperCase(Edit1.Text);

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

首部function AnsiLowerCase(const S: string): string; $[SysUtils.pas

功能返回字符串S的小寫形式

說明非大寫字符不處理

參考function Windows.CharLowerBuff

例子Edit2.Text := AnsiLowerCase(Edit1.Text);

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

首部function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas

功能反回比較兩個字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區分大小寫

參考function Windows.CompareString

例子SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text);

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

首部function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas

功能返回兩個字符串是否相等

說明區分大小寫

參考function SysUtils.AnsiCompareStr

例子CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text);

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

首部function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas

功能反回比較兩個字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;不區分大小寫

參考function Windows.CompareString

例子SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text);

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

首部function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas

功能返回兩個字符串是否相等

說明不區分大小寫

參考function SysUtils.AnsiCompareText

例子CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text);

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

首部function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas

功能返回比較兩個指針字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區分大小寫

參考function System.CompareString

例子SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))

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

首部function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas

功能返回比較兩個指針字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;不區分大小寫;Ignore(忽略)

參考function Windows.CompareString

例子SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))

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

首部function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer;

$[SysUtils.pas

功能返回比較兩個指針字符串指定長度

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區分大小寫;Length(長度)

參考function Windows.CompareString

例子SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text),

SpinEdit2.Value)

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

首部function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer;

$[SysUtils.pas

功能返回比較兩個指針字符串指定長度

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;不區分大小寫

參考function Windows.CompareString

例子SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),

SpinEdit2.Value)

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

首部function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas

功能返回指針字符串小寫形式

說明非大寫字符不處理

參考function Windows.CharLower

例子Edit2.Text := AnsiStrLower(PChar(Edit1.Text));

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

首部function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas

功能返回指針字符串大寫形式

說明非小寫字符不處理

參考function Windows.CharUpper

例子Edit2.Text := AnsiStrUpper(PChar(Edit1.Text));

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

首部function AnsiLastChar(const S: string): PChar; $[SysUtils.pas

功能返回字符串S的最後一個指針字符

說明當字符串S為空串則返回空指針

參考function SysUtils.ByteType

例子Edit2.Text := AnsiLastChar(Edit1.Text);

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

首部function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas

功能返回指針字符串P的最後一個指針字符

說明當字符串P為空空指針則返回空指針

參考function SysUtils.ByteType

例子Edit2.Text := AnsiLastChar(PChar(Edit1.Text));

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

首部function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas

功能返回雙字節字符串的大寫形式

說明WideChar雙字節字符

參考function Windows.CharUpperBuffW

例子Edit2.Text := WideUpperCase(Edit1.Text);

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

首部function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas

功能返回雙字節字符串的小寫形式

說明我怎麼就測試不出來呢

參考function Windows.CharLowerBuffW

例子Edit2.Text := WideLowerCase(Edit1.Text);

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

首部function WideCompareStr(const S1, S2: WideString): Integer;

$[SysUtils.pas

功能返回比較兩個雙字節字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區分大小寫

參考function Windows.CompareStringW

例子SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text);

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

首部function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas

功能返回兩個雙字節字符串是否相同

說明區分大小寫

參考function SysUtils.WideCompareStr

例子CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text);

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

首部function WideCompareText(const S1, S2: WideString): Integer;

$[SysUtils.pas

功能返回比較兩個雙字節字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;不區分大小寫

參考function Windows.CompareStringW

例子SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);

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

首部function WideSameText(const S1, S2: WideString): Boolean;

$[SysUtils.pas

功能返回兩個雙字節字符串是否相同

說明不區分大小寫

參考function SysUtils.WideCompareText

例子CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);

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

首部function Trim(const S: string): string; overload; $[SysUtils.pas

首部function Trim(const S: WideString): WideString; overload;

$[SysUtils.pas

功能返回除去字符串S左右不可見字符

說明小於#32的字符看作不可見字符

參考function System.Copy

例子Edit2.Text := Trim(Edit1.Text);

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

首部function TrimLeft(const S: string): string; overload; $[SysUtils.pas

首部function TrimLeft(const S: WideString): WideString; overload;

$[SysUtils.pas

功能返回除去字符串S左邊不可見字符

說明小於#32的字符看作不可見字符

參考function System.Copy

例子Edit2.Text := TrimLeft(Edit1.Text);

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

首部function TrimRight(const S: string): string; overload; $[SysUtils.pas

首部function TrimRight(const S: WideString): WideString; overload;

$[SysUtils.pas

功能返回除去字符串S右邊不可見字符

說明小於#32的字符看作不可見字符

參考function System.Copy

例子Edit2.Text := TrimRight(Edit1.Text);

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

首部function QuotedStr(const S: string): string; $[SysUtils.pas

功能返回字符串S在pascal中的表現形式

說明單引號中的一個單引號將轉成兩個

參考procedure System.Insert

例子Edit2.Text := QuotedStr(Edit1.Text);

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

首部function AnsiQuotedStr(const S: string; Quote: Char): string;

$[SysUtils.pas

功能返回字符串S以字符Quote為引號的表現形式

說明AnsiQuotedStr('hello"world',

'@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"'

參考function SysUtils.AnsiStrScan

例子Edit2.Text := AnsiQuotedStr(Edit1.Text, '"');

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

首部function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;

$[SysUtils.pas

功能返回以字符Quote為引號的表現形式原形

說明表現形式非法時Src不變否則為空

參考function SysUtils.AnsiStrScan

例子

///////Begin AnsiExtractQuotedStr

procedure TForm1.Button1Click(Sender: TObject);

var

P: PChar;

begin

P := PChar(Edit1.Text);

Edit2.Text := AnsiExtractQuotedStr(P, '"');

Edit3.Text := P;

end;

///////End AnsiExtractQuotedStr

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

首部function AnsiDequotedStr(const S: string; AQuote: Char): string;

$[SysUtils.pas

功能返回以字符AQuote為引號的表現形式原形

說明表現形式非法時則返回S

參考function SysUtils.AnsiExtractQuotedStr

例子Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');

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

首部function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle =

{$IFDEF linux} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}):

string; $[SysUtils.pas

功能返回將給定字符串的行分隔符調整為CR/LF序列

說明

AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10 '2'#13#10

參考function SysUtils.StrNextChar

例子<NULL>

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

首部function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas

功能返回字符串Ident是否是正確的標識符

說明標識符::字母|下劃線[字母|下劃線|數字]...

參考<NULL>

例子CheckBox1.Checked := IsValidIdent(Edit1.Text);

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

首部function IntToStr(Value: Integer): string; overload; $[SysUtils.pas

首部function IntToStr(Value: Int64): string; overload; $[SysUtils.pas

功能返回整數Value轉換成字符串

說明Format('%d', [Value])

參考function SysUtils.FmtStr

例子Edit2.Text := IntToStr(SpinEdit1.Value);

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

首部function IntToHex(Value: Integer; Digits: Integer): string; overload;

$[SysUtils.pas

首部function IntToHex(Value: Int64; Digits: Integer): string; overload;

$[SysUtils.pas

功能返回整數Value轉換成十六進製表現結果;Format('%.*x', [Digits, Value])

說明參數Digits指定字符最小寬度;最小寬度不足時將用0填充

參考function SysUtils.FmtStr

例子Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value);

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

首部function StrToInt(const S: string): Integer; $[SysUtils.pas

功能返回字符串S轉換成整數

說明字符串非整數表達時將引起異常

參考procedure System.Val

例子SpinEdit1.Value := StrToInt(Edit1.Text);

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

首部function StrToIntDef(const S: string; Default: Integer): Integer;

$[SysUtils.pas

功能返回字符串S轉換成整數

說明字符串非整數表達時則返回默認值Default

參考procedure System.Val

例子SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);

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

首部function TryStrToInt(const S: string; out Value: Integer): Boolean;

$[SysUtils.pas

功能返回字符串S轉換成整數Value是否成功

說明字符串非整數表達時返回False並且Value將輸出為0

參考procedure System.Val

例子

///////Begin TryStrToInt

procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;

begin

CheckBox1.Checked := TryStrToInt(Edit1.Text, I);

SpinEdit1.Value := I;

end;

///////End TryStrToInt

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

首部function StrToInt64(const S: string): Int64; $[SysUtils.pas

功能返回字符串S轉換成六十四位整數

說明字符串非六十四位整數表達時將引起異常

參考procedure System.Val

例子SpinEdit1.Value := StrToInt64(Edit1.Text);

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

首部function StrToInt64Def(const S: string; const Default: Int64): Int64;

$[SysUtils.pas

功能返回字符串S轉換成六十四位整數

說明字符串非六十四位整數表達時則返回默認值Default

參考procedure System.Val

例子SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);

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

首部function TryStrToInt64(const S: string; out Value: Int64): Boolean;

$[SysUtils.pas

功能返回字符串S轉換成六十四位整數Value是否成功

說明字符串非六十四位整數表達時返回False並且Value將輸出為0

參考procedure System.Val

例子

///////Begin TryStrToInt64

procedure TForm1.Button1Click(Sender: TObject);

var

I: Int64;

begin

CheckBox1.Checked := TryStrToInt64(Edit1.Text, I);

SpinEdit1.Value := I;

end;

///////End TryStrToInt64

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

首部function StrToBool(const S: string): Boolean; $[SysUtils.pas

功能返回字符串S轉換成邏輯值

說明字符非邏輯表達時將引起異常

參考function SysUtils.TryStrToBool

例子CheckBox1.Checked := StrToBool(Edit1.Text);

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

首部function StrToBoolDef(const S: string; const Default: Boolean):

Boolean; $[SysUtils.pas

功能返回字符串S轉換成邏輯值

說明字符非邏輯表達時則返回默認值Default

參考function SysUtils.TryStrToBool

例子CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);

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

首部function TryStrToBool(const S: string; out Value: Boolean): Boolean;

$[SysUtils.pas

功能返回字符串S轉換成邏輯值Value是否成功

說明[注意]0為假非0為真;不是'True'和'False';Delphi6 Bug 如下修正

參考function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var

SysUtils.FalseBoolStrs

例子

///////Begin TryStrToBool

procedure TForm1.Button1Click(Sender: TObject);

var

B: Boolean;

begin

SetLength(TrueBoolStrs, 2);

SetLength(FalseBoolStrs, 2);

TrueBoolStrs[0] := 'True';

FalseBoolStrs[0] := 'False';

TrueBoolStrs[1] := 'Yes';

FalseBoolStrs[1] := 'No';

CheckBox1.Checked := TryStrToBool(Edit1.Text, B);

CheckBox2.Checked := B;

end;

///////End TryStrToBool

附加

///////Begin TryStrToBool

function TryStrToBool(const S: string; out Value: Boolean): Boolean;

function CompareWith(const aArray: array of string): Boolean;

var

I: Integer;

begin

Result := False;

for I := Low(aArray) to High(aArray) do

if AnsiSameText(S, aArray[I]) then

begin

Result := True;

Break;

end;

var

LResult: Extended;

begin

Result := TryStrToFloat(S, LResult);

if Result then

Value := LResult <> 0

else

begin

Result := True; //修正處

VerifyBoolStrArray;

if CompareWith(TrueBoolStrs) then

Value := True

else if CompareWith(FalseBoolStrs) then

Value := False

else

Result := False;

end;

///////End TryStrToBool

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

首部function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;

$[SysUtils.pas

功能返回邏輯值B轉換成字符串

說明BoolToStr(False, False)='0';BoolToStr(False, True)='-1'

參考var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs

例子Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);

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

首部function LoadStr(Ident: Integer): string; $[SysUtils.pas

功能返回根據標識Ident的字符串資源

說明字符串資源是指程序的內部資源

參考function SysUtils.FindStringResource

例子Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));

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

首部function FmtLoadStr(Ident: Integer; const Args: array of const):

string; $[SysUtils.pas

功能返回格式化的字符串資源

說明字符串資源是指程序的內部資源

參考function SysUtils.FmtStr;function SysUtils.FindStringResource

例子<NULL>;

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

首部function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas

功能返回指針字符串的長度

說明當指針字符串Str為nil時將觸發異常

參考<NULL>

例子SpinEdit2.Value := StrLen(PChar(Edit1.Text));

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

首部function StrEnd(const Str: PChar): PChar; $[SysUtils.pas

功能返回指針字符串的結尾

說明當指針字符串Str為nil時將觸發異常

參考<NULL>

例子Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;

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

首部function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):

PChar; $[SysUtils.pas

功能返回將指針字符串Source指定內存數量Count複製覆蓋到指針字符串Dest中

說明Dest沒有分配資源將觸發異常s

參考function System.Move

例子

///////Begin StrMove

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: PChar;

begin

vBuffer := '0123456789';

StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);

Edit2.Text := vBuffer;

end;

///////End StrMove

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

首部function StrCopy(Dest: PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回將指針字符串Source複製到指針字符串Dest中

說明Dest應已經分配足夠的空間非則將觸發異常

參考<NULL>

例子

///////Begin StrCopy

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: PChar;

begin

GetMem(vBuffer, Length(Edit1.Text) + 1);

StrCopy(vBuffer, PChar(Edit1.Text));

Edit2.Text := vBuffer;

FreeMem(vBuffer);

end;

///////End StrCopy

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

首部function StrECopy(Dest:PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回將指針字符串Source複製到指針字符串Dest中的結尾

說明可以連接指針字符串

參考<NULL>

例子

///////Begin StrECopy

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: array[0..255] of Char;

begin

StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));

Edit3.Text := vBuffer;

end;

///////End StrECopy

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

首部function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):

PChar; $[SysUtils.pas

功能返回將指針字符串Source指定長度MaxLen複製到指針字符串Dest中

說明Dest應已經分配足夠的空間非則將觸發異常

參考<NULL>

例子

///////Begin StrLCopy

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: array[0..255] of Char;

begin

StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);

Edit2.Text := vBuffer;

end;

///////End StrLCopy

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

首部function StrPCopy(Dest: PChar; const Source: string): PChar;

$[SysUtils.pas

功能返回將指針字符串Source複製到指針字符串Dest中

說明StrLCopy(Dest, PChar(Source), Length(Source))

參考function SysUtils.StrLCopy

例子

///////Begin StrPCopy

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: array[0..255] of Char;

begin

StrPCopy(vBuffer, PChar(Edit1.Text));

Edit2.Text := vBuffer;

end;

///////End StrPCopy

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

首部function StrPLCopy(Dest: PChar; const Source: string; MaxLen:

Cardinal): PChar; $[SysUtils.pas

功能返回將字符串Source指定長度MaxLen複製到指針字符串Dest中

說明StrLCopy(Dest, PChar(Source), MaxLen)

參考function SysUtils.StrLCopy

例子

///////Begin StrPLCopy

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: array[0..255] of Char;

begin

StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);

Edit2.Text := vBuffer;

end;

///////End StrPLCopy

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

首部function StrCat(Dest: PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回連接指針字符串Dest和指針字符串Source

說明StrCopy(StrEnd(Dest), Source)

參考function SysUntils.StrCopy

例子

///////Begin StrCat

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: array[0..255] of Char;

begin

StrPCopy(vBuffer, Edit1.Text);

StrCat(vBuffer, PChar(Edit2.Text));

Edit3.Text := vBuffer;

end;

///////End StrCat

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

首部function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):

PChar; $[SysUtils.pas

功能返回連接指針字符串Dest和指針字符串Source

說明[注意]MaxLen指定連接後的最大長度不是指針字符串Source的長度

參考<NULL>

例子

///////Begin StrLCat

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: array[0..255] of Char;

begin

StrPCopy(vBuffer, Edit1.Text);

StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);

Edit3.Text := vBuffer;

end;

///////End StrLCat

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

首部function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas

功能返回比較兩個指針字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區分大小寫;[注意]返回第一個出現不同字符的差異

參考<NULL>

例子SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));

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

首部function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas

功能返回比較兩個指針字符串

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;不區分大小寫;[注意]返回第一個出現不同字符的差異

參考<NULL>

例子SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));

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

首部function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;

$[SysUtils.pas

功能返回比較兩個指針字符串指定長度

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區分大小寫;Length(長度);[注意]返回第一個出現不同字符的差異

參考<NULL>

例子SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text),

SpinEdit2.Value)

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

首部function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;

$[SysUtils.pas

功能返回比較兩個指針字符串指定長度

說明當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;不區分大小寫;[注意]返回第一個出現不同字符的差異

參考<NULL>

例子SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),

SpinEdit2.Value)

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

首部function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas

功能返回在指針字符串Str搜索字符Chr第一個出現的地址

說明沒有找到則返回空指針

參考<NULL>

例子Edit2.Text := StrScan(PChar(Edit1.Text), '*');

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

首部function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas

功能返回在指針字符串Str搜索字符Chr最後一個出現的地址

說明沒有找到則返回空指針

參考<NULL>

例子Edit2.Text := StrRScan(PChar(Edit1.Text), '*');

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

首部function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas

功能返回指針字符串Str2在Str1中第一個出現的地址

說明沒有找到則返回空指針;StrPos('12345', '3') = '345'

參考<NULL>

例子Edit3.Text := StrPos(PChar(Edit1.Text), PChar(