Fungsi String Delphi

menggunakan strutils;

Fungsi pertama ansiresemblestext (const atext, aother: string): boolean;

$ [Strutils.pas

Fungsi mengembalikan apakah kedua string itu serupa

Deskripsi ANSI (American Standards Institute) American National Standards Institute;

Fungsi Referensi Strutils.SoundExproc;

Contoh centang box1.Check: = ansiresemplestext (edit1.text, edit2.text);

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

Fungsi pertama ansicontainStext (const atext, asubtext: string): boolean;

$ [Strutils.pas

Fungsi mengembalikan apakah string atext berisi substring asubtext

Menunjukkan kasus tidak sensitif

Fungsi Referensi Strutils.Ansiuppercase;

Contoh centang kotak.

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

Fungsi pertama ansistartStext (const asubtext, atext: string): boolean;

$ [Strutils.pas

Fungsi mengembalikan apakah string atext dimulai dengan substring asubtext

Menunjukkan kasus tidak sensitif

Fungsi referensi windows.compparestring

CONTOH CHECKBOX1.CHECKED: = ANSISTARTSTEXT (edit1.text, edit2.text);

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

Fungsi pertama ansiendStext (const asubtext, atext: string): boolean;

$ [Strutils.pas

Fungsi mengembalikan apakah string atext berakhir dengan substring asubtext

Menunjukkan kasus tidak sensitif

Fungsi referensi windows.compparestring

Contoh centang box1.Check: = ansiendStext (edit1.text, edit2.text);

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

Fungsi pertama ansireplacetext (const atext, afromtext, atotext: string):

string;

Fungsi Mengembalikan hasil mengganti Substring AfromText dengan Substring Atotext di String Atext

Menunjukkan kasus tidak sensitif

Fungsi referensi sysutils.stringreplace;

Contoh edit4.text: = ansireplacetext (edit1.text, edit2.text, edit3.text);

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

Fungsi pertama ansimatchText (const atext: string; const rata -rata: array of

string): boolean; $ [strutils.pas

Fungsi mengembalikan apakah string atext disertakan dalam rata -rata array string

Menunjukkan kasus tidak sensitif

Fungsi Referensi Strutils.ansiindextext

Contoh centang kotak.

'a4']);

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

Fungsi pertama ansiindextext (const atext: string; const rata -rata: array of

String): Integer; $ [Strutils.pas

Fungsi Mengembalikan posisi string atext dalam rata -rata array string

Menunjukkan bahwa itu tidak sensitif; jika tidak termasuk, return -1

Fungsi referensi sysutils.ansisametext

Contoh spinedit1.value: = ansiindextext (edit1.text, ['a1', 'a2', 'a3', 'a4']);

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

Fungsi pertama ansicontainSstr (const atext, asubtext: string): boolean;

$ [Strutils.pas

Fungsi mengembalikan apakah string atext berisi substring asubtext

Deskripsi Kasus Sensitif

Fungsi Referensi Strutils.Sipos

Contoh CHECKBOX1.CHECKED: = ansicontainSstr (edit1.text, edit2.text);

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

Fungsi pertama ansistartsstr (const asubtext, atext: string): boolean;

$ [Strutils.pas

Fungsi mengembalikan apakah string atext dimulai dengan substring asubtext

Deskripsi Kasus Sensitif

Fungsi referensi sysutils.ansisamestr

Contoh centang kotak.

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

Fungsi pertama ansiendsstr (const asubtext, atext: string): boolean;

$ [Strutils.pas

Fungsi mengembalikan apakah string atext berakhir dengan substring asubtext

Deskripsi Kasus Sensitif

Fungsi referensi sysutils.ansisamestr

Contoh centang box1.Check: = ansiendsstr (edit1.text, edit2.text);

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

Fungsi pertama ansireplacestr (const atext, afromtext, atotext: string):

string;

Fungsi Mengembalikan hasil mengganti Substring AfromText dengan Substring Atotext di String Atext

Deskripsi Kasus Sensitif

Fungsi referensi sysutils.stringreplace;

Contoh edit4.text: = ansireplacestr (edit1.text, edit2.text, edit3.text);

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

Fungsi pertama ansimatchstr (const atext: string; const rata -rata: array of

string): boolean; $ [strutils.pas

Fungsi mengembalikan apakah string atext disertakan dalam rata -rata array string

Deskripsi Kasus Sensitif

Fungsi Referensi Strutils.Ansiindexstr

Contoh CHECKBOX1.CHECKED: = ANSIMATCHST (EDIT1.TEXT, ['A1', 'A2', 'A3',

'a4']);

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

Fungsi pertama ansiindexstr (const atext: string; const rata -rata: array of

String): Integer; $ [Strutils.pas

Fungsi Mengembalikan posisi string atext dalam rata -rata array string

Deskripsi Kasus Sensitif

Fungsi referensi sysutils.ansisamestr

Contoh spinedit1.value: = ansiindexstr (edit1.text, ['a1', 'a2', 'a3', 'a4']);

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

Fungsi pertama dupestring (const atext: string; acount: integer): string;

$ [Strutils.pas

Fungsi mengembalikan replika acount dari string atext

Deskripsi Mengembalikan '' Saat Acount 0

Lihat Sistem Fungsi.setLength

Contoh edit3.text: = dupestring (edit1.text, spinedit1.value);

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

Fungsi header Reversestring (const atext: string): string; $ [strutils.pas

Fungsi mengembalikan urutan terbalik dari string atext

Deskripsi Reversesstring ('1234') = '4321'

Lihat Sistem Fungsi.setLength

Contoh Edit3.Text: = ReverSesString (Edit1.Text);

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

Fungsi pertama stufString (const atext: string; astart, allength: cardinal;

const asubtext: string): string; $ [strutils.pas

Fungsi mengembalikan string bersarang

Deskripsi ATTART: Posisi awal bersarang;

Lihat Sistem Fungsi.Copy

Contoh edit3.text: = stuffstring (edit1.text, spinedit1.value, spinedit2.value,

Edit2.text);

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

Fungsi pertama dari acak (rata -rata const: array string): string;

$ [Strutils.pas

Fungsi Mengembalikan elemen secara acak dalam rata -rata array string

Jelaskan bahwa disarankan untuk menjalankan acak sebelumnya

Sistem Fungsi Referensi.RANDOM

Contoh acak; edit3.text: = acak dari (['a1', 'a2', 'a3', 'a4']);

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

Fungsi header ifthen (avalue: boolean; const attrue: string; afalse: string =

'): string;

Fungsi mengembalikan string logis yang ditentukan

Ifthen (benar, 'ya', 'tidak') = 'ya'; ifthen (false, 'yes', 'no') = 'tidak'

Referensi <Null>

Contoh edit3.text: = ifthen (checkbox1.checked, edit1.text, edit2.text);

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

Fungsi header Leftstr (const atext: string; const acount: integer): string;

$ [Strutils.pas

Fungsi mengembalikan karakter acount di sisi kiri string atext

Deskripsi Leftstr ('123456', 3) = '123'

Lihat Sistem Fungsi.Copy

Contoh edit3.text: = Leftstr (edit1.text, spinedit1.value);

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

Fungsi pertama kanan (const atext: string; const acount: integer): string;

$ [Strutils.pas

Fungsi Mengembalikan karakter acount di sisi kanan string atext

Deskripsi Rightstr ('123456', 3) = '456'

Lihat Sistem Fungsi.Copy

Contoh edit3.text: = rightstr (edit1.text, spinedit1.value);

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

Fungsi pertama midstr (const atext: string; const astart, acount: integer):

string;

Fungsi Mengembalikan Karakter Acount String Atext Mulai dari Astart

Itu berarti salinan

Lihat Sistem Fungsi.Copy

Contoh edit3.text: = midstr (edit1.text, spinedit1.value, spinedit2.value);

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

Fungsi Pencarian First (BUF: PCHAR; BUFLEN: Integer; Selstart, Sellength:

Integer;

Pchar; $ [strutils.pas

Fungsi Mengembalikan posisi penunjuk yang dicari pertama kali

Jelaskan fungsi ini sering digunakan untuk mencari string dalam teks

Referensi <Null>

contoh

////////// Mulai SearchBuf

fungsi pencarian (editControl: tcustomedit; const earchString: string;

SearchOptions: TstringsearchOptions;

var

Buffer, p: pchar;

Ukuran: Word;

Mulai

Hasil: = false;

if (length (searchString) = 0) kemudian keluar;

Size: = editControl.gettextlen;

if (size = 0) kemudian keluar;

Buffer: = stralloc (ukuran + 1);

mencoba

EditControl.gettextBuf (buffer, ukuran + 1);

P: = SearchBuf (Buffer, Size, EditControl.Selstart, EditControl.Sellength,

SearchString, SearchOptions);

Jika p <> nil maka mulailah

EditControl.Selstart: = P - buffer;

EditControl.sellength: = Length (SearchString);

Hasil: = true;

akhir;

Akhirnya

Strdispose (buffer);

akhir;

akhir;

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

SearchOptions: TstringsearchOptions;

Mulai

SearchOptions: = [];

Jika centang kotak

Sertakan (Searchoptions, Sodown);

Jika centang kotak

Sertakan (SearchOptions, Somatcase);

Jika kotak centang3

Sertakan (Searchoptions, Sowholeword);

SearchEdit (Memo1, Edit1.Text, SearchOptions);

Memo1.setFocus;

akhir;

////////// end Searchbuf

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

Fungsi pertama soundex (const atext: string; allength: tsoundexlength = 4):

string;

Fungsi Mengembalikan String Deteksi

Penjelasan: Menurut metode deteksi (SoundEx), Anda dapat menemukan string interseksi;

Referensi <Null>

Contoh edit2.text: = soundex (edit1.text, spinedit1.value);

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

Fungsi header soundexint (const atext: string; allength: tsoundexintlength =

4): Integer; $ [Strutils.pas

Fungsi Mengembalikan Integer Deteksi

Itu berarti bahwa semakin besar nilai Allength, semakin tinggi akurasi decoding

Referensi <Null>

Contoh spinedit2.value: = soundExint (edit1.text, spinedit1.value);

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

Fungsi Header DecodesoundExint (Avalue: Integer): String;

Fungsi mengembalikan decoding integer probe

Deskripsi DecodesoundExint (SoundExint ('Hello')) setara dengan soundex ('halo')

Referensi <Null>

Contoh edit2.text: = decodesoundexint (spinedit2.value);

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

Fungsi pertama soundexword (const atext: string): word; $ [strutils.pas

Fungsi mengembalikan nilai teks yang mendeteksi

Menunjukkan bahwa tidak ada parameter allive yang telah diperbaiki menjadi 4

Referensi <Null>

Contoh spinedit2.value: = soundexword (edit1.text);

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

Fungsi pertama DecodesoundExword (avalue: word): string; $ [strutils.pas

Fungsi mengembalikan decoding dari nilai teks yang mendeteksi

Deskripsi DecodesoundExword (SoundExword ('Hello')) setara dengan soundex ('halo')

Referensi <Null>

Contoh edit2.text: = decodesoundexword (spinedit2.value);

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

Fungsi pertama soundexSimilar (const atext, aother: string; allength:

TSoundExLength = 4): Boolean;

Fungsi mengembalikan apakah string probe dari dua string adalah sama

Deskripsi Hasil: = Soundex (ATEXT, ALGLE) = SoundEx (Aother, Alength)

Referensi <Null>

CONTOH CHECKBOX1.CHECKED: = SoundExSimilar (Edit1.Text, Edit2.Text,

Spinedit1.value);

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

Fungsi pertama soundexcare (const atext, aother: string; allength:

TSoundExLength = 4): Integer;

Fungsi mengembalikan hasil membandingkan dua string untuk mendeteksi string

Deskripsi Hasil: = ansicompareStr (soundex (atext, allength), soundex (aother,

Allength))

Fungsi Referensi Sysutils.Sikomparestr

Contoh spinedit2.value: = soundExcompare (edit1.text, edit2.text,

Spinedit1.value);

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

Fungsi pertama soundexproc (const atext, aother: string): boolean;

$ [Strutils.pas

Fungsi panggilan soundexsimilar untuk mengembalikan string probe dari dua string.

Deskripsi Nilai Default Variabel Sistem AnsiresemblesProc

Fungsi Referensi Strutils.Ansiresemblestext

Contoh [var ansiresemblesproc: tomparetextproc = soundExproc;]

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

Fungsi Header Newstr (Const S: String): PSTRING;

Fungsi Mengembalikan Alamat Pointer String Baru

Deskripsi return nullstr saat string s kosong

Lihat Sistem Prosedur. Baru

contoh

///////////// Mulai Newstr, Disposesc

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

P: PString;

Mulai

P: = newstr (edit1.text);

EDIT2.TEXT: = P^;

Disposestr (P);

akhir;

//////////////END Newstr, Disposestr

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

Prosedur Pertama Disposestr (P: PSTRING);

Fungsi Rilis String Pointer P Resource

Deskripsi Penggunaan dengan Newstr

Merujuk ke sistem prosedur.

Contoh <Lihat di atas, lihat di bawah>

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

Prosedur Pertama Assignstr (var p: pString; const S: string);

$ [Sysutils.pas

Fungsi memperbarui string s ke string pointer p

Deskripsi Sumber Daya yang Sebelumnya Pointer String Dirilis Saat Memperbarui Nilai

Fungsi referensi sysutils.newstr; function sysutils.disposestr

contoh

//////////////Mulai Assignstr

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

P: PString;

Mulai

P: = nil;

Assignstr (p, edit1.text);

EDIT2.TEXT: = P^;

Disposestr (P);

akhir;

//////////////Akhiri Assignstr

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

Prosedur pertama AppendStr (var dest: string; const S: string);

$ [Sysutils.pas

Fungsi Tambahkan String S After String Dest

Deskripsi setara dengan DEST: = DEST + S;

Referensi <Null>

contoh

////////////// Mulai Appendstr

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

S: string;

Mulai

S: = edit2.text;

Appendstr (s, edit1.text);

EDIT2.TEXT: = S;

akhir;

/////////////end end appendstr

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

Fungsi header Uppercase (const S: string): string; $ [sysutils.pas

Fungsi mengembalikan bentuk modal string s

Menunjukkan bahwa karakter non-lowercase tidak diproses

Lihat Sistem Prosedur.setLength

Contoh edit2.text: = Uppercase (edit1.text);

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

Function Function Thinkcase (Const S: String): String; $ [SYSUTILS.PAS

Fungsi mengembalikan bentuk huruf kecil dari string

Menunjukkan bahwa karakter non-kapsuler tidak diproses

Lihat Sistem Prosedur.setLength

Contoh edit2.text: = huruf kecil (edit1.text);

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

Fungsi Header CompareStr (Const S1, S2: String): Integer;

Fungsi kembali untuk membandingkan dua karakter

Deskripsi Ketika S1> S2 Mengembalikan Nilai> 0;

Referensi <Null>

Contoh spinedit1.value: = compareStr (edit1.text, edit2.text);

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

Fungsi Pertama Comparemem (P1, P2: Pointer; Panjang: Integer): Boolean;

assembler;

Perbandingan pengembalian fungsi dari dua pointer memori

Deskripsi CompareMem (pchar ('12a'), pchar ('12c'), 2) = true; compareMem (pchar ('12a'),

Pchar ('12c'), 3) = false

Referensi <Null>

Contoh CHECKBOX1.CHECKED: = CompareMem (self, Form1, 8);

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

Fungsi Header CompareText (Const S1, S2: String): Integer;

Fungsi kembali untuk membandingkan dua string

Menunjukkan kasus tidak sensitif

Referensi <Null>

Contoh spinedit1.value: = compareText (edit1.text, edit2.text);

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

Fungsi Header Sametext (Const S1, S2: String): Boolean;

Fungsi mengembalikan apakah dua string sama

Menunjukkan kasus tidak sensitif

Referensi <Null>

Contoh centang box1.Check: = sametext (edit1.text, edit2.text);

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

Fungsi pertama ansiuppercase (const S: string): string; $ [sysutils.pas

Fungsi mengembalikan bentuk modal string s

Deskripsi ANSI (American Standards Institute) American National Standards Institute;

Fungsi referensi windows.charupperbuff

Contoh edit2.text: = ansiuppercase (edit1.text);

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

Fungsi pertama ansilowercase (const S: string): string; $ [sysutils.pas

Fungsi mengembalikan bentuk huruf kecil dari string

Menunjukkan bahwa karakter non-kapsuler tidak diproses

Fungsi Referensi Windows.CharlowerBuff

Contoh edit2.text: = ansilowercase (edit1.text);

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

Fungsi header ansicomparestr (const S1, s2: string): integer;

Fungsi membalikkan perbandingan dua string

Deskripsi Ketika S1> S2 Mengembalikan Nilai> 0;

Fungsi referensi windows.compparestring

Contoh spinedit1.value: = ansicompareStr (edit1.text, edit2.text);

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

Fungsi header ansisamestr (const S1, s2: string): boolean;

Fungsi mengembalikan apakah dua string sama

Deskripsi Kasus Sensitif

Fungsi Referensi Sysutils.Sikomparestr

Contoh centang1.Checked: = ansisamestr (edit1.text, edit2.text);

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

Fungsi header ansicomparetext (const S1, s2: string): integer;

Fungsi membalikkan perbandingan dua string

Deskripsi Ketika S1> S2 Mengembalikan Nilai> 0;

Fungsi referensi windows.compparestring

Contoh spinedit1.value: = ansicomparetext (edit1.text, edit2.text);

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

Fungsi header ansisametext (const S1, s2: string): boolean;

Fungsi mengembalikan apakah dua string sama

Menunjukkan kasus tidak sensitif

Fungsi Referensi Sysutils.SicompareText

Contoh centang kotak.

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

Fungsi Header AnsistrComp (S1, S2: PCHAR): Integer;

Fungsi kembali untuk membandingkan dua string pointer

Deskripsi Ketika S1> S2 Mengembalikan Nilai> 0;

Sistem Fungsi Referensi

Contoh spinedit1.value: = ansistrCompet (pchar (edit1.text), pchar (edit2.text))

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

Fungsi Header Ansistricomp (S1, S2: PCHAR): Integer;

Fungsi kembali untuk membandingkan dua string pointer

Deskripsi Saat S1> S2 Mengembalikan Nilai> 0;

Fungsi referensi windows.compparestring

Contoh spinedit1.value: = ansistricomp (pchar (edit1.text), pchar (edit2.text))

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

Fungsi pertama ansistrlComp (s1, s2: pchar; maxlen: kardinal): integer;

$ [Sysutils.pas

Fungsi kembali untuk membandingkan dua string pointer yang ditentukan panjang

Deskripsi ketika S1> S2 Mengembalikan nilai> 0;

Fungsi referensi windows.compparestring

Contoh spinedit1.value: = ansistrlCompet (pchar (edit1.text), pchar (edit2.text),

Spinedit2.value)

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

Fungsi pertama ansistrlicomp (S1, S2: PCHAR; Maxlen: Cardinal): Integer;

$ [Sysutils.pas

Fungsi kembali untuk membandingkan dua string pointer yang ditentukan panjang

Deskripsi Ketika S1> S2 Mengembalikan Nilai> 0;

Fungsi referensi windows.compparestring

Contoh spinedit1.value: = ansistrlicomp (pchar (edit1.text), pchar (edit2.text),

Spinedit2.value)

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

Fungsi header ansistrlower (str: pchar): pchar; $ [sysutils.pas

Fungsi mengembalikan huruf kecil pointer

Menunjukkan bahwa karakter non-kapsuler tidak diproses

Fungsi Referensi Windows.Charlower

Contoh edit2.text: = ansistrlower (pchar (edit1.text));

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

Fungsi header Ansistrupper (str: pchar): pchar; $ [sysutils.pas

Fungsi mengembalikan kapitalisasi string pointer

Menunjukkan bahwa karakter non-lowercase tidak diproses

Fungsi referensi windows.charupper

Contoh edit2.text: = ansistrupper (pchar (edit1.text));

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

Fungsi pertama ansilastchar (const S: string): pchar;

Fungsi mengembalikan karakter pointer terakhir dari string S

Deskripsi Ketika string S adalah string kosong, penunjuk nol dikembalikan.

Fungsi referensi sysutils.bytetype

Contoh edit2.text: = ansilastchar (edit1.text);

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

Fungsi Header Ansistrlastchar (P: PCHAR): PCHAR;

Fungsi Mengembalikan Karakter Pointer Terakhir dari Pointer String P

Deskripsi Ketika string p adalah penunjuk kosong, ia mengembalikan pointer kosong.

Fungsi referensi sysutils.bytetype

Contoh edit2.text: = ansilastchar (pchar (edit1.text));

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

Fungsi Header Wideuppercase (Const S: Widestring): Widestring;

Fungsi Mengembalikan Kapitalisasi String Double-Byte

Deskripsi Karakter Double-Byte Widechar

Fungsi referensi windows.charupperbuffw

Contoh edit2.text: = Wideuppercase (edit1.text);

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

Fungsi pertama widelowercase (const S: widestring): widestring; $ [sysutils.pas

Fungsi Mengembalikan Bentuk Kecil dari String Double-Byte

Itu berarti mengapa saya tidak bisa mengujinya

Fungsi Referensi Windows.CharlowerBuffW

Contoh edit2.text: = widelowercase (edit1.text);

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

Fungsi pertama widecomparestr (const S1, s2: widestring): integer;

$ [Sysutils.pas

Perbandingan pengembalian fungsi dari dua string byte ganda

Deskripsi Ketika S1> S2 Mengembalikan Nilai> 0;

Fungsi Referensi Windows.Compparestringw

Contoh spinedit1.value: = widecompareStr (edit1.text, edit2.text);

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

Fungsi pertama Widesamestr (Const S1, S2: Widestring): Boolean;

Fungsi mengembalikan apakah dua string double-byte sama

Deskripsi Kasus Sensitif

Fungsi referensi sysutils.widecomparestr

CONTOH CHECKBOX1.CHECKED: = WIDESAMEST (EDIT1.TEXT, EDIT2.TEXT);

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

Fungsi pertama widecomparetext (const S1, s2: widestring): integer;

$ [Sysutils.pas

Perbandingan pengembalian fungsi dari dua string byte ganda

Deskripsi Ketika S1> S2 Mengembalikan Nilai> 0;

Fungsi Referensi Windows.Compparestringw

Contoh spinedit1.value: = widecomparetext (edit1.text, edit2.text);

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

Fungsi pertama WIDESAMETEXT (Const S1, S2: Widestring): Boolean;

$ [Sysutils.pas

Fungsi mengembalikan apakah dua string double-byte sama

Menunjukkan kasus tidak sensitif

Fungsi referensi sysutils.widecomparetext

CONTOH CHECKBOX1.CHECKED: = WIDESAMETEXT (edit1.text, edit2.text);

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

Trim Fungsi Header (Const S: String): String;

Trim Fungsi Pertama (Const S: Widestring): Widestring;

$ [Sysutils.pas

Fungsi kembali untuk menghapus karakter kiri dan kanan string S

Karakter yang menunjukkan bahwa kurang dari #32 dianggap sebagai karakter yang tidak terlihat

Lihat Sistem Fungsi.Copy

Contoh edit2.text: = trim (edit1.text);

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

Fungsi header trimleft (const S: string): string;

Fungsi pertama trimleft (const S: widestring): widestring;

$ [Sysutils.pas

Fungsi kembali untuk menghapus karakter yang tidak terlihat di sebelah kiri string S

Karakter yang menunjukkan bahwa kurang dari #32 dianggap sebagai karakter yang tidak terlihat

Lihat Sistem Fungsi.Copy

Contoh edit2.text: = trimleft (edit1.text);

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

Fungsi Header TrimRight (Const S: String): String;

Fungsi pertama trimright (const S: widestring): widestring;

$ [Sysutils.pas

Fungsi kembali untuk menghapus karakter yang tidak terlihat di sebelah kanan string S

Karakter yang menunjukkan bahwa kurang dari #32 dianggap sebagai karakter yang tidak terlihat

Lihat Sistem Fungsi.Copy

Contoh edit2.text: = trimright (edit1.text);

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

Fungsi Header QuotedStr (Const S: String): String; $ [SYSUTILS.PAS

Fungsi mengembalikan ekspresi string S di Pascal

Penjelasan: Satu kutipan tunggal dalam kutipan tunggal akan dikonversi menjadi dua

Lihat Sistem Prosedur.

Contoh edit2.text: = quotedstr (edit1.text);

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

Fungsi pertama ansiquotedStr (const S: string; quote: char): string;

$ [Sysutils.pas

Fungsi mengembalikan ekspresi string S dengan kutipan karakter sebagai kutipan

Deskripsi ansiquotedstr ('halo "dunia',

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

Fungsi referensi sysutils.ansistrscan

Contoh edit2.text: = ansiquotedStr (edit1.text, '"');

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

Fungsi pertama ansiExtractquotedStr (var src: pchar; kutipan: char): string;

$ [Sysutils.pas

Fungsi mengembalikan bentuk asli dari kutipan karakter sebagai kutipan

Ini berarti bahwa SRC tetap tidak berubah ketika ekspresi itu ilegal.

Fungsi referensi sysutils.ansistrscan

contoh

////////// Mulai ansiextractquotedstr

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

P: PCHAR;

Mulai

P: = pchar (edit1.text);

Edit2.text: = ansiExtractquotedStr (p, '"');

EDIT3.TEXT: = P;

akhir;

////////// end ansiextractquotedstr

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

Fungsi pertama ansidequotedStr (const S: string; aquote: char): string;

$ [Sysutils.pas

Fungsi Mengembalikan Bentuk Asli dari Karakter Aquote Sebagai Kutipan

Saat ekspresi itu ilegal, ia kembali

Fungsi Referensi Sysutils.AnsiextractquotedStr

Contoh edit2.text: = ansidequotedStr (edit1.text, '"');

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

Fungsi Penyesuaian FirstLeBreaks (const S: string; gaya: ttextlinebreakstyle =

{$ Ifdef linux} tlbslf {$ endif} {$ ifdef mswindows} tlbscrlf {$ endif}):

string;

Fungsi kembali untuk menyesuaikan pemisah garis dari string yang diberikan ke urutan CR/LF

menjelaskan

AdjectLineBreaks ('1'#13'2 '#13) =' 1 '#13#10'2'#13#10; ADANTLLINEBREAKS ('1'#10'2 '#10) =' 1 '#13#10 '2'#13#10

Fungsi referensi sysutils.strnextchar

Contoh <Null>

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

Fungsi header isValidident (const ident: string): boolean; $ [sysutils.pas

Fungsi mengembalikan apakah ident string adalah pengidentifikasi yang benar

Deskripsi Identifier :: Letters | menggarisbawahi [huruf | menggarisbawahi | angka] ...

Referensi <Null>

Contoh centang1.Checked: = isValIdident (edit1.text);

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

Fungsi Header InttoStr (Nilai: Integer): String;

Fungsi header inttoStr (nilai: int64): string;

Fungsi mengembalikan nilai integer untuk dikonversi ke string

Format Deskripsi ('%d', [nilai])

Fungsi referensi sysutils.fmtstr

Contoh edit2.text: = inttoStr (spinedit1.value);

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

Fungsi pertama intohex (nilai: integer; digit: integer): string;

$ [Sysutils.pas

Fungsi pertama intohex (nilai: int64; digit: integer): string;

$ [Sysutils.pas

Fungsi mengembalikan nilai integer yang dikonversi ke hasil kinerja heksadesimal;

Deskripsi Digit Parameter Menentukan lebar minimum karakter; jika lebar minimum tidak mencukupi, itu akan diisi dengan 0.

Fungsi referensi sysutils.fmtstr

Contoh edit2.text: = inttHoHex (spinedit1.value, spinedit2.value);

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

Fungsi header strtoint (const S: string): integer; $ [sysutils.pas

Fungsi mengembalikan string S untuk mengubahnya menjadi bilangan bulat

Penjelasan: Pengecualian akan disebabkan ketika string diekspresikan oleh non-integral

Lihat Sistem Prosedur. Val

Contoh spinedit1.value: = strtoint (edit1.text);

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

Fungsi pertama strtointDef (const S: string; default: integer): integer;

$ [Sysutils.pas

Fungsi mengembalikan string S untuk mengubahnya menjadi bilangan bulat

Default dikembalikan ketika string diekspresikan oleh non-integral.

Lihat Sistem Prosedur. Val

Contoh spinedit1.value: = strtointDef (edit1.text, 0);

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

Fungsi pertama trystrtoint (const S: string; out value: integer): boolean;

$ [Sysutils.pas

Fungsi mengembalikan apakah string S dikonversi ke nilai integer berhasil

Deskripsi False dikembalikan saat string diekspresikan oleh non-integer dan nilai akan output sebagai 0

Lihat Sistem Prosedur. Val

contoh

////////// Mulai Trystrtoint

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

I: Integer;

Mulai

CHECKBOX1.CHECKED: = Trystrtoint (Edit1.Text, i);

Spinedit1.value: = i;

akhir;

////////// end trystrtoint

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

Fungsi header strtoint64 (const S: string): int64; $ [sysutils.pas

Fungsi mengembalikan string S untuk mengubahnya menjadi integer enam puluh empat bit

Penjelasan: Pengecualian akan disebabkan ketika string diekspresikan oleh bilangan bulat non-64-bit.

Lihat Sistem Prosedur. Val

Contoh spinedit1.value: = strtoint64 (edit1.text);

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

Fungsi pertama strtoint64def (const S: string; const default: int64): int64;

$ [Sysutils.pas

Fungsi mengembalikan string S untuk mengubahnya menjadi integer enam puluh empat bit

Default dikembalikan ketika string diekspresikan oleh bilangan bulat non-64-bit.

Lihat Sistem Prosedur. Val

Contoh spinedit1.value: = strtoint64def (edit1.text, 0);

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

Fungsi pertama trystrtoint64 (const S: string; out value: int64): boolean;

$ [Sysutils.pas

Fungsi mengembalikan apakah string S dikonversi menjadi nilai integer enam puluh empat bit berhasil

Deskripsi False dikembalikan ketika string diekspresikan oleh bilangan bulat non-enam puluh empat-bit dan nilai akan output sebagai 0

Lihat Sistem Prosedur. Val

contoh

////////// Mulai Trystrtoint64

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

I: int64;

Mulai

CHECKBOX1.CHECKED: = Trystrtoint64 (Edit1.Text, i);

Spinedit1.value: = i;

akhir;

////////// end trystrtoint64

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

Fungsi pertama strtobool (const S: string): boolean; $ [sysutils.pas

Fungsi mengembalikan string S untuk mengubahnya menjadi nilai logis

Karakter penjelasan akan menyebabkan pengecualian ketika tidak diekspresikan secara logis

Fungsi referensi 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

contoh

///////Begin TryStrToBool

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

B: Boolean;

Mulai

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;

akhir;

///////End TryStrToBool

Terlampir

///////Begin TryStrToBool

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

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

var

I: Integer;

Mulai

Result := False;

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

if AnsiSameText(S, aArray[I]) then

Mulai

Result := True;

Merusak;

akhir;

akhir;

var

LResult: Extended;

Mulai

Result := TryStrToFloat(S, LResult);

if Result then

Value := LResult <> 0

kalau tidak

Mulai

Result := True; //修正处

VerifyBoolStrArray;

if CompareWith(TrueBoolStrs) then

Value := True

else if CompareWith(FalseBoolStrs) then

Value := False

kalau tidak

Result := False;

akhir;

akhir;

///////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

contoh

///////Begin StrMove

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

vBuffer: PChar;

Mulai

vBuffer := '0123456789';

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

Edit2.Text := vBuffer;

akhir;

///////End StrMove

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

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

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中

说明Dest应已经分配足够的空间非则将触发异常

参考<NULL>

contoh

///////Begin StrCopy

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

vBuffer: PChar;

Mulai

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

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

Edit2.Text := vBuffer;

FreeMem(vBuffer);

akhir;

///////End StrCopy

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

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

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中的结尾

说明可以连接指针字符串

参考<NULL>

contoh

///////Begin StrECopy

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

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

Mulai

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

Edit3.Text := vBuffer;

akhir;

///////End StrECopy

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

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

PChar; $[SysUtils.pas

功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中

说明Dest应已经分配足够的空间非则将触发异常

参考<NULL>

contoh

///////Begin StrLCopy

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

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

Mulai

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

Edit2.Text := vBuffer;

akhir;

///////End StrLCopy

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

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

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中

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

参考function SysUtils.StrLCopy

contoh

///////Begin StrPCopy

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

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

Mulai

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

Edit2.Text := vBuffer;

akhir;

///////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

contoh

///////Begin StrPLCopy

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

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

Mulai

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

Edit2.Text := vBuffer;

akhir;

///////End StrPLCopy

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

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

$[SysUtils.pas

功能返回连接指针字符串Dest和指针字符串Source

说明StrCopy(StrEnd(Dest), Source)

参考function SysUntils.StrCopy

contoh

///////Begin StrCat

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

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

Mulai

StrPCopy(vBuffer, Edit1.Text);

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

Edit3.Text := vBuffer;

akhir;

///////End StrCat

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

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

PChar; $[SysUtils.pas

功能返回连接指针字符串Dest和指针字符串Source

说明[注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度

参考<NULL>

contoh

///////Begin StrLCat

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

var

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

Mulai

StrPCopy(vBuffer, Edit1.Text);

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

Edit3.Text := vBuffer;

akhir;

///////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(