怎样让用户来选择保存的位置？

Question

我的“昆明200205”是个已存在的文本文件，现在就是要让用户来选择保存的位置，硬盘或软盘。
我这样写有问题：
if savedialog1.Execute then
   assignfile(copytxt,savedialog1.FileName);copytxt就是已存在的文本文件“昆明200205”，该如何写？

Answer 1

比方说你的文件是导在TMemo中的：
var
  Path:String;
begin
  if SaveDialog1.Execute then
    Path:=SaveDialog1.FileName;
  Memo1.Lines.SaveToFile(Path);
end;

Answer 2

此文件是一纪录类型的文件，不能用此方法，此文件是用rewrite方法产生的。

Answer 3

if savedialog1.Execute then
begin
   assignfile(copytxt,savedialog1.FileName);
   if not FileExists(SaveDialog1.FileName) then
     ReWrite(CopyTxt)
   else
     Append(CopyTxt);
   ...
   CloseFile(CopyTxt); 
end;

Answer 4

只要您的“昆明200205”是个已存在的文本文件，下面的程序不是最好，但是一定可以使用。我的程序已经通过调试了。
--------------------------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
var
  FileHandle: Integer;
  FName:TextFile;
  StrLine:string;
begin
  if SaveDialog1.Execute then
  begin
    try
      Assignfile(FName,'F:\csdn.txt');
      Reset(FName);
      FileHandle := FileCreate(SaveDialog1.FileName);
      while not Eof(FName) do
      begin
        Readln(FName,StrLine);
        StrLine:=StrLine+#13;
        FileWrite(FileHandle,pointer(StrLine)^,Length(StrLine));
        FileSeek(FileHandle,0,2);  //到文件尾部
      end;
    finally
      CloseFile(FName);
      FileClose(FileHandle)
    end;
  end;
end;

Answer 5

前面有几人说的不错，都可以呀，
不过你的用户为什么不直接在资源管理器
里将那个文件Copy过去呢？：）
呵呵