本文整理自网络,侵删。
procedure TForm1.FormCreate(Sender: TObject);varFileSteam:TFileStream;beginFileSteam :=TFileStream.Create('u_in200416.log',fmShareDenyNone);memo1.Lines.LoadFromStream(FileSteam);end;
相关阅读 >>
Delphi firemonkey 学习笔记 �c tpopup 控件的使用
Delphi关于tjpegimage的使用(bmp\ jpg格式转换)
更多相关阅读请进入《Delphi》频道 >>