Zitat:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile;
s:
String;
Filename:
String;
begin
Opendialog1.Filter:= '
Txt-Files (*.txt)|*.txt';
if not OpenDialog1.Execute
then EXIT;
Listbox1.Clear;
Filename:= '
HTML.txt';
Listbox1.Items.LoadFromFile(OpenDialog1.Filename)
end;
Du gibst diverses an, welches Du in Deinem Codeschnipsel nicht verwendest und auch das Exit brauchst Du nicht wirklich.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Opendialog1.Filter:= 'Txt-Files (*.txt)|*.txt';
if OpenDialog1.Execute
then begin
Listbox1.Clear;
Listbox1.Items.LoadFromFile(OpenDialog1.Filename);
end;
end;