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;
标签:02,uniGUI,Tstringlist,Text,Create,TObject,文本文件,txt,aStringlist 来源: https://www.cnblogs.com/tulater/p/12246234.html