通用对话框的问题！

Question

不会吧，看一下这个
var   F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

Answer 1

var   F: TextFile;
  S: string;
begin
  if saveDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, saveDialog1.FileName); { File selected in dialog }
    Append(F);//忘了是Append(F,'text');还是Append(F);
    writeln(F, S);                       
    Edit1.Text := S;                    
    CloseFile(F);
  end;
end;
这个方法我调试成功 了 如果你不成功的话那肯定你的机子有问题

Answer 2

var   F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            begin
      s:=OpenDialog1.filename;
  end;
  AssignFile(F, s); { File selected in dialog }
    Append(F);
    writeln(F, S);                       
    Edit1.Text := S;                    
    CloseFile(F);
end;
不过我觉得你的表达上还是不清楚的，好象没有人正确理解你的意思。