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]

[Aphton]

Ach du meine Güte

Ich kannte die Eigenschaft "StrictDelimiter" noch garnicht. Hab letztens beim Projekt eines Freundes lange nach dem Problem gesucht - habs auch gefunden und hab mich gewundert, warum DelimitedText nicht NUR nach Delimiter trennt. Daher habe ich eine eigene DelimitText() Funktion für ihn gebastelt -.-'

Völlig umsonst =(

[Trogge]

Der Knackpunkt liegt als bei der Eigenschaft "StrictDelimiter"?
Alle restlichen Änderungen kann ich später einbauen, aber ich will erstmal das das Programm im Kern läuft.
Ich nehms mir aber zu Herzen.

Danke