unihtmlmemo使用
2021-03-21 07:27
阅读：399
标签：src rac copy ring adb ext let complete object unihtmlmemo使用 unihtmlmemo使用 标签：src rac copy ring adb ext let complete object 原文地址：https://www.cnblogs.com/hnxxcxg/p/12723879.html
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
UniMemo1.Text := UniHTMLMemo1.Text;
end;
procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;
AStream: TFileStream);
begin
var filename: string:=‘files/yn‘+ formatdatetime(‘yyyymmddhhnnsszzz‘, Now) + ExtractFileExt(UniFileUploadButton1.FileName);
CopyFile(PChar(AStream.FileName), PChar(filename), False);
UniHTMLMemo1.Lines.Add(‘
‘);
end;
评论
亲，登录后才可以留言！