Ich persönlich bin kein Freund von Funktionsrückgabewerten in Form von Objekten, die innerhalb der Funktion instanziert werden, da man sich so der Gefahr von Speicherlecks aussetzt. Dürfte ich also folgende Änderung vorschlagen?
Delphi-Quellcode:
procedure Split(const Input: string; Delimiter: char; Output: TStrings);
begin
if Assigned(Output) then
begin
Output.Delimiter := Delimiter;
Output.StrictDelimiter := true;
Output.DelimitedText := Input;
end;
end;
TStringlist wurde zudem in TStrings geändert, um sich nicht unnötig einzuschränken.
[edit] Gerade einmal ausprobiert, das scheint ja ganz gut zu klappen
Delphi-Quellcode:
procedure TFrmTest.btnSplitClick(Sender: TObject);
const
s = 'power;16,4;true;0;,;SetPower 0 false #1 true,SetFwd 0 false,On_ 0 false ';
var
i: integer;
sl: TStrings;
begin
ListBox2.Items.Clear;
ListBox3.Items.Clear;
Split(s,';',ListBox1.Items);
sl := TStringlist.Create;
try
for I := 0 to ListBox1.Items.Count - 1 do
begin
Split(ListBox1.Items[i],',',sl);
ListBox2.Items.AddStrings(sl);
end;
for I := 0 to ListBox2.Items.Count - 1 do
begin
Split(ListBox2.Items[i],' ',sl);
ListBox3.Items.AddStrings(sl);
end;
finally
sl.Free;
end;
end;
[/edit]