strutilsを使用します。
最初の関数Ansiresemblestext(const atext、aother:string):boolean;
$ [strutils.pas
関数は、2つの文字列が似ているかどうかを返します
説明ANSI(American National Standards Institute)アメリカ国立標準研究所
参照関数strutils.soundexproc;
Checkbox1.Checked:= ansireSemblestext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansicontainStext(const atext、asubtext:string):boolean;
$ [strutils.pas
関数は、string atextにサブストリングAsubtextが含まれているかどうかを返します
症例が鈍感であることを示します
参照関数strutils.ansiuppercase;
Checkbox1.Checked:= ansicontainStext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansistArtStext(const asubtext、atext:string):boolean;
$ [strutils.pas
関数は、string atextがサブストリングasubtextで始まるかどうかを返します
症例が鈍感であることを示します
参照関数windows.comparestring
Checkbox1.Checked:= ansistartStext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansiendstext(const asubtext、atext:string):boolean;
$ [strutils.pas
関数は、string atextがサブストリングasubtextで終了するかどうかを返します
症例が鈍感であることを示します
参照関数windows.comparestring
Checkbox1.Checked:= ansiendStext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansireplaceText(const atext、afromtext、atotext:string):
文字列; $ [strutils.pas
関数は、string attextのサブストリングアフロムテキストを文字列のサブストリングアトテキストに置き換えた結果を返しますatext
症例が鈍感であることを示します
参照関数sysutils.stringReplace;
例edit4.text:= ansireplaceText(edit1.text、edit2.text、edit3.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansimatchtext(const atext:string; const avalues:array of
文字列):boolean;
関数string atextが文字列配列に含まれているかどうかを返しますavalues
症例が鈍感であることを示します
参照関数strutils.ansiindextext
Checkbox1.Checked:= ansimatchText(edit1.text、['a1'、 'a2'、 'a3'、
'a4']);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansiindextext(const atext:string; const avalues:array of
文字列):integer;
関数文字列アレイの文字列atextの位置を返しますavalues
それが含まれていない場合は、それが無意識であることを示します
参照関数sysutils.ansisametext
例spinedit1.value:= ansiindextext(edit1.text、['a1'、 'a2'、 'a3'、 'a4']);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansicontainsstr(const atext、asubtext:string):boolean;
$ [strutils.pas
関数は、string atextにサブストリングAsubtextが含まれているかどうかを返します
説明ケースに敏感です
参照関数strutils.ansipos
Checkbox1.Checked:= ansicontainsstr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数AnsistArtSSTR(const asubtext、atext:string):boolean;
$ [strutils.pas
関数は、string atextがサブストリングasubtextで始まるかどうかを返します
説明ケースに敏感です
参照関数sysutils.ansisamestr
Checkbox1.Checked:= ansistartSstr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数AnsiendSSTR(const asubtext、atext:string):boolean;
$ [strutils.pas
関数は、string atextがサブストリングasubtextで終了するかどうかを返します
説明ケースに敏感です
参照関数sysutils.ansisamestr
Checkbox1.Checked:= ansiendSstr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansireplacestr(const atext、afromtext、atotext:string):
文字列; $ [strutils.pas
関数は、string attextのサブストリングアフロムテキストを文字列のサブストリングアトテキストに置き換えた結果を返しますatext
説明ケースに敏感です
参照関数sysutils.stringReplace;
例edit4.text:= ansireplacestr(edit1.text、edit2.text、edit3.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansimatchstr(const atext:string; const avalues:array of
文字列):boolean;
関数string atextが文字列配列に含まれているかどうかを返しますavalues
説明ケースに敏感です
参照関数strutils.ansiindexstr
Checkbox1.Checked:= ansimatchstr(edit1.text、['a1'、 'a2'、 'a3'、
'a4']);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansiindexstr(const atext:string; const avalues:array of
文字列):integer;
関数文字列アレイの文字列atextの位置を返しますavalues
説明ケースに敏感です
参照関数sysutils.ansisamestr
例spinedit1.value:= ansiindexstr(edit1.text、['a1'、 'a2'、 'a3'、 'a4']);
━━━━━━━━━━━━━━━━━━━━━
first関数Dupestring(const atext:string; acount:integer):string;
$ [strutils.pas
関数は、文字列atextのacountレプリカを返します
説明 '' Acountが0の場合
function system.setlengthを参照してください
例edit3.text:= dupestring(edit1.text、spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Reversestring(const atext:string):$ [strutils.pas
関数は、文字列の逆順に戻ります
説明Reversestring( '1234')= '4321'
function system.setlengthを参照してください
例edit3.text:= reversestring(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
First Function Stuffstring(const atext:string; astart、alength:cardinal;
const asubtext:string):strutils.pas
関数はネストされた文字列を返します
説明ASTART:ネストの開始位置:ネストの長さ( 'ABCD'、 '12')= 'A12BCD'
function system.copyを参照してください
例edit3.text:= Stuffstring(edit1.text、spinedit1.value、spinedit2.value、
edit2.text);
━━━━━━━━━━━━━━━━━━━━━
first関数randomfrom(const avalues:文字列の配列):文字列;
$ [strutils.pas
関数は、文字列アレイの要素をランダムに返しますavalues
前にランダム化を実行することをお勧めします
参照関数System.random
ランダム化; edit3.text:= randomfrom(['a1'、 'a2'、 'a4']);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数ifthen(avalue:boolean; const atrue:string; afalse:string =
''):文字列;
関数指定された論理文字列を返します
ifthen(true、 'yes'、 'no')= 'yes'; ifthen(false、 'yes'、 'no')= 'no'
参照<null>
例edit3.text:= ifthen(checkbox1.checked、edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数leftstr(const atext:string; const acount:integer):string;
$ [strutils.pas
関数は、文字列の左側にあるacount文字を返しますatext
説明leftstr( '123456'、3)= '123'
function system.copyを参照してください
例edit3.text:= leftstr(edit1.text、spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
first function rightstr(const atext:string; const acount:integer):string;
$ [strutils.pas
関数は、文字列の右側にあるacount文字を返しますaText
説明rightstr( '123456'、3)= '456'
function system.copyを参照してください
例edit3.text:= rightstr(edit1.text、spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
First Function Midstr(const atext:string; const astart、acount:integer):
文字列; $ [strutils.pas
関数は、astartから始まる文字列atext acount文字を返します
コピーを意味します
function system.copyを参照してください
例edit3.text:= midstr(edit1.text、spinedit1.value、spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
First Function SearchBuf(buf:pchar; buflen:integer; selstart、sellength:
整数:文字列;
pchar; $ [strutils.pas
関数は、最初の検索されたポインター位置を返します
この関数を説明することは、テキストの文字列を検索するためによく使用されます
参照<null>
例
//////// SearchBufを開始します
function searchedit(editcontrol:tcustomedit; const searchstring:string;
SearchOptions:tstringsearchoptions;
var
バッファー、P:PCHAR;
サイズ:word;
始める
結果:= false;
if(length(searchstring)= 0)then exit;
サイズ:= editControl.getTextLen;
if(size = 0)then exit;
バッファ:= stralloc(size + 1);
試す
editControl.getTextBuf(バッファー、サイズ + 1);
p:= searchBuf(buffer、size、editcontrol.selstart、editcontrol.sellength、
SearchString、SearchOptions);
p <> nilの場合は始めます
editControl.selstart:= P-バッファー;
EditControl.Sellength:= length(searchstring);
結果:= true;
終わり;
ついに
strdispose(バッファー);
終わり;
終わり;
手順tform1.button1click(sender:tobject);
var
SearchOptions:tstringsearchoptions;
始める
SearchOptions:= [];
Checkbox1がチェックされている場合
include(searchoptions、sodown);
Checkbox2がチェックされている場合
include(searchoptions、somatchcase);
Checkbox3。の場合、チェックしました
include(searchoptions、sowholeword);
searchedit(memo1、edit1.text、searchoptions);
memo1.setfocus;
終わり;
//////// end searchbuf
━━━━━━━━━━━━━━━━━━━━━
最初の関数soundex(const atext:string; alength:tsoundexlength = 4):
文字列; $ [strutils.pas
関数は検出文字列を返します
説明:検出方法(SoundEx)によると、交差点を見つけることができます
参照<null>
例edit2.text:= soundex(edit1.text、spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数soundexint(const atext:string; alength:tsoundexintlength =
4):integer;
関数は検出整数を返します
それは、alengthの値が大きいほど、デコード精度が高いことを意味します
参照<null>
例spinedit2.value:= soundexint(edit1.text、spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数decodeSoundExint(avalue:integer):$ [strutils.pas
関数は、プローブ整数のデコードを返します
説明decodesoundexint(soundexint( 'hello'))はsoundex( 'hello')と同等です
参照<null>
例edit2.text:= decodesoundexint(spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
First Function soundexword(const atext:string):word [strutils.pas
関数は、検出テキスト値を返します
4に固定されたパラメーターalengthがないことを示します
参照<null>
例spinedit2.value:= soundexword(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
First Function DecodeSoundExWord(Avalue:word):strutils.pas
関数は、検出テキスト値のデコードを返します
説明decodeSoundExword(soundexword( 'hello'))はsoundex( 'hello')に相当します
参照<null>
例edit2.text:= decodeSoundExword(spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
最初の関数soundexsimilar(const atext、aother:string; alength:
tsoundExlength = 4):boolean;
関数は、2つの文字列のプローブ文字が同じかどうかを返します
説明結果:= soundex(atext、alength)= soundex(aother、alength)
参照<null>
Checkbox1.Checked:= SoundExSimilar(edit1.text、edit2.text、
spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
最初の関数SoundExCompare(const atext、aother:string; alength:
tsoundExlength = 4):integer;
関数2つの文字列を比較して文字列を検出した結果を返します
説明結果:= ansicomparester(soundex(atext、alength)、soundex(aother、
alength))
参照関数sysutils.ansicomparestr
例spinedit2.value:= soundexcompare(edit1.text、edit2.text、
spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
First Function SoundExproc(const atext、aother:string):boolean;
$ [strutils.pas
function soundexsimilarを呼び出して、2つの文字列のプローブ文字列を返します。
システム変数AnsiresemblesProcのデフォルト値の説明
参照関数strutils.AnsireSemblestext
例[var ansiresemblesproc:tcomparetextproc = soundExproc;]
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数newstr(const s:string):$ sysutils.pas
関数は新しい文字列ポインターアドレスを返します
説明文字列Sが空のときにnullstrを返します
手順System.newを参照してください
例
/////////// newstrを開始し、Dispurestr
手順tform1.button1click(sender:tobject);
var
P:PSTRING;
始める
p:= newtr(edit1.text);
edit2.text:= p^;
DispursErt(P);
終わり;
//////////
━━━━━━━━━━━━━━━━━━━━━
最初の手順(P:PSTRING);
関数リリース文字列ポインターPリソース
説明NewSTRで使用します
手順System.Disposeを参照してください
例<上記を参照、以下を参照>
━━━━━━━━━━━━━━━━━━━━━
最初の手順Assomerstr(var p:pstring; const s:string);
$ [sysutils.pas
関数は、文字列sを文字列pointer pに更新します
説明値を更新するときにリリースされた文字列ポインターであった説明
参照関数sysutils.newstr;関数sysutils.disposestr
例
//////////
手順tform1.button1click(sender:tobject);
var
P:PSTRING;
始める
p:= nil;
assomerstr(p、edit1.text);
edit2.text:= p^;
DispursErt(P);
終わり;
//////////
━━━━━━━━━━━━━━━━━━━━━
最初の手順AppentStr(var Dest:string; const s:string);
$ [sysutils.pas
string destの後に文字列sを追加します
説明はDest:= Dest + Sに相当します
参照<null>
例
/////////// appendstrを開始します
手順tform1.button1click(sender:tobject);
var
S:文字列;
始める
s:= edit2.text;
appendStr(s、edit1.text);
edit2.text:= s;
終わり;
////////// end appendstr
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数大文字(const s:string):string [sysutils.pas
関数は、文字列sの首都形式を返します
非低速ケース文字が処理されていないことを示します
手順System.setLengthを参照してください
例edit2.text:= appercase(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
First Function Lowercase(const s:string):string [sysutils.pas
関数は、文字列sの小文字形式を返します
非カプセル文字が処理されていないことを示します
手順System.setLengthを参照してください
例edit2.text:= lowercase(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Comparest(const S1、S2:string):$ [sysutils.pas
関数は2つの文字を比較するために戻ります
S1> S2が値> 0を返す場合
参照<null>
例spinedit1.value:= comparestr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数比較(P1、P2:ポインター;長さ:整数):Boolean;
アセンブラー; $ sysutils.pas
関数2つのメモリポインターのreturn比較
説明comparemem(pchar( '12a')、pchar( '12c')、2)= true; comparemem(pchar( '12a')、
pCher( '12c')、3)= false
参照<null>
Checkbox1.Checked:= CompareMem(self、form1、8);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数CompareText(const S1、S2:string):$ [sysutils.pas
関数が戻って2つの文字列を比較します
症例が鈍感であることを示します
参照<null>
例spinedit1.value:= compareText(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数sametext(const s1、s2:string):$ $ [sysutils.pas
関数は、2つの文字列が等しいかどうかを返します
症例が鈍感であることを示します
参照<null>
Checkbox1.Checked:= sametext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansiuppercase(const s:string):sysutils.pas
関数は、文字列sの首都形式を返します
説明ANSI(American National Standards Institute)アメリカ国立標準研究所
参照関数windows.charupperbuff
例edit2.text:= ansiuppercase(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
First Function Ansilowercase(const S:string):string [sysutils.pas
関数は、文字列sの小文字形式を返します
非カプセル文字が処理されていないことを示します
参照関数windows.charlowerbuff
例edit2.text:= ansilowercase(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Ansicomparester(const S1、S2:string):$ $ [sysutils.pas
関数2つの文字列の逆の比較
S1> S2が値> 0を返す場合
参照関数windows.comparestring
例spinedit1.value:= ansicomparestr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数ansisamestr(const s1、s2:string):$ $ [sysutils.pas
関数は、2つの文字列が等しいかどうかを返します
説明ケースに敏感です
参照関数sysutils.ansicomparestr
Checkbox1.Checked:= ansisamestr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数AnsicomPareText(const s1、s2:string):integer;
関数2つの文字列の逆の比較
S1> S2が値> 0を返す場合
参照関数windows.comparestring
例spinedit1.value:= ansicomparetext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数ansisametext(const s1、s2:string):$ $ [sysutils.pas
関数は、2つの文字列が等しいかどうかを返します
症例が鈍感であることを示します
参照関数sysutils.ansicomparetext
Checkbox1.Checked:= ansisametext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Ansistrcomp(S1、S2:PCHAR):$ [sysutils.pas
関数は、2つのポインター文字列を比較するために戻ります
S1> S2が値> 0を返す場合
参照function System.comParestring
例spinedit1.value:= ansistrcomp(pchar(edit1.text)、pchar(edit2.text))
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Ansistricomp(S1、S2:PCHAR):$ [sysutils.pas
関数は、2つのポインター文字列を比較するために戻ります
説明S1> S1 <S2が値を返す場合。
参照関数windows.comparestring
例spinedit1.value:= ansistricomp(pchar(edit1.text)、pchar(edit2.text))
━━━━━━━━━━━━━━━━━━━━━
最初の関数AnsistlComp(S1、S2:PCHAR; MAXLEN:CARDINAL):整数;
$ [sysutils.pas
関数は、指定された2つのポインター文字列を比較して、指定された長さを比較します
S1> S2が値を返す場合<S1 = S2はupersive = 0;
参照関数windows.comparestring
例spinedit1.value:= ansistrlcomp(pchar(edit1.text)、pchar(edit2.text)、
spinedit2.value)
━━━━━━━━━━━━━━━━━━━━━
最初の関数Ansistrlicomp(S1、S2:PCHAR; MAXLEN:CARDINAL):整数;
$ [sysutils.pas
関数は、指定された2つのポインター文字列を比較します
S1> S2が値> 0を返す場合
参照関数windows.comparestring
例spinedit1.value:= ansistrlicomp(pchar(edit1.text)、pchar(edit2.text)、
spinedit2.value)
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数ansistlower(str:pchar):pchar; $ [sysutils.pas
関数はポインターストリング小文字を返します
非カプセル文字が処理されていないことを示します
参照関数windows.charlower
例edit2.text:= ansistlower(pchar(edit1.text));
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Ansistrupper(str:pchar):$ [sysutils.pas
関数はポインター文字列大文字化を返します
非低速ケース文字が処理されていないことを示します
参照関数windows.charupper
例edit2.text:= ansistrupper(pchar(edit1.text));
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansilastchar(const s:string):pchar; $ [sysutils.pas
関数は文字列sの最後のポインター文字を返します
説明文字列sが空の文字列である場合、ヌルポインターが返されます。
参照関数sysutils.bytetype
例edit2.text:= ansilastchar(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数AnsistrastCher(P:PCHAR):PCHAR;
関数ポインター文字列pの最後のポインター文字を返します
説明文字列Pが空のポインターである場合、空のポインターを返します。
参照関数sysutils.bytetype
例edit2.text:= ansilastchar(pchar(edit1.text));
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数wideuppercase(const s:widestring):sysutils.pas
関数は、二重バイト文字列の大文字化を返します
説明widecharダブルバイト文字
参照関数windows.charupperbuffw
例edit2.text:= wideuppercase(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
First Function WidelowerCase(const s:widestring):sysutils.pas
関数は、二重バイト文字列の小文字形式を返します
それは私がそれをテストできない理由を意味します
参照関数windows.charlowerbuffw
例edit2.text:= widelowercase(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数WideComParestr(const S1、S2:WideString):整数;
$ [sysutils.pas
2つの二重バイト文字列の関数戻り比較
S1> S2が値> 0を返す場合
参照関数windows.comparestringw
例spinedit1.value:= widecomparestr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数wideestr(const s1、s2:widestring):$ $ [sysutils.pas
関数は、2つの二重バイト文字列が同じかどうかを返します
説明ケースに敏感です
参照関数sysutils.widecomparestr
Checkbox1.Checked:= widesAmestr(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数WideComparEText(const S1、S2:WideString):整数;
$ [sysutils.pas
2つの二重バイト文字列の関数戻り比較
S1> S2が値> 0を返す場合
参照関数windows.comparestringw
例spinedit1.value:= widecomparetext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数widesAmetext(const s1、s2:widestring):boolean;
$ [sysutils.pas
関数は、2つの二重バイト文字列が同じかどうかを返します
症例が鈍感であることを示します
参照関数sysutils.widecomparetext
Checkbox1.Checked:= widesAmetext(edit1.text、edit2.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数トリム(const s:string)$ [sysutils.pas
First Function Trim(const s:widestring):widestring;
$ [sysutils.pas
関数が戻って、文字列sの左右の文字を削除します
#32未満が目に見えない文字と見なされることを示す文字
function system.copyを参照してください
例edit2.text:= trim(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Trimleft(const s:string):sysutils.pas
First Function Trimleft(const s:widestring):widestring;
$ [sysutils.pas
関数は、文字列sの左側にある目に見えない文字を削除するために戻ります
#32未満が目に見えない文字と見なされることを示す文字
function system.copyを参照してください
例edit2.text:= trimleft(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数Trimright(const s:string)$ [sysutils.pas
First Function Trimright(const s:widestring):widestring;
$ [sysutils.pas
関数は、文字列sの右側にある目に見えない文字を削除するために戻ります
#32未満が目に見えない文字と見なされることを示す文字
function system.copyを参照してください
例edit2.text:= trimright(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数quotedstr(const s:string):sysutils.pas
関数はパスカルの文字列sの式を返します
説明:単一の引用の1つの引用が2つに変換されます
手順システムを参照してください
例edit2.text:= quotedstr(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansiquotedstr(const s:string; quote:char):string;
$ [sysutils.pas
関数は、引用として文字sの文字列sの式を返します
説明ansiquotedstr( 'hello "world'、
'@')= '@hello "world@'; ansiquotedstr( 'hello" world'、 '"')= '" hello "" world "'
参照関数sysutils.ansistrscan
例edit2.text:= ansiquotedstr(edit1.text、 '"');
━━━━━━━━━━━━━━━━━━━━━
最初の関数ansiextractQuotedstr(var src:pchar; quote:char):string;
$ [sysutils.pas
関数は、引用としてキャラクターの引用の元の形式を返します
それ以外の場合は、SRCが違法である場合、変更されていないことを意味します。
参照関数sysutils.ansistrscan
例
///////// ansiextractquotedstrを開始します
手順tform1.button1click(sender:tobject);
var
P:PCHAR;
始める
p:= pchar(edit1.text);
edit2.text:= ansiextractquotedstr(p、 '"');
edit3.text:= p;
終わり;
////////
━━━━━━━━━━━━━━━━━━━━━
最初の関数AnsideQuotedstr(const s:string; aquote:char):string;
$ [sysutils.pas
関数は、引用としてキャラクターAquoteの元の形を返します
表現が違法である場合、それはsを返します
参照関数sysutils.ansiextractquotedstr
例edit2.text:= ansidequotedstr(edit1.text、 '"');
━━━━━━━━━━━━━━━━━━━━━
最初の関数調整ラインブレイク(const s:string; style:ttextlinebreakstyle =
{$ ifdef linux} tlbslf {$ endif} {$ ifdef mswindows} tlbscrlf {$ endif}):
文字列; $ [sysutils.pas
関数が戻って、指定された文字列のラインセパレーターをCR/LFシーケンスに調整します
説明します
調整ラインブレイク( '1'#13'2 '#13)=' 1 '#13#10'2'#13#10;調整ラインブレイク( '1'#10'2 '#10)=' 1 '#13#10 '2'#13#10
参照関数sysutils.strnextchar
例<null>
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数isvalidident(const識別:文字列):$ $ [sysutils.pas
関数は、文字列が正しい識別子であるかどうかを返します
説明識別子::文字|アンダーライン[文字|下線|数字] ...
参照<null>
Checkbox1.Checked:= isValidident(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数inttostr(value:integer):sysutils.pas
ヘッダー関数inttostr(value:int64):sysutils.pas
関数は整数値を返し、文字列に変換します
説明形式( '%d'、[value])
参照関数sysutils.fmtstr
例edit2.text:= inttostr(spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
First Function inttohex(value:integer; digits:integer):string;
$ [sysutils.pas
First Function inttohex(value:int64; digits:integer):string;
$ [sysutils.pas
関数は、16進のパフォーマンス結果に変換された整数値を返します。
説明パラメーター桁は、文字の最小幅を指定します。
参照関数sysutils.fmtstr
例edit2.text:= inttohex(spinedit1.value、spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数strtoint(const s:string):$ [sysutils.pas
関数は文字列を返して整数に変換します
説明:文字列が非統合によって表される場合、例外が発生します
手順System.valを参照してください
例spinedit1.value:= strtoint(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数strtointdef(const s:string; default:integer):integer;
$ [sysutils.pas
関数は文字列を返して整数に変換します
文字列が非統合で表されると、デフォルトが返されます。
手順System.valを参照してください
例spinedit1.value:= strtointdef(edit1.text、0);
━━━━━━━━━━━━━━━━━━━━━
最初の関数trystrtoint(const s:string; out value:integer):boolean;
$ [sysutils.pas
関数は、文字列sが整数値に正常に変換されるかどうかを返します
説明falseは、文字列が非integerで表され、値が0として出力されるときに返されます
手順System.valを参照してください
例
//////// trystrtointを開始します
手順tform1.button1click(sender:tobject);
var
I:整数;
始める
Checkbox1.checked:= trystrtoint(edit1.text、i);
spinedit1.value:= i;
終わり;
//////// end trystrtoint
━━━━━━━━━━━━━━━━━━━━━
ヘッダー関数strtoint64(const s:string):int64;
関数は文字列を返して64ビット整数に変換します
説明:文字列が64ビット以外の整数によって表されると、例外が発生します。
手順System.valを参照してください
例spinedit1.value:= strtoint64(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
最初の関数strtoint64def(const s:string; const default:int64):int64;
$ [sysutils.pas
関数は文字列を返して64ビット整数に変換します
文字列が64ビット以外の整数で表されると、デフォルトが返されます。
手順System.valを参照してください
例spinedit1.value:= strtoint64def(edit1.text、0);
━━━━━━━━━━━━━━━━━━━━━
最初の関数trystrtoint64(const s:string; out value:int64):boolean;
$ [sysutils.pas
関数は、文字列sが64ビットの整数値に正常に変換されるかどうかを返します
説明falseは、文字列が60ビット以外の整数で表され、値が0として出力されると返されます
手順System.valを参照してください
例
///////// trystrtoint64を開始します
手順tform1.button1click(sender:tobject);
var
I:int64;
始める
Checkbox1.checked:= trystrtoint64(edit1.text、i);
spinedit1.value:= i;
終わり;
/////////終了trystrtoint64
━━━━━━━━━━━━━━━━━━━━━
First Function Strtobool(const s:string):boolean;
関数は文字列を返して論理値に変換します
説明文字は、論理的に表現されていない場合に例外を引き起こします
参照関数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
手順tform1.button1click(sender:tobject);
var
B: Boolean;
始める
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 TryStrToBool
添付
///////Begin TryStrToBool
function TryStrToBool(const S: string; out Value: Boolean): Boolean;
function CompareWith(const aArray: array of string): Boolean;
var
I: Integer;
始める
Result := False;
for I := Low(aArray) to High(aArray) do
if AnsiSameText(S, aArray[I]) then
始める
Result := True;
壊す;
終わり;
終わり;
var
LResult: Extended;
始める
Result := TryStrToFloat(S, LResult);
if Result then
Value := LResult <> 0
それ以外
始める
Result := True; //修正处
VerifyBoolStrArray;
if CompareWith(TrueBoolStrs) then
Value := True
else if CompareWith(FalseBoolStrs) then
Value := False
それ以外
Result := False;
終わり;
終わり;
///////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
手順tform1.button1click(sender:tobject);
var
vBuffer: PChar;
始める
vBuffer := '0123456789';
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
終わり;
///////End StrMove
━━━━━━━━━━━━━━━━━━━━━
首部function StrCopy(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中
说明Dest应已经分配足够的空间非则将触发异常
参考<NULL>
例
///////Begin StrCopy
手順tform1.button1click(sender:tobject);
var
vBuffer: PChar;
始める
GetMem(vBuffer, Length(Edit1.Text) + 1);
StrCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
FreeMem(vBuffer);
終わり;
///////End StrCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrECopy(Dest:PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中的结尾
说明可以连接指针字符串
参考<NULL>
例
///////Begin StrECopy
手順tform1.button1click(sender:tobject);
var
vBuffer: array[0..255] of Char;
始める
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));
Edit3.Text := vBuffer;
終わり;
///////End StrECopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中
说明Dest应已经分配足够的空间非则将触发异常
参考<NULL>
例
///////Begin StrLCopy
手順tform1.button1click(sender:tobject);
var
vBuffer: array[0..255] of Char;
始める
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
終わり;
///////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
手順tform1.button1click(sender:tobject);
var
vBuffer: array[0..255] of Char;
始める
StrPCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
終わり;
///////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
手順tform1.button1click(sender:tobject);
var
vBuffer: array[0..255] of Char;
始める
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);
Edit2.Text := vBuffer;
終わり;
///////End StrPLCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrCat(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回连接指针字符串Dest和指针字符串Source
说明StrCopy(StrEnd(Dest), Source)
参考function SysUntils.StrCopy
例
///////Begin StrCat
手順tform1.button1click(sender:tobject);
var
vBuffer: array[0..255] of Char;
始める
StrPCopy(vBuffer, Edit1.Text);
StrCat(vBuffer, PChar(Edit2.Text));
Edit3.Text := vBuffer;
終わり;
///////End StrCat
━━━━━━━━━━━━━━━━━━━━━
首部function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能返回连接指针字符串Dest和指针字符串Source
说明[注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度
参考<NULL>
例
///////Begin StrLCat
手順tform1.button1click(sender:tobject);
var
vBuffer: array[0..255] of Char;
始める
StrPCopy(vBuffer, Edit1.Text);
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);
Edit3.Text := vBuffer;
終わり;
///////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(