如何将字符串中的内容写回到dialog控件选定的文件中去呢？

Question

可以从文件读出了，但怎么写回呢？求教！

Answer 1

var
  F : TextFile;
  S : string;
begin
  S := 'abcdefg';
  AssignFile(F, 'C:\YourFile.txt');//'C:\YourFile.txt'就是你的dialog选定的文件
  Append(F);//追加方式打开文件
  WriteLn(F, S);//写入
  CloseFile(F);
end;OpenFile、CloseFile....系列函数有多种用法，楼主查资料。楼主的问题不是太明了，因此我猜测着楼主的意思随便答了一下，是否合意，就不管了。

Answer 2

var
        fp:integer;
        mystr:string;
begin
        if OpenDialog1.Execute then
        with TFileStream.Create(OpenDialog1.FileName,fmOpenWrite) do
        try
                mystr:=Edit1.text;
                fp:=filecreate(OpenDialog1.FileName);
                //fp:=filecreate('C:\test.txt');
                filewrite(fp,mystr[1],length(mystr));
                fileclose(fp);
        finally
                free;
        end;
end;写到指定的文件中可以，如'C:\test.txt'；
但我想写到dialog选定的文件中，总是不可行，不知什么原因，请各位指教啊！

Answer 3

原来楼主是这么做的。各种方法灵活运用，可以参考我在一楼的方法。按照楼主在楼上的代码修改如下：var
  fp:integer;
  mystr:string;
begin
  if OpenDialog1.Execute then
     with TFileStream.Create(OpenDialog1.FileName,fmOpenWrite) do
        try
          mystr:=Edit1.text;
          fp:=fileopen(OpenDialog1.FileName,1);
          write(mystr[1],length(mystr));
          fileclose(fp);
        finally
          free;
        end;
end;