Funktioniert doch.
Ist die Frage was du bei edit1.text drinn hast. Ich hab edit1 so gefüllt:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var d:TOpendialog;
begin
d:=TOpendialog.Create(self);
d.Execute;
edit1.Text:=d.FileName;
d.free;
end;
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.