怎么样在OpenDialog或SaveDialog初始显示的时候用程序指定其文件名（如file.txt）？

Question

same

Answer 1

opendialog1.FileName:='file.txt';
opendialog1.Filter:='txt file|*.txt';
opendialog1.Execute;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.OpenDialog1.InitialDir:='c:';
form1.OpenDialog1.FileName:='autoexec.bat';
form1.OpenDialog1.Filter:='autoecec.bat|*.bat';
form1.OpenDialog1.Execute;
memo1.Lines.LoadFromFile(form1.opendialog1.FileName);
end;祝：身体健康！

Answer 3

FileName := 'fuck.txt'不久可以拉！

Answer 4

procedure TForm1.Open1Click(Sender: TObject);
begin
   With OPenDialog1 do
     OpenDialog1.InitialDir := 'c:\';
     OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All File(*.*)|*.*'; //Text Document
  If OpenDialog1.Execute then
     RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
     Form1.Caption := ExtractFileName(OpenDialog1.FileName);
end;

Answer 5

opendialog1.FileName := 'file.txt';