Header -Funktion RightStr (const Atext: String; Conste Acount: Integer): String;
Die Funktion gibt die Acount -Zeichen auf der rechten Seite des String -Atextes zurück
Beschreibung RightStr ('123456', 3) = '456'
Siehe Funktionssystem.copy
Beispiel Edit3.Text: = rightstr (edit1.text, spiedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Midstr (const Atext: String; const astart, acount: Ganzzahl): String;
Die Funktion gibt die String -Atetext -Acount -Zeichen ab Astart zurück
Es bedeutet Kopie
Siehe Funktionssystem.copy
Beispiel Edit3.Text: = MIDSTR (edit1.text, spiedit1.value, spinedit2.Value);
━━━━━━━━━━━━━━━━━━━━━
Header Function Searchbuf (BUF: PCHRE; BUFLEN: Ganzzahl;
Die Funktion gibt die erste durchsuchte Zeigerposition zurück
Erklären Sie, dass diese Funktion häufig verwendet wird, um Zeichenfolgen im Text zu durchsuchen
Referenz <null>
Beispiel
////////// begin Searchbuf
Funktion SearchEdit (editControl: tcustomedit; const searchString: String;
Suchoptionen: tstringsearchoptions;
var
Puffer, P: pchar;
Größe: Wort;
Beginnen
Ergebnis: = falsch;
if (Länge (suchstring) = 0), beenden Sie;
Größe: = editControl.getTextlen;
if (size = 0) dann beenden;
Puffer: = stralloc (Größe + 1);
versuchen
EditControl.getTextBuf (Puffer, Größe + 1);
P: = Searchbuf (Puffer, Größe, editcontrol.selstart, editControl.sellength,
SearchString, Suche);
Wenn p <> nil dann beginnen
EditControl.selstart: = p - puffer;
EditControl.Sellength: = Länge (SearchString);
Ergebnis: = wahr;
Ende;
Endlich
StrDiSon (Puffer);
Ende;
Ende;
Procedure tform1.button1click (Absender: tobject);
var
Suchoptionen: TStringSearchoptions;
Beginnen
Suche: = [];
Wenn Checkbox1.Conted dann
Integrieren (Searchoptions, Sodown);
Wenn pookbox2.Conted dann
Integrieren (Searchoptions, SomatchCase);
Wenn Checkbox3.Conted dann
Integrieren (Searchoptions, Sowholwort);
SearchEdit (memo1, edit1.text, searchoptions);
Memo1.setfocus;
Ende;
////////// End Searchbuf
━━━━━━━━━━━━━━━━━━━━━
Header Function SoundEx (const Atext: String; Alength: TSoundExLength = 4): String;
Die Funktion gibt die Erkennungszeichenfolge zurück
Erläuterung: Gemäß der Erkennungsmethode (SoundEx) finden Sie die sich überschneidende Zeichenfolge
Referenz <null>
Beispiel Edit2.text: = SoundEx (edit1.text, spiedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Header Function SoundExint (const Atext: String; Alength: TSoundExintLength = 4): Integer;
Die Funktion gibt die Erkennungsgülleger zurück
Dies bedeutet, dass je größer der Wert der Stillstand ist, desto höher die Dekodierungsgenauigkeit
Referenz <null>
Beispiel SpineInit2.Value: = SoundExint (edit1.text, spinedit1.Value);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion decodesoundExint (Avalue: Integer): String;
Die Funktion gibt die Dekodierung der Sondenbefänger zurück
Beschreibung DecodesoundExint (SoundExint ('Hallo') entspricht SoundEx ('Hallo').
Referenz <null>
Beispiel Edit2.Text: = decodesoundExint (spIeNitit2.Value);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion SoundExword (const Atext: String): Word;
Die Funktion gibt den Erkennungstextwert zurück
Zeigt an, dass es keine Parameterspalle gibt, die auf 4 festgelegt wurde
Referenz <null>
Beispiel spiedit2.Value: = SoundExword (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion decodesoundExword (Avalue: Wort): String;
Die Funktion gibt die Dekodierung des Erkennungstextwerts zurück
Beschreibung decodesoundExword (SoundExword ('Hallo')) entspricht SoundEx ('Hallo').
Referenz <null>
Beispiel Edit2.Text: = decodesoundExword (SpIeNitIt2.Value);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion SoundExsimilar (const text, aother: String; Alength: TSoundExLength = 4): boolean;
Die Funktion gibt zurück, ob die Sondenzeichenfolgen der beiden Saiten gleich sind
Beschreibung Ergebnis: = SoundEx (Atentex, Alänge) = SoundEx (AOTER, NAHRENGE)
Referenz <null>
Beispiel Checkbox1.Conted: = SoundExsimilar (edit1.text, edit2.text, spiedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Header Function SoundExCompare (const text, aother: String; Alength: TSoundExLength = 4): Integer;
Die Funktion gibt das Ergebnis des Vergleichs von zwei Zeichenfolgen zum Erkennen von Zeichenfolgen zurück
Beschreibung Ergebnis: = Ansicomatest (SoundEx (Atetex, Alänge), SoundEx (AOTER, NAHRENGE))
Referenzfunktion Sysutils.Ansicomatest
Beispiel SpineInit2.Value: = SoundExCompare (edit1.text, edit2.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion SoundExProc (const text, aother: string): boolean;
Funktion Call SoundExsimilar, um die Sondenzeichenfolgen der beiden Saiten zurückzugeben.
Beschreibung des Standardwerts von Systemvariablen AnsieSemblesProc
Referenzfunktion Strutils.anssireSemblestext
Beispiel [var AnsieSemblesProc: tComparetextProc = SoundExProc;]