急急...如何在delphi中新建一个文本文件并向其中写入数据。

Question

用TextFile；
如何写。保证给分。

Answer 1

老大，你看一下DELPHI的帮助呀。声明一个TEXT文件变量 。用一个函数把它捆定，直接用写入语句写入字符串到TEXT文件变量。关闭捆定。文件就写进去了。

Answer 2

这个问题容易，delphi的示例中有，我帮你找找

Answer 3

procedure WriteDataToText(ds: TDataSet; FileName: string);  //将数据表导入文本中
var
  k:integer;
  RecStr,str,str2: String;
  F: TextFile;
begin
  AssignFile(F, FileName);
  Rewrite(F);  with ds do begin
    First;    while not eof do begin
      for k:=0 to FieldCount-1 do begin
        str:=Fields[k].AsString;
        str2:=#13+#10;          //避免数据中的回车换行符
        if Pos(str2,str)>0 then
          str:='"'+str+'"';
        RecStr:=RecStr+str+#9;  //在同条记录的两个数据间插入#9
      end;
      Write(F, RecStr);
      Writeln(F);
      Next;
      RecStr:='';
    end;
    
  end;
  CloseFile(F);
end;

Answer 4

楼上已经帮你搞定了， 我就不再写了。在帮助中查Write 关键字就找到答案了

Answer 5

var ftxt:textfile;
begin
assignfile(ftxt,"文件名");
rewrite(ftxt);
writeln(ftxt,"要写入的东西");
closefile(ftxt);
end;以上是打开并写textfile的全部过程