关于delphi edit.text的信息存储

edit1里的内容按回车之后存储到下面，能用还追分... edit1里的内容按回车之后存储到下面，能用还追分展开

 我来答

2个回答

#热议# 为什么说不要把裤子提到肚脐眼？

veket的小号
2013-08-27 · TA获得超过3371个赞

知道大有可为答主

回答量：3762

采纳率：0%

帮助的人：3977万

我也去答题访问个人页

关注

展开全部

'添加一个edit控件一个memo控件
'edit控件的keypress事件处理回车
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13)and(Edit1.Text <> '') then
    Memo1.Lines.Add(Edit1.text);
end;

'窗体create事件判断一下程序所在目录有没有text.txt文件
'如果有就加载到memo控件,如果没有清空memo
procedure TForm1.FormCreate(Sender: TObject);
begin
    if FileExists(ExtractFilePath(Paramstr(0)) + 'text.txt') then
      Memo1.Lines.LoadFromFile(ExtractFilePath(Paramstr(0)) + 'text.txt')
    else
      Memo1.clear;
end;
'窗体关闭close事件将memo中的内容再存回文件
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Memo1.Lines.SaveToFile(ExtractFilePath(Paramstr(0)) + 'text.txt');
end;

本回答由提问者推荐

已赞过 已踩过<

评论收起

下扬州啊
2013-08-27 · TA获得超过2519个赞

知道大有可为答主

回答量：4870

采纳率：40%

帮助的人：2119万

我也去答题访问个人页

关注

展开全部

好简单，存数据库里面，每次输入的试试调出了显示，选择

更多追问追答

追问

具体该怎么弄啊，新手求帮助

追答

每次onexit的时候，把text保存到数据库，
下次onenter的时候吗，读取

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

关于delphi edit.text的信息存储

为你推荐：