Zitat von
idontwantaname:
ich mache mir gerade eine Funktion, die einen String anhand eines Zeichens teilen soll, das funktioniert auch, nur möchte ich, das die Funktion eine TStringList zurückliefert, ist sowas möglich ??
Delphi-Quellcode:
procedure SplitString(const Str: String; Chr: Char; Result: TStrings);
begin
with Result do
begin
Clear;
Delimiter := Chr;
DelimitedText := Str;
end;
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
SplitString('abc;123;def;456;ghi;789', ';', Memo1.Lines);
end;