Kryptischer Fehler bei Split-Funktion

[DeddyH]

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]