Tankönyv delphi
Íme néhány jellemző írtam, hogy jó munkát. Yourself kezdhetjük vágja módosítás funkció (), például, hogy dolgozzon ki egy funkciót TrimRight $ és $ TrimLeft, eltávolítja a szóközöket a jobb és bal oldalon a sorok, ill. Ön is létrehozhat funkciókat működtető mind Pascal húrok, és storokami végződő nulla (terminátor).
BlackSpace = [# 33. # 126];
fecskendez () visszaad egy string minden szóköz és távoli
ismételt aposztróf.
>
függvény giccs (const Keresés: string): string;
var
Index: = 1-től hossz (Keresés) do
ha inString vagy (Search [Index] in BlackSpace), majd
InString: = ((Keresés [Index] = '' '') és (Keresés [Index - 1] <> '\'))
előtt () visszaad egy részét a csatornába, előtt található
Keresse meg az első részsztring a sztring keresése. ha
Nem találja, akkor a függvény keresése.
>
függvény előtt (const keresés, talál: string): string;
var
ha index = 0, akkor
után () visszatér egy részét egy sorban elhelyezkedő után
Keresse meg az első részsztring a sztring keresése. ha
Nem találja, akkor a függvény NULL.
>
függvény után (const keresés, talál: string): string;
var
ha index = 0, akkor
RPO () függvény az első karakter az utolsó talált
Keresse alsztringjeként a sztring keresése. Találni, ha nem talált,
Egy hasonló függvény visszatérési 0. fordított Pos ().
>
függvény RPO (const Find, Search: string): byte;
var
FindPtr, SearchPtr, TempPtr: PChar;