Question

关于delphi edit.text的信息存储

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

Answer 1

'添加一个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;

Answer 2

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

追问

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

追答

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

追问

数据库怎么弄？

追答

你不会什么都不懂吧？
那你还弄这么多花样
先学基础吧