TOpenDialog FileName vorgeben

[Fussball-Robby]

Wenn du einen anderen Ordner auswählen willst, kannst du mit InitialDir arbeiten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  AFile = 'D:\Ordner\TextDatei.txt';
begin
  with OpenDialog1 do
  begin
    InitialDir := ExtractFilePath(AFile);
    FileName := ExtractFileName(AFile);
    if Execute then
      ShowMessage(FileName);
  end;
end;