Verwendet Strudils;
Erste Funktion AnsieSeMBLESTEXT (const text, aother: string): boolean;
$ [Strudils.pas
Funktion gibt zurück, ob die beiden Zeichenfolgen ähnlich sind
Beschreibung ANSI (American National Standards Institute) American National Standards Institute;
Referenzfunktion Strutils.SoundexProc;
Beispiel Checkbox1.Conted: = AnsieSeMBLESTEXT (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsicontainStext (const text, asubtext: string): boolean;
$ [Strudils.pas
Die Funktion gibt zurück, ob der String -Attext einen Substring -Asubtext enthält
Zeigt den Fall unempfindlich an
Referenzfunktion Strutils.Ansiuppercase;
Beispiel Checkbox1.Conted: = AnsicontainStext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsistArtStExt (const asubtext, text: string): boolean;
$ [Strudils.pas
Die Funktion gibt zurück, ob der String -Attext mit einem Substring -AsubText beginnt
Zeigt den Fall unempfindlich an
Referenzfunktion Windows.comPestring
Beispiel Checkbox1.Conted: = AnsistArtStext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnSiendStext (const asubtext, text: string): boolean;
$ [Strudils.pas
Die Funktion gibt zurück, ob der String -Attext mit einem Substring -Asubtext endet
Zeigt den Fall unempfindlich an
Referenzfunktion Windows.comPestring
Beispiel Checkbox1.Conted: = AnSendStExt (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Die erste Funktion AnsiReplacetext (const text, Afromtext, Atotext: String):
String; $ [Strudils.pas
Die Funktion gibt das Ergebnis des Ersetzens des Substring -Afromtext durch Substring -Atotext im String -Attext zurück
Zeigt den Fall unempfindlich an
Referenzfunktion sysutils.StringReplace;
Beispiel Edit4.Text: = Ansireplacetext (edit1.text, edit2.text, edit3.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsimatchText (const Atext: String; const Avalues: Array von
String): Boolean;
Die Funktion gibt zurück, ob der String -Attext in den String -Array -Avalues enthalten ist
Zeigt den Fall unempfindlich an
Referenzfunktion Strutils.ANSIIndextext
Beispiel Checkbox1.Conted: = AnsimatchText (edit1.text, ['A1', 'A2', 'A3',,
'a4']);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Ansiindextext (const Atext: String; const Avalues: Array von
String): Ganzzahl;
Die Funktion gibt die Position des String -Attextes in den String -Array -Avalues zurück
Zeigt an, dass es in der Fall ist, wenn nicht.
Referenzfunktion Sysutils.AnsisameText
Beispiel spiedit1.Value: = ansiindextext (edit1.text, ['a1', 'a2', 'a3', 'a4']);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsicontainSSSTR (const text, asubText: String): boolean;
$ [Strudils.pas
Die Funktion gibt zurück, ob der String -Attext einen Substring -Asubtext enthält
Beschreibung Fall empfindlich
Referenzfunktion Strudils.anssipos
Beispiel Checkbox1.Conted: = AnsicontainSstr (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsistArtsstr (const asubtext, text: string): boolean;
$ [Strudils.pas
Die Funktion gibt zurück, ob der String -Attext mit einem Substring -AsubText beginnt
Beschreibung Fall empfindlich
Referenzfunktion Sysutils.Ansisamestern
Beispiel Checkbox1.Conted: = AnsistArtsstr (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Ansiendsstr (const asubtext, text: string): boolean;
$ [Strudils.pas
Die Funktion gibt zurück, ob der String -Attext mit einem Substring -Asubtext endet
Beschreibung Fall empfindlich
Referenzfunktion Sysutils.Ansisamestern
Beispiel Checkbox1.Conted: = Ansiendsstr (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Die erste Funktion Ansireplacestre (const text, Afromtext, Atotext: String):
String; $ [Strudils.pas
Die Funktion gibt das Ergebnis des Ersetzens des Substring -Afromtext durch Substring -Atotext im String -Attext zurück
Beschreibung Fall empfindlich
Referenzfunktion sysutils.StringReplace;
Beispiel Edit4.Text: = ansireplacestre (edit1.text, edit2.text, edit3.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Ansimatchstr (const Atext: String; const Avalues: Array von
String): Boolean;
Die Funktion gibt zurück, ob der String -Attext in den String -Array -Avalues enthalten ist
Beschreibung Fall empfindlich
Referenzfunktion Strutils.Ansiindexstr
Beispiel Checkbox1.Conted: = Ansimatchstr (edit1.text, ['a1', 'a2', 'a3',
'a4']);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Ansiindexstr (const Atext: String; const Avalues: Array von
String): Ganzzahl;
Die Funktion gibt die Position des String -Attextes in den String -Array -Avalues zurück
Beschreibung Fall empfindlich
Referenzfunktion Sysutils.Ansisamestern
Beispiel spIeNeIn1.Value: = ansiindexstr (edit1.text, ['a1', 'a2', 'a3', 'a4']);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Dupestring (const Atext: String; Acount: Integer): String;
$ [Strudils.pas
Funktion gibt ACOUNT -Repliken des String -Atextes zurück
Beschreibung gibt '' zurück, wenn Acount 0 ist
Siehe Funktionssystem.SetLength
Beispiel Edit3.Text: = dupestring (edit1.text, spiedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Header Function ReverseString (const Atext: String): String;
Die Funktion gibt die inverse Reihenfolge des String -Attextes zurück
BESCHREIBUNG UNTERSESTRING ('1234') = '4321' '
Siehe Funktionssystem.SetLength
Beispiel Edit3.Text: = ReverseString (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erstfunktion StuffRing (const Atext: String; Astart, Alength: Cardinal;
const asubtext: String): String;
Funktionsrenditen verschachtelte Saiten
Beschreibung Astart: Nistposition;
Siehe Funktionssystem.copy
Beispiel Edit3.Text: = StuffString (edit1.text, spiedit1.value, spiedit2.value,
Edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion RandomFrom (const Avalues: Array der String): String;
$ [Strudils.pas
Funktion gibt zufällig ein Element in den String -Array -Avalues zurück
Erklären Sie, dass es empfohlen wird, Randomize vorher auszuführen
Referenzfunktionssystem.Random
Beispiel Randomize;
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion ifthen (Avalue: boolean; const atree: string; afalse: string =
''): String;
Die Funktion gibt die angegebene logische Zeichenfolge zurück
Ifthen (wahr, 'Ja', 'nein') = 'Ja'; iften (falsch, 'Ja', 'nein') = 'Nein'
Referenz <null>
Beispiel Edit3.Text: = ifThen (CheckBox1.Conted, Edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Leftstr (const Atext: String; Constcount: Integer): String;
$ [Strudils.pas
Die Funktion gibt die Acount -Zeichen auf der linken Seite des String -Atextes zurück
Beschreibung Leftstr ('123456', 3) = '123'
Siehe Funktionssystem.copy
Beispiel Edit3.Text: = linkSstr (edit1.text, spiedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion RightStr (const Atext: String; Constcount: Integer): String;
$ [Strudils.pas
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);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion MIDSTR (const Atext: String; const astart, acount: Ganzzahl):
String; $ [Strudils.pas
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);
━━━━━━━━━━━━━━━━━━━━━
Erstfunktions Searchbuf (BUF: pchar; Buflen: Integer; Selstart, Sellength:
Ganzzahl;
Pchar; $ [Strudils.pas
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
━━━━━━━━━━━━━━━━━━━━━
Der erste Funktion SoundEx (const text: String; Alength: TSoundExLength = 4):
String; $ [Strudils.pas
Die Funktion gibt die Erkennungszeichenfolge zurück
Erläuterung: Gemäß der Erkennungsmethode (SoundEx) finden Sie die Schnittschnelle
Referenz <null>
Beispiel Edit2.text: = SoundEx (edit1.text, spiedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Header Function SoundExint (const Atext: String; Alength: TSoundExintLength =
4): Ganzzahl;
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);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion SoundExsimailar (const text, aother: String; Höchststoffe:
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);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion SoundExCompare (const text, aother: String; Höchststoffe:
TSoundExLength = 4): Integer;
Die Funktion gibt das Ergebnis des Vergleichs von zwei Zeichenfolgen zum Erkennen von Zeichenfolgen zurück
Beschreibung Ergebnis: = Ansicomatest (SoundEx (Atetex, Verbleib), SoundEx (aother,
Höhen)))
Referenzfunktion Sysutils.Ansicomatest
Beispiel SpineInit2.Value: = SoundExCompare (edit1.text, edit2.text,
SpiedIt1.Value);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion SoundExProc (const text, aother: string): boolean;
$ [Strudils.pas
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;]
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion (const s: String): Pstring;
Die Funktion gibt eine neue Stringzeigeradresse zurück
Beschreibung return nullstr, wenn die Zeichenfolge S leer ist
Siehe Verfahrenssystem.new
Beispiel
/////////////
procedure tform1.button1click (Absender: tobject);
var
P: Pstring;
Beginnen
P: = NewStr (edit1.text);
Edit2.text: = p^;
DispoSestre (p);
Ende;
///////////// End Newstr, DispoSest
━━━━━━━━━━━━━━━━━━━━━
Erstes Verfahren Disposistr (P: Pstring);
Funktion Release String Zeiger P Ressource
Beschreibung Verwendung mit Newstr
Siehe Verfahrenssystem
Beispiel <siehe oben siehe unten>
━━━━━━━━━━━━━━━━━━━━━
Erstes Verfahren zugewiesen (var p: pstring; const s: String);
$ [Sysutils.pas
Funktion aktualisiert Zeichenfolge s zu String Zeiger p
Beschreibung Ressourcen, die zuvor String -Zeiger waren, die beim Aktualisieren der Werte veröffentlicht wurden
Referenzfunktionssysteme.Newstr; Funktion sysutils.disposestres
Beispiel
/////////////
procedure tform1.button1click (Absender: tobject);
var
P: Pstring;
Beginnen
P: = nil;
Beauftragtstr (p, edit1.text);
Edit2.text: = p^;
DispoSestre (p);
Ende;
///////////// End zugewiesen
━━━━━━━━━━━━━━━━━━━━━
Erstes Vorgehensweise appendstr (var dest: string; const s: String);
$ [Sysutils.pas
Funktion appendieren String s nach String dest
Die Beschreibung entspricht Dest: = dest + s;
Referenz <null>
Beispiel
////////////// Gang appendstr
procedure tform1.button1click (Absender: tobject);
var
S: String;
Beginnen
S: = edit2.text;
Appendstr (s, edit1.text);
Edit2.text: = s;
Ende;
//////////// End Appendstr
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Großbuchstaben (const s: String): String;
Funktion gibt die Kapitalform der Zeichenfolge s zurück
Zeigt an, dass Nicht-niedrigerer Charaktere nicht verarbeitet werden
Siehe Prozedursystem.SetLength
Beispiel edit2.text: = obercase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erstfunktionsgeborener (const s: String): String;
Die Funktion gibt die Kleinbuchstabenform der Zeichenfolge S zurück
Zeigt an, dass nicht kapsuläre Zeichen nicht verarbeitet werden
Siehe Prozedursystem.SetLength
Beispiel Edit2.text: = Kleinbuchstaben (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Componist (const S1, S2: String): Integer;
Die Funktion kehrt zurück, um zwei Zeichen zu vergleichen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenz <null>
Beispiel SpIeNeIn1.Value: = CompectEST (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktionsvergleiche (P1, P2: Zeiger; Länge: Ganzzahl): boolean;
Assembler; $ [sysutils.pas
Funktionsertragsvergleich von zwei Speicherzeigern
Beschreibung Vergleiche (pChar ('12a'), pchar ('12c'), 2) = true; Vergleiche (pchar ('12a'),
Pchar ('12c'), 3) = false
Referenz <null>
Beispiel Checkbox1.Conted: = VergleicheM (Self, Form1, 8);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Vergleichext (const S1, S2: String): Integer;
Funktion kehrt zurück, um zwei Zeichenfolgen zu vergleichen
Zeigt den Fall unempfindlich an
Referenz <null>
Beispiel SpIeNeIn1.Value: = vergleichext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Sametext (const S1, S2: String): boolean;
Funktion gibt zurück, ob zwei Zeichenfolgen gleich sind
Zeigt den Fall unempfindlich an
Referenz <null>
Beispiel Checkbox1.Conted: = SamEText (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Ansiuppercase (const s: String): String;
Funktion gibt die Kapitalform der Zeichenfolge s zurück
Beschreibung ANSI (American National Standards Institute) American National Standards Institute;
Referenzfunktion Windows.charupperBuff
Beispiel Edit2.text: = Ansiuppercase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsilowerCase (const s: String): String;
Die Funktion gibt die Kleinbuchstabenform der Zeichenfolge S zurück
Zeigt an, dass nicht kapsuläre Zeichen nicht verarbeitet werden
Referenzfunktion Windows.CharlowerBuff
Beispiel Edit2.text: = AnsilowerCase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Headerfunktion Ansicomatest (const S1, S2: String): Ganzzahl;
Funktion umgekehrter Vergleich von zwei Zeichenfolgen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenzfunktion Windows.comPestring
Beispiel spIeNeIn1.Value: = Ansicomatest (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Ansissamestern (const S1, S2: String): boolean;
Funktion gibt zurück, ob zwei Zeichenfolgen gleich sind
Beschreibung Fall empfindlich
Referenzfunktion Sysutils.Ansicomatest
Beispiel Checkbox1.Conted: = Ansisamestre (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Ansicomparetext (const S1, S2: String): Integer;
Funktion umgekehrter Vergleich von zwei Zeichenfolgen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenzfunktion Windows.comPestring
Beispiel spIeNeIn1.Value: = Ansicomparetext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Ansisametext (const S1, S2: String): boolean;
Funktion gibt zurück, ob zwei Zeichenfolgen gleich sind
Zeigt den Fall unempfindlich an
Referenzfunktionsutile.Ansicomparetext
Beispiel Checkbox1.Conted: = AnsisameText (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion ANSISTRCMP (S1, S2: PCHR): Ganzzahl;
Die Funktion kehrt zurück, um zwei Zeigerketten zu vergleichen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenzfunktion System.Compostring
Beispiel SpineInit1.Value: = ANSISTRCompcon (pChar (edit1.text), pchar (edit2.text))
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Ansistricomp (S1, S2: PCHR): Ganzzahl;
Die Funktion kehrt zurück, um zwei Zeigerketten zu vergleichen
Beschreibung, wenn S1> 0 zurückgibt;
Referenzfunktion Windows.comPestring
Beispiel SpineInit1.Value: = Ansiktricomp (pChar (edit1.text), pchar (edit2.text))
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnSstrlComp (S1, S2: PCHR; Maxlen: Kardinal): Integer;
$ [Sysutils.pas
Funktion Return, um zwei angegebene Länge der Zeigerketten zu vergleichen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenzfunktion Windows.comPestring
Beispiel SpineInit1.Value: = AnsistrlComp (pChar (edit1.text), pchar (edit2.text),
Spiedit2.value)
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Ansistricomp (S1, S2: pchar; Maxlen: Kardinal): Ganzzahl;
$ [Sysutils.pas
Funktion Return, um zwei angegebene Länge der Zeigerketten zu vergleichen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenzfunktion Windows.comPestring
Beispiel SpineInit1.Value: = Ansistricomp (pChar (edit1.text), pchar (edit2.text),
Spiedit2.value)
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Ansistlower (str: pchar): pchar; $ [sysutils.pas
Funktion gibt Zeiger String -Kleinbuchstaben zurück
Zeigt an, dass nicht kapsuläre Zeichen nicht verarbeitet werden
Referenzfunktion Windows.Charlower
Beispiel Edit2.text: = Ansistlower (pChar (edit1.text));
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Anstrupper (str: pchar): pchar; $ [sysutils.pas
Funktion gibt Zeiger -String -Kapitalisierung zurück
Zeigt an, dass Nicht-niedrigerer Charaktere nicht verarbeitet werden
Referenzfunktion Windows.charupper
Beispiel edit2.text: = ansiktupper (pchar (edit1.text));
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Ansilastchar (const s: String): pchar; $ [sysutils.pas
Die Funktion gibt den letzten Zeigercharakter der Zeichenfolge S zurück
Beschreibung Wenn die Zeichenfolge S eine leere Zeichenfolge ist, wird ein Nullzeiger zurückgegeben.
Referenzfunktion sysutils.ByTetype
Beispiel edit2.text: = ansilastchar (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Ansistlastchar (p: pchar): pchar; $ [sysutils.pas
Funktion gibt den letzten Zeigercharakter der Zeigerzeichenfolge P zurück
Beschreibung Wenn der Zeichenfolge P ein leerer Zeiger ist, gibt er einen leeren Zeiger zurück.
Referenzfunktion sysutils.ByTetype
Beispiel edit2.text: = ansilastchar (pchar (edit1.text));
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion WidmUPPercase (const s: Widestring): Widestring;
Funktion gibt die Kapitalisierung einer Doppel-Byte-Zeichenfolge zurück
Beschreibung Widechar-Doppel-Byte-Zeichen
Referenzfunktion Windows.charupperBuffw
Beispiel edit2.text: = widchuppercase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion WidelowerCase (const s: Widestring): Widestring;
Funktion gibt die Kleinbuchstabenform einer Doppel-Byte-Zeichenfolge zurück
Es bedeutet, warum ich es nicht testen kann
Referenzfunktion Windows.CharlowerBuffw
Beispiel edit2.text: = widelowerCase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion WidComatest (const S1, S2: Widestring): Ganzzahl;
$ [Sysutils.pas
Funktionsertragsvergleich von zwei Doppel -Byte -Zeichenfolgen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenzfunktion Windows.comPringw
Beispiel SpineInit1.Value: = widComatest (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erstfunktion WIDESAMESTR (const S1, S2: Widestring): Boolesche $ [sysutils.pas
Die Funktion gibt zurück, ob zwei Doppelbyte-Zeichenfolgen gleich sind
Beschreibung Fall empfindlich
Referenzfunktion sysutils.wideComatest
Beispiel Checkbox1.Conted: = wideSamestern (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Widtenkomparetext (const S1, S2: Widestring): Ganzzahl;
$ [Sysutils.pas
Funktionsertragsvergleich von zwei Doppel -Byte -Zeichenfolgen
Beschreibung, wenn S1> S2 Wert> 0 zurückgibt;
Referenzfunktion Windows.comPringw
Beispiel spIeNeIn1.Value: = WideComparetext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Erstfunktion WidesameText (const S1, S2: Widestring): boolean;
$ [Sysutils.pas
Die Funktion gibt zurück, ob zwei Doppelbyte-Zeichenfolgen gleich sind
Zeigt den Fall unempfindlich an
Referenzfunktion sysutils.widecomparetext
Beispiel Checkbox1.Conted: = WideAmetext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion (const s: String): String;
Erste Funktionsverkleidung (const s: Widestring): Widestring;
$ [Sysutils.pas
Die Funktion kehrt zurück, um die linken und rechten Zeichen der Zeichenfolge S zu entfernen
Zeichen, die darauf hinweisen, dass weniger als #32 als unsichtbare Zeichen angesehen werden
Siehe Funktionssystem.copy
Beispiel edit2.text: = trim (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion TrimLeft (const s: String): String;
Erste Funktion TrimLeft (const s: Widestring): Widestring;
$ [Sysutils.pas
Funktion kehren Sie zurück, um die unsichtbaren Zeichen links von der Zeichenfolge S zu entfernen
Zeichen, die darauf hinweisen, dass weniger als #32 als unsichtbare Zeichen angesehen werden
Siehe Funktionssystem.copy
Beispiel Edit2.text: = trimLeft (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Header Function Trimright (const s: String): String;
Erste Funktion trimright (const s: widestring): widestring;
$ [Sysutils.pas
Funktion kehren Sie zurück, um die unsichtbaren Zeichen rechts neben der Zeichenfolge zu entfernen
Zeichen, die darauf hinweisen, dass weniger als #32 als unsichtbare Zeichen angesehen werden
Siehe Funktionssystem.copy
Beispiel Edit2.text: = trimRight (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion zitiert (const s: String): String;
Die Funktion gibt den Ausdruck der String S in Pascal zurück
Erläuterung: Ein einziges Zitat im einzelnen Zitat wird in zwei konvertiert
Siehe Verfahrenssystem.insert
Beispiel edit2.text: = zitiertstr (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsiquotedStr (const s: String; Zitat: Zeichen): String;
$ [Sysutils.pas
Die Funktion gibt den Ausdruck der Zeichenfolge S mit dem Zeichenangebot als Zitate zurück
Beschreibung Ansiquottstr ("Hallo" Welt ",
'@') = '@hello "world@'; Ansiquottstr ('Hallo" Welt', "') ='" Hallo "" Welt "''
Referenzfunktionsutile.ansistrscan
Beispiel edit2.text: = ansiquotedStr (edit1.text, '"');
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsiextractQuotedStr (var Src: pchar; Zitat: char): String;
$ [Sysutils.pas
Die Funktion gibt die ursprüngliche Form des Zeichenangebots als Zitate zurück
Dies bedeutet, dass SRC unverändert bleibt, wenn der Ausdruck illegal ist.
Referenzfunktionsutile.ansistrscan
Beispiel
////////// beginne AnsiextractQuotedstr
procedure tform1.button1click (Absender: tobject);
var
P: pchar;
Beginnen
P: = pchar (edit1.text);
Edit2.text: = ansiextractQuotedStr (p, '"');
Edit3.text: = p;
Ende;
////////// End AnsiextractQuotedstr
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion AnsideQuotedStr (const s: String; Aquote: char): String;
$ [Sysutils.pas
Die Funktion gibt die ursprüngliche Form des Zeichenaquote als Zitate zurück
Wenn der Ausdruck illegal ist, gibt er s zurück
Referenzfunktionssysteme
Beispiel edit2.text: = ansideQuotedStr (edit1.text, '"');
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion ordnungsgemäße Breaks (const s: String; Stil: tTextLineBreakStyle =
{$ Ifdef linux} tlbSlf {$ endif} {$ ifdef mswindows} tlbscrlf {$ endif}):
String; $ [sysutils.pas
Die Funktion kehrt zurück, um den Linienabscheider der angegebenen Zeichenfolge an eine CR/LF -Sequenz anzupassen
veranschaulichen
ContoNLineBreaks ('1'#13'2 '#13) =' 1 '#13#10'2'#13#10; CITTLINEBREAKS ('1'#10'2 '#10) =' 1 '#13#10 '2'#13#10
Referenzfunktion Sysutils.Strnextchar
Beispiel <Null>
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion isvalidident (const ident: string): boolean;
Die Funktion gibt zurück, ob die String -Identifizierung die richtige Kennung ist
Beschreibung IDENTIFIER :: LEWERS | Unterteile [Briefe | Unterteile | Zahlen] ...
Referenz <null>
Beispiel Checkbox1.Conted: = isvalidident (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion InttoStr (Wert: Integer): String;
Header -Funktion inttoStr (Wert: int64): String;
Die Funktion gibt einen ganzzahligen Wert zurück, um in String konvertiert zu werden
Beschreibung Format ('%d', [Wert])
Referenzfunktion sysutils.fmtstr
Beispiel edit2.text: = inttoStr (spIeNeIt1.Value);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion intohex (Wert: Ganzzahl; Ziffern: Integer): String;
$ [Sysutils.pas
Erste Funktion intohex (Wert: INT64; Ziffern: Integer): String;
$ [Sysutils.pas
Funktion gibt ganzzahliger Wert zurück, der in das hexadezimale Leistungsergebnis konvertiert ist;
Beschreibung Parameter -Ziffern geben die minimale Breite des Zeichens an;
Referenzfunktion sysutils.fmtstr
Beispiel edit2.text: = intTohex (SpIineIt1.Value, spinedit2.Value);
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Strtoint (const s: String): Integer; $ [sysutils.pas
Die Funktion gibt die Zeichenfolge S zurück, um sie in eine Ganzzahl umzuwandeln
Erläuterung: Eine Ausnahme wird verursacht, wenn eine Saite durch Nicht-Integral ausgedrückt wird
Siehe Verfahrenssystem.val
Beispiel spIeNeIn1.Value: = strtoint (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion strtointdef (const s: String; Standard: Ganzzahl): Ganzzahl;
$ [Sysutils.pas
Die Funktion gibt die Zeichenfolge S zurück, um sie in eine Ganzzahl umzuwandeln
Die Standardeinstellung wird zurückgegeben, wenn die Zeichenfolge durch Nicht-Integral ausgedrückt wird.
Siehe Verfahrenssystem.val
Beispiel spIeNeIn1.Value: = strtointdef (edit1.text, 0);
━━━━━━━━━━━━━━━━━━━━━
Erstfunktion Trystrtoint (const s: String; out value: Integer): boolean;
$ [Sysutils.pas
Die Funktion gibt zurück, ob die Zeichenfolge S erfolgreich in den Ganzzahlwert konvertiert wird
Beschreibung False wird zurückgegeben, wenn die Zeichenfolge durch Nichtteger ausgedrückt wird und der Wert als 0 ausgegeben wird
Siehe Verfahrenssystem.val
Beispiel
////////// starten Sie Trystrtoint
procedure tform1.button1click (Absender: tobject);
var
I: Ganzzahl;
Beginnen
CheckBox1.Conted: = TryStrtoint (edit1.text, i);
Spiedit1.Value: = i;
Ende;
////////// End Trystrtoint
━━━━━━━━━━━━━━━━━━━━━
Header -Funktion Strtoint64 (const s: String): INT64;
Die Funktion gibt die Zeichenfolge S zurück, um sie in eine vierundsechzig-Bit-Ganzzahl umzuwandeln
Erläuterung: Eine Ausnahme wird verursacht, wenn eine Zeichenfolge von einer nicht 64-Bit-Ganzzahl ausgedrückt wird.
Siehe Verfahrenssystem.val
Beispiel SpIeNeIn1.Value: = Strtoint64 (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Strtoint64DEF (const s: String; const Standard: int64): int64;
$ [Sysutils.pas
Die Funktion gibt die Zeichenfolge S zurück, um sie in eine vierundsechzig-Bit-Ganzzahl umzuwandeln
Die Standardeinstellung wird zurückgegeben, wenn die Zeichenfolge durch die Nicht-64-Bit-Ganzzahl ausgedrückt wird.
Siehe Verfahrenssystem.val
Beispiel spIeNeIn1.Value: = strtoint64def (edit1.text, 0);
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion trystrtoint64 (const s: String; out value: int64): boolean;
$ [Sysutils.pas
Die Funktion gibt zurück, ob die Zeichenfolge S erfolgreich in einen 3-4-Bit-Ganzzahlwert umgewandelt wird
Beschreibung False wird zurückgegeben, wenn die Zeichenfolge durch nicht-oxty-vier-Bit-Ganzzahl ausgedrückt wird und der Wert als 0 ausgegeben wird
Siehe Verfahrenssystem.val
Beispiel
////////// starten Sie Trystrtoint64
procedure tform1.button1click (Absender: tobject);
var
I: INT64;
Beginnen
CheckBox1.Conted: = TryStrtoint64 (edit1.text, i);
Spiedit1.Value: = i;
Ende;
////////// End Trystrtoint64
━━━━━━━━━━━━━━━━━━━━━
Erste Funktion Strtobool (const s: String): boolean;
Funktion gibt die Zeichenfolge S zurück, um sie in logischen Wert umzuwandeln
Erklärungscharakter verursacht Ausnahmen, wenn er nicht logisch ausgedrückt wird
Referenzfunktion 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
Beispiel
///////Begin TryStrToBool
procedure tform1.button1click (Absender: tobject);
var
B: Boolean;
Beginnen
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;
Ende;
///////End TryStrToBool
Beigefügt
///////Begin TryStrToBool
function TryStrToBool(const S: string; out Value: Boolean): Boolean;
function CompareWith(const aArray: array of string): Boolean;
var
I: Integer;
Beginnen
Result := False;
for I := Low(aArray) to High(aArray) do
if AnsiSameText(S, aArray[I]) then
Beginnen
Result := True;
Brechen;
Ende;
Ende;
var
LResult: Extended;
Beginnen
Result := TryStrToFloat(S, LResult);
if Result then
Value := LResult <> 0
anders
Beginnen
Result := True; //修正处
VerifyBoolStrArray;
if CompareWith(TrueBoolStrs) then
Value := True
else if CompareWith(FalseBoolStrs) then
Value := False
anders
Result := False;
Ende;
Ende;
///////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
Beispiel
///////Begin StrMove
procedure tform1.button1click (Absender: tobject);
var
vBuffer: PChar;
Beginnen
vBuffer := '0123456789';
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
Ende;
///////End StrMove
━━━━━━━━━━━━━━━━━━━━━
首部function StrCopy(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中
说明Dest应已经分配足够的空间非则将触发异常
参考<NULL>
Beispiel
///////Begin StrCopy
procedure tform1.button1click (Absender: tobject);
var
vBuffer: PChar;
Beginnen
GetMem(vBuffer, Length(Edit1.Text) + 1);
StrCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
FreeMem(vBuffer);
Ende;
///////End StrCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrECopy(Dest:PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中的结尾
说明可以连接指针字符串
参考<NULL>
Beispiel
///////Begin StrECopy
procedure tform1.button1click (Absender: tobject);
var
vBuffer: array[0..255] of Char;
Beginnen
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));
Edit3.Text := vBuffer;
Ende;
///////End StrECopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中
说明Dest应已经分配足够的空间非则将触发异常
参考<NULL>
Beispiel
///////Begin StrLCopy
procedure tform1.button1click (Absender: tobject);
var
vBuffer: array[0..255] of Char;
Beginnen
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
Ende;
///////End StrLCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrPCopy(Dest: PChar; const Source: string): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中
说明StrLCopy(Dest, PChar(Source), Length(Source))
参考function SysUtils.StrLCopy
Beispiel
///////Begin StrPCopy
procedure tform1.button1click (Absender: tobject);
var
vBuffer: array[0..255] of Char;
Beginnen
StrPCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
Ende;
///////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
Beispiel
///////Begin StrPLCopy
procedure tform1.button1click (Absender: tobject);
var
vBuffer: array[0..255] of Char;
Beginnen
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);
Edit2.Text := vBuffer;
Ende;
///////End StrPLCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrCat(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回连接指针字符串Dest和指针字符串Source
说明StrCopy(StrEnd(Dest), Source)
参考function SysUntils.StrCopy
Beispiel
///////Begin StrCat
procedure tform1.button1click (Absender: tobject);
var
vBuffer: array[0..255] of Char;
Beginnen
StrPCopy(vBuffer, Edit1.Text);
StrCat(vBuffer, PChar(Edit2.Text));
Edit3.Text := vBuffer;
Ende;
///////End StrCat
━━━━━━━━━━━━━━━━━━━━━
首部function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能返回连接指针字符串Dest和指针字符串Source
说明[注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度
参考<NULL>
Beispiel
///////Begin StrLCat
procedure tform1.button1click (Absender: tobject);
var
vBuffer: array[0..255] of Char;
Beginnen
StrPCopy(vBuffer, Edit1.Text);
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);
Edit3.Text := vBuffer;
Ende;
///////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(