Question

delphi中怎么生成一个TXT文档

在打开程序后生产一个TXT文件 里面内容是[Filed]
IP=.
Pass=sa
User=sa名字叫DataBaseSet.Ini 目录要和这个程序的目录一样 怎么写 谢谢

Answer 1

procedure Twrt_Form.N1Click(Sender: TObject);
var
myfile: Textfile;
s,str:string;
begin
richedit1.Text:='';
if opendialog1.Execute then //此处选择你要打开的文件
begin
caption:=opendialog1.FileName;
str:=opendialog1.FileName;
assignfile(myfile,str);
reset(myfile);
try
while not eof(myfile) do
begin
readln(myfile,s); //读文件
richedit1.Lines.Add(s);
end;
finally
closefile(myfile);
end;
end;
end;