Question

如何在delphi中创建一个 记事本文件(*.txt) 然后把form1.edit.text里的字符写进几时本?

创建一个 记事本文件(*.txt) 然后把form1.edit.text里的字符写进几时本?
谢谢!!!!!!!

Answer 1

我给你写个函数：
Procedure WriteTxt(sFileName,sText:String); //写txt文件
Var
F:TextFile;
Begin
AssignFile(F,sFileName);
IF FileExists(sFileName) Then
Append(F)
Else
ReWrite(F);

WriteLn(F,sText);
CloseFile(F);
End;

然后调用：
WriteTxt（'e:\1.txt',form1.edit.text);

Answer 2

用这个函数可以程序创建一个文件。
h:=CreateFile('D:\temp.txt',3,5,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,0);
然后你可以用writefile这个函数将edit1.text写入这个文件中。