Du hast Recht schande über mich
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 ListBox1.Count - 1 do
begin
if ListBox1.Selected[i] = true then
begin
sl.DelimitedText := ListBox1.Items.Strings[i];
end;
end;
for i := 0 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:
so besser ?
