Danke für die schnelle Reaktion!
Alles Überflüssige entfernt.
Filename mit und ohne vollständigen Pfad unter Eigenschaften von OpenDialog eingetragen.
('
HTML.txt' bzw. 'E:\DelphiProjekte\StringGrid\
HTML.txt')
Button2 Eigenschaft OnClick geprüft.
TOpenDialog gelöscht.
Exception: "Klasse TOpenDialog nicht gefunden." Weiter nichts.
Vereinfachte Procedure wird fehlerfrei compiliert, aber Listbox1 nicht gefüllt.
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;
Ich suche weiter!
Jürgen