ListBox Delimiter

[newuser01]

habs gelöst

Delphi-Quellcode:

procedure Tfrm_main.ListBox1Click(Sender: TObject);
var
  i: Integer;
  sl:TStringList;
  s:String;
begin

sl := TStringList.Create;
sl.Delimiter := '=';
for i := 0 to sl.Count - 1 do
begin
  if sl.Selected[i] = true then
  begin
    sl.DelimitedText := ListBox1.Items.Strings[i];
  end;
end;


for i := 1 to sl.Count - 1 do
begin
s := s + ' ' + sl.Strings[i];
end;

Edit1.Text := s;

end;

//in Edit1 steht nun "Heute ist ein heißer Sommertag"  :mrgreen: