为了测试没有数据库下的简单入门例子

procedure TMainForm.UniButton2Click(Sender: TObject); // 读取  文本
var aStringlist: Tstringlist;
begin
aStringlist:= Tstringlist.Create;
 aStringlist.LoadFromFile('memo.txt');
 UniEdit1.Text:=  aStringlist.Text;
aStringlist.Free;
end;


procedure TMainForm.UniButton1Click(Sender: TObject);  //返写 文本,保存UniEdit1.Text到memo.txt,下次 读取时能看到
var aStringlist: Tstringlist;
begin
aStringlist:= Tstringlist.Create;
  aStringlist.Text:= UniEdit1.Text;
   aStringlist.SaveToFile('memo.txt');
aStringlist.Free;
end;

 

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,总是说我字少,