Das Beispiel in diesem Artikel beschreibt die Verwendung der Delphi-Funktion zur Zeichenfolgentrennung. Teilen Sie es als Referenz mit allen. Die spezifische Implementierungsmethode ist wie folgt:
Dieses Beispiel kann die Zeichenfolge s gemäß der Darstellung des Zeichenfolgentrennzeichens in mehrere Zeichenfolgen aufteilen und diese in der Zeichenfolgenliste rs speichern. Der spezifische Code lautet wie folgt:
Kopieren Sie den Code wie folgt: procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: string;
idx: Ganzzahl;
ASubStr: string;
beginnen
AStr := Trim(s);
while Pos(Separator, AStr) > 0 do
beginnen
idx := Pos(Trennzeichen, AStr);
ASubStr := Copy(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Copy(AStr, idx + 1, Länge(AStr));
Ende;
if AStr+'a' <> 'a' then rs.Add(AStr); //Wenn noch Strings vorhanden sind, speichern Sie diese in der String-Liste
Ende;
Ich hoffe, dass dieser Artikel für alle bei der Delphi-Programmierung hilfreich sein wird.