Koleksi Fungsi Delphi6 (2)

Fungsi Header Rightstr (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 header midstr (const atext: string; const astart, acount: integer): string; $ [strutils.pas

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 Header SearchBuf (BUF: PCHAR; BUFLEN: Integer; Selstart, Sellength: Integer; SearchString: String; Opsi: TStringsearchOptions = [SODOWN]): PCHAR;

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 Header SoundEx (const atext: string; allength: tsoundexlength = 4): string; $ [strutils.pas

Fungsi Mengembalikan String Deteksi

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

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 Header 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 Header SoundExcompare (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, alength)))

Fungsi Referensi Sysutils.Sikomparestr

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

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

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

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;]