[Optimiert] Explode Prozedur - Reloaded (Ersatz für CodeLib)

[hitzi]

@mimi: Das solltest du mit einer Stringlist lösen können.

Delphi-Quellcode:

var sl : TStringlist;
begin
  sl := TStringlist.Create();
  try
    sl.Delimiter := #32;
    sl.DelimitedText := 'Hallo1 "Test1 Test2 Test3" Hallo2 Hallo3';
    // sl[0] ist jetzt Hallo1
    //sl[1] ist Test1 Test2 Test3
    //sl[2] ist Hallo2
    //sl[3] ist Hallo3
  finally
    FreeAndNil(sl);
  end;
end;

Der Code ist aber ungetestet!