Zitat von
DGL-luke:
gibt es nicht Listbox.items
(TStrings?!).delimiter? den einfach auf '=' setzen und dann laden.
ansonsten mit einer stringlist, die hat ganz sicher einen delimiter.
PS: hast du das nicht schon einmal gefragt?
Delimiter gibt es bei mir nicht ich benutze Delphi 5.0
Das einzige das mir dazu einfällt ist dieses
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: Integer;
sBox: String;
slDat: TStringList;
begin
slDat.Create;
for i := 0 to slDat.Count -1 do
begin
sBox := slDat.Strings[i];
while pos('=',sBox) <> 0 do
begin
slDat.Add(copy(sBox,1,pos('=',sBox)-1));
delete(sBox,1,pos('=',sBox));
end;//while
ListBox1.Items.Add(sBox);
end; //for
end; // TForm1.BitBtn1Click
nicht getestet !