Delphi文字列関数

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(