uniGUI读取文本文件(08)

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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

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);  //反写 文本

var aStringlist: Tstringlist;

begin

aStringlist:= Tstringlist.Create;

  aStringlist.Text:= UniEdit1.Text;

   aStringlist.SaveToFile('memo.txt');

aStringlist.Free;

end;