Question

delphi 如何将edit文本的内容text保存到文本.txt中?

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
var
text:TextFile;
s:string;
begin
s:=edt1.text;
AssignFile(text,'e:\test.txt');
Rewrite(text);
Writeln(text,s);
closefile(text);
end;