Split -Funktion in Delphi

Autor：Eve Cole Aktualisierungszeit：2025-03-14 20:00:04

// Teilen Sie die Zeichenfolge entsprechend der Zeichenfolge, die der Split -Funktion in VB entspricht

Funktion splitstring (const Source, CH: String): TStringList;

var

Temp: String;

I: Ganzzahl;

Beginnen

Ergebnis: = tstringlist.create;

// Wenn es sich um eine leere Zeichenfolge handelt, kehren Sie zu einer leeren Liste zurück

Wenn Quelle = ''

dann verlassen;

Temp: = Quelle;

i: = pos (ch, Quelle);

Während ich <> 0 mache

Beginnen

Result.add (kopieren (temp, 0, i-1));

Löschen (temp, 1, i);

i: = pos (ch, temp);

Ende;

Result.add (temp);

Ende;