uniGUI读取文本文件02)

 

 

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;

　　

 

原文链接:https://www.cnblogs.com/tulater/p/12246234.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有