Question

delphi 生成txt文件

就是把编辑框1的内容+编辑框2的内容 生成一个 1.txt的内容 需要生成在运行目录下面 谁会？

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
var
strlist:TStringList;
begin
strlist:=TStringList.Create;
strlist.Add(mmo1.Text);
strlist.Add(mmo2.Text);
strlist.SaveToFile(ExtractFilePath(Paramstr(0))+'x.txt');
end;