Iată câteva dintre funcțiile pe care le-am scris, care au servit bine. Puteți începe cu modificarea funcției trim (), de exemplu, pentru a dezvolta funcțiile TrimRight $ și TrimLeft $, care elimină spațiile din partea dreaptă și din stânga a liniilor. De asemenea, puteți crea funcții care funcționează atât cu linii Pascal, cât și cu cele care se termină cu un null (terminator).
BlackSpace = [# 33. # 126];
squish () returnează un șir cu tot spațiul alb și cu ștergerea
repetarea apostrofelor.
>
funcția squish (const Căutarea: șir): șir;
var
pentru index: = 1 până la lungime (Căutare) face
dacă InString sau (Search [Index] în BlackSpace) atunci
InString: = ((Căutare [Index] = '' '') și (Căutare [Index - 1] <> '\'))
înainte () returnează o parte a scurgerii înainte
prima secțiune găsită în secțiunea Găsire în linia de căutare. În cazul în care
Găsire nu a fost găsită, funcția returnează Căutarea.
>
funcția înainte (const Căutare, Găsire: șir): string;
var
dacă index = 0 atunci
după () returnează o parte din șir după
prima secțiune găsită în secțiunea Găsire în linia de căutare. În cazul în care
Find not found, funcția returnează NULL.
>
funcție după (const Căutare, Găsire: string): string;
var
dacă index = 0 atunci
RPos () returnează primul caracter al ultimului găsit
substring Găsiți în linia de căutare. Dacă Find nu a fost găsit,
funcția returnează 0. Similar cu poziția inversată ().
>
funcția RPos (const Find, Căutare: șir): octet;
var
FindPtr, SearchPtr, TempPtr: PChar;
Articole similare
Trimiteți-le prietenilor: