Rutine de gestionare a șirurilor Programare Delphi
Share
Funcția CompareText compară două șiruri fără sensibilitatea carcasei.
Declaraţie:
funcţie CompareText (const S1, S2: şir): întreg;
Descriere:
Compara două șiruri fără sensibilitatea carcasei.
Comparația NU este sensibilă la litere mari și mari și nu are în vedere setările locale locale. Valoarea integrală de retur este mai mică de 0 dacă S1 este mai mică decât S2, 0 dacă S1 este egală cu S2 sau mai mare decât 0 dacă S1 este mai mare decât S2.
Această funcție este învechită, adică nu trebuie utilizată într-un cod nou - există doar pentru o compatibilitate înapoi.
Exemplu:
var s1, s2: șir; i: număr întreg; s1: = 'Delphi'; s2: = 'Programare'; i: = CompareText (s1, s2); // I
Funcția de copiere
Returnează o subcadere a unui șir sau a unui segment al unui tablou dinamic.
Declaraţie:
funcţie Copiere (S; Index, Număr: Integer): şir;
funcţie Copiere (S; Index, Număr: Integer): mulțime;
Descriere:
Returnează o subcadere a unui șir sau a unui segment al unui tablou dinamic.
S este o expresie a unui tip de șir sau matrice dinamică. Index și Count sunt expresii de tip întreg. Copiere returnează un șir care conține un număr specificat de caractere dintr-un șir sau sub-tablou care conține elemente de cont începând de la S [Index].
Dacă Index este mai mare decât lungimea lui S, Copy returnează un șir de lungime zero ("") sau un tablou gol.
Dacă Count specifică mai multe caractere sau elemente de matricea decât sunt disponibile, numai caracterele sau elementele de la S [Index] până la sfârșitul lui S sunt returnate.
Pentru a determina numărul de caractere din șir, utilizați funcția Lungime. O modalitate convenabilă de a copia toate elementele S din Indexul de pornire este de a utiliza MaxInt ca conte.
Exemplu:
var s: șir; s: = 'DELPHI'; s: = Copiere (s, 2,3); // s = 'ELP';
Ștergeți procedura
Îndepărtează o substrată dintr-un șir.
Declaraţie:
procedură Șterge(var S: şir; Index, număr: număr întreg)
Descriere:
Îndepărtează numărarea caracterelor dintr-un șir S, începând de la Index.
Delphi lasă șirul neschimbat dacă Indexul nu este pozitiv sau mai mare decât numărul de caractere după Index. Dacă Count este mai mare decât restul caracterelor după Index, restul șirului este șters.
Exemplu:
var s: șir; s: = 'DELPHI'; Ștergeți (s, 3,1) // s = DEPHI;
Funcția ExtractStrings
Completează o listă cu șiruri cu subcărți analizate dintr-o listă delimitată.
Declaraţie:
tip TSysCharSet = set de Carboniza;
funcţie ExtractStrings (Separatori, WhiteSpace: TSysCharSet; Conținut: PChar; Strings: TStrings): Integer;
Descriere:
Completează o listă cu șiruri cu subcărți analizate dintr-o listă delimitată.
Separatoarele sunt un set de caractere care sunt folosite ca delimitatori, care separă substraturile, unde se întorc Carriage, caracterele de linie nouă și caracterele de citare (unice sau duble) sunt întotdeauna tratate ca separatoare. WhiteSpace este un set de caractere care trebuie ignorate la analizarea conținutului dacă apar la începutul unei șiruri. Conținutul este șirul cu terminare nulă, care trebuie analizat în subcadre. Strings este o listă de șiruri la care se adaugă toate subcărțile analizate din Conținut. Funcția returnează numărul de șiruri adăugate la parametrul Strings.
Exemplu:
// exemplu 1 - necesită TMemo numit „Memo1” ExtractStrings ([';', ','], ["], 'despre: delphi; pascal, programare', memo1.Lines); // ar rezulta în 3 șiruri adăugate la memo: // despre: delphi // pascal // programare // exemplu 2 ExtractStrings ([DateSeparator], ["], PChar (DateToStr (Now)), memo1.Lines); // ar rezulta în 3 șiruri: ziua lunii și anul datei currnet // de exemplu '06', '25', '2003'
Funcția LeftStr
Returnează un șir care conține un număr specificat de caractere din partea stângă a unui șir.
Declaraţie:
funcţie LeftStr (const AString: AnsiString; const Count: Integer): AnsiString;suprasarcină; funcţie LeftStr (const AString: WideString; const Count: Integer): WideString; suprasarcină;
Descriere:
Returnează un șir care conține un număr specificat de caractere din partea stângă a unui șir.
AString reprezintă o expresie de șir din care sunt returnate cele mai stânga caractere. Numărul indică câte caractere trebuie să revină. Dacă 0, se returnează un șir de lungime zero (""). Dacă este mai mare sau egal cu numărul de caractere din AString, întreaga șir este returnată.
Exemplu:
var s: șir; s: = 'DESPRE PROGRAMAREA DELPHI'; s: = LeftStr (s, 5); // s = 'DESPRE'
Funcție Lungime
Returnează un număr întreg care conține numărul de caractere dintr-un șir sau numărul de elemente dintr-un tablou.
Descriere:
funcţie Lungime (const S: şir): întreg
funcţie Lungime (const S: mulțime): întreg
Declaraţie:
Returnează un număr întreg care conține numărul de caractere dintr-un șir sau numărul de elemente dintr-un tablou.
Pentru un tablou, Length (S) întoarce întotdeauna Ord (High (S)) - Ord (Low (S)) + 1
Exemplu:
var s: șir; i: număr întreg; s: = 'DELPHI'; i: = Lungimea (lungile); // i = 6;
Funcție LowerCase
Returnează un șir care a fost convertit în minuscule.
Descriere:
funcţie LowerCase (const S: şir): şir;
Declaraţie:
Returnează un șir care a fost convertit în minuscule.
LowerCase convertește litere majuscule în minuscule; toate literele minuscule și caracterele fără buletin rămân neschimbate.
Exemplu:
var s: șir; s: = 'DELPHI'; s: = LowerCase (s); // s = 'delphi';
Funcția Pos
Returnează un număr întreg specificând poziția primei apariții a unui șir în interiorul altuia.
Declaraţie:
funcţie Pos (Str, Sursa: şir): întreg;
Descriere:
Returnează un număr întreg specificând poziția primei apariții a unui șir în interiorul altuia.
Pos cauta prima aparitie completa a Str in Source. Dacă găsește unul, returnează poziția caracterului în Sursa primului caracter din Str ca valoare integrală, în caz contrar, se returnează 0.
Pos este sensibilă la litere mari și mici.
Exemplu:
var s: șir; i: număr întreg; s: = 'PROGRAMAREA DELPHI'; i: = Pos ('HI PR', s); // i = 5; Funcția PosEx
Returnează un număr întreg specificând poziția primei apariții a unui șir în altul, unde căutarea începe de la o poziție specificată.
Declaraţie:
funcţie PosEx (Str, Sursa: şir, StartFrom: cardinal = 1): întreg;
Descriere:
Returnează un număr întreg specificând poziția primei apariții a unui șir în altul, unde căutarea începe de la o poziție specificată.
PosEx caută prima apariție completă a Str în Sursa, care începe căutarea la StartFrom. Dacă găsește unul, returnează poziția caracterului în Sursa primului caracter din Str ca valoare integrală, în caz contrar, se returnează 0. PosEx returnează de asemenea 0 dacă StartFrom este mai mare decât Lungimea (Sursa) sau dacă StartPos este < 0
Exemplu:
var s: șir; i: număr întreg; s: = 'PROGRAMAREA DELPHI'; i: = PosEx ('HI PR', s, 4); // i = 1; Funcția QuotedStr
Returnează versiunea citată a unui șir.
Declaraţie:
funcţie QuotedStr (const S: şir): şir;
Descriere:
Returnează versiunea citată a unui șir.
La începutul și la sfârșitul șirului S se introduce un singur caracter de cotație (') și se repetă fiecare caracter de citat din șir.
Exemplu:
var s: șir; s: = 'Delphi' s Pascal '; // ShowMessage returnează Delphi's Pascal s: = QuotedStr (s); // ShowMessage returnează' Delphi 's Pascal'
Funcție ReverseString
Returnează un șir în care ordinea de caractere a unui șir specificat este inversată.
Declaraţie:
funcţie ReverseString (const Un șir : şir): şir;
Descriere: Returnează un șir în care ordinea de caractere a unui șir specificat este inversată
Exemplu:
var s: șir; s: = 'DESPRE PROGRAMAREA DELPHI'; s: = ReverseString (s); // s = 'GNIMMARGORP IHPLED TUOBA'
Funcția RightStr
Returnează un șir care conține un număr specificat de caractere din partea dreaptă a unui șir.
Declaraţie:
funcţie RightStr (const AString: AnsiString; const Count: Integer): AnsiString;suprasarcină;
funcţie RightStr (const AString: WideString; const Count: Integer): WideString;suprasarcină;
Descriere:
Returnează un șir care conține un număr specificat de caractere din partea dreaptă a unui șir.
AString reprezintă o expresie de șir din care sunt returnate cele mai drepte caractere. Numărul indică câte caractere trebuie să revină. Dacă este mai mare sau egal cu numărul de caractere din AString, întreaga șir este returnată.
Exemplu:
var s: șir; s: = 'DESPRE PROGRAMAREA DELPHI'; s: = RightStr (s, 5); // s = 'MMING'
Funcție StringReplace
Returnează un șir în care o substrat specificată a fost înlocuită cu o altă substrat.
Declaraţie:
tip TReplaceFlags = set de (rfReplaceAll, rfIgnoreCase);
funcţie StringReplace (const S, OldStr, NewStr: şir; Steaguri: TReplaceFlags): şir;
Descriere:
Returnează un șir în care o substrat specificată a fost înlocuită cu o altă substrat.
Dacă parametrul Flags nu include rfReplaceAll, numai prima apariție a OldStr în S este înlocuită. În caz contrar, toate instanțele OldStr sunt înlocuite cu NewStr.
Dacă parametrul Flags include rfIgnoreCase, operația de comparare este nesensibilă între majuscule și minuscule.
Exemplu:
var s: șir; s: = 'Programatorii VB iubesc Despre site-ul de programare VB'; s: = ReplaceStr (s, 'VB', 'Delphi', [rfReplaceAll]); // s = 'Programatorii Delphi iubesc Despre site-ul de programare Delphi';
Funcție Trim
Returnează o șir care conține o copie a unui șir specificat, fără spații de frunte și de caractere de control și caractere de control.
Declarație: Funcția Tunde(const S: şir): şir;
Descriere: Returnează o șir care conține o copie a unui șir specificat, fără spații de frunte și de final și caractere de control care nu imprimă.
Exemplu:
var s: șir; s: = 'Delphi'; s: = Trim (s); // s = 'Delphi';
Funcția UpperCase
Returnează un șir care a fost convertit cu majuscule.
Declarație: Funcția Majuscule(const S: şir): şir;
Descriere: Returnează un șir care a fost convertit cu majuscule.
UpperCase convertește doar litere mici cu majuscule; toate literele majuscule și caracterele fără buletin rămân neschimbate.
Exemplu:
var s: șir; s: = 'DELPHI'; s: = UpperCase (s); // s = 'DELPHI';
Procedura Val
Convertește un șir într-o valoare numerică.
Declarație: Procedura Val (const S: şir; var Rezultat; var Cod: număr întreg);
Descriere:
Convertește un șir într-o valoare numerică.
S este o expresie tip string; acesta trebuie să fie o secvență de caractere care formează un număr real semnat. Argumentul Rezultat poate fi o variabilă întreagă sau cu punct flotant. Codul este zero dacă conversia are succes. Dacă șirul nu este valabil, indexul caracterului infracțional este stocat în Cod.
Val nu respectă setările locale pentru separatorul zecimal.
Exemplu:
var s: șir; c, i: număr întreg; s: = '1234'; Val (s, i, c); // i = 1234; // c = 0
