Dateiverwaltung??

[Ultimator]

Delphi-Quellcode:

procedure TForm1.Open1Click(Sender: TObject); 
begin 
Opendialog1.Execute; 
Hier muss doch noch was hin wo der DateiName in eine Variable geladen wird??? 
end;

Machs doch so:

Delphi-Quellcode:

procedure TForm1.Open1Click(Sender: TObject); 
var NamederDatei:string;
begin 
if Opendialog1.Execute then
NamederDatei:=OpenDialog1.Filename; 
end;

Mit if OpenDialog1.Execute fragst du zusätzlich noch ab, ob der Anwender nich den Dialog mit 'Abbrechen' geschlossen hat.

[edit]

Zitat von Christian Seehase:

Schau Dir noch einmal genau die Eigenschaften von TOpenDialog an.

Meinst du etwa das? [/edit]