Strings laden

[dorisdoloris]

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 !