Forum: Object-Pascal / Delphi-Language
by blawen,
10. Apr 2020
Vermutlich hast Du etwas in die Eigenschaften der Listboxen eingetragen, welches zu diesem Effekt führte.
Mein Vorgehen:
- Listbox auf Formular ziehen
- OpenDialog auf das Formular ziehen
- Button auf das Formular ziehen
- Doppelklick auf den Button um in das "OnClick"-Ereignis zu kommen
- Im "OnClick"den (Minimal-) Code eintragen
und es funktioniert (zumindest bei mir ;-)
Forum: Object-Pascal / Delphi-Language
by blawen,
9. Apr 2020
Du gibst diverses an, welches Du in Deinem Codeschnipsel nicht verwendest und auch das Exit brauchst Du nicht wirklich.
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;