delphi,怎么在edit中输入数据点击按钮保存,且输入多次保存,求代码
2个回答
展开全部
首先你要确认保存在哪里?要以怎样的形式保存?以下代码为保存到记事本的简单示例:
edit1为输入框 button1为保存按钮
procedure TForm1.Button1Click(Sender: TObject);
var
strlist: tstringlist;
fna: string;
begin
if edit1.Text = '' then exit;
fna := 'D:\result.txt';
strlist := tstringlist.Create;
strlist.LoadFromFile(fna);
strlist.Add(edit1.Text);
strlist.SaveToFile(fna);
strlist.Free;
end;
//txt文件路径可自行定义
edit1为输入框 button1为保存按钮
procedure TForm1.Button1Click(Sender: TObject);
var
strlist: tstringlist;
fna: string;
begin
if edit1.Text = '' then exit;
fna := 'D:\result.txt';
strlist := tstringlist.Create;
strlist.LoadFromFile(fna);
strlist.Add(edit1.Text);
strlist.SaveToFile(fna);
strlist.Free;
end;
//txt文件路径可自行定义
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询