Zitat:
procedure TForm1.Button2Click(Sender: TObject);
begin
Opendialog1.Filter:= 'Txt-Files (*.txt)|*.txt';
if OpenDialog1.Execute Then
begin
Listbox1.clear;
Listbox1.Items.LoadFromFile(OpenDialog1.FileName);
end;
end;
Was hast Du gelöscht?
Fang erst einmalmit der Minimallösung, die schon beschrieben wurde an.
Code:
procedure TForm1.Button2Click(Sender: TObject);
begin
Listbox1.clear; // das ist überflüssig!
Listbox1.Items.LoadFromFile('vollständigerDateiname');
end;
Gruß
K-H