如何把字符串写入TXT文件

Question

var
    fp:integer;
    myStr:string;
begin
    myStr:='123 456 789 147 258 369';
    fp:=filecreate('test.txt');
    filewrite(fp,myStr[1],length(myStr));
    fileclose(fp);
end;

Answer 1

var
  f:textfile;
assign(f,'text.txt');
rewrite(f);
writeln(f,'  ');
closefile(f);

Answer 2

想偷懒的话，可以用memo来存放字符串最后memo.lines.savetofile('test.txt')

Answer 3

var
   txtfile:TextFile;
   buff:string;
begin
   buff:='aaaaaaaaaaaaa';
   assignfile(txtfile,'c:\1.txt');
   rewrite(txtfile);
   writeln(txtfile,buff);
   closefile(txtfile);
end;

Answer 4

哦，还有
memo所能存取的文件最大大概是32K（64K？），记不清了
如果字符串很长，可以用richedit