[Gelöst] TStrings deffinieren und in Listbox Komponent laden

[Jessa]

Ich habe die Idee mit dem Popup erstmal verworfen bis ich besser mit TStringlist klar kommen.

Nun möchte ich ein Programm schreiben was am anfang eine Datei abfragt und die Strings in TStringlist einfügt und von da aus in die listbox einfügt.

Doch bevor ich das machen kann muss ich erstmal einen TStringlist deffinieren, kein Problem doch will ich nun den TStringlist in die ListBox1 übertragen bekomme ich nur einen Fehler.

Erstmal muss ich es schaffen das man die Einträge über Edit1.Text in die TStringlist und dann von der der TStringlist in die ListBox1 läd.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
x := edit1.Text;
sl := TStringlist.Create;
try
sl.Add(x);
finally
sl.Free;
list1.Items.AddStrings(sl);
end;
end;

end.

So siehts derzeitig aus, doch ich bekomme nur einen Fehler.