测试测试测试测试

procedure TMiniBrowserFrm.dxBarLargeButton7Click(Sender: TObject);
var
  str: string;
begin
  str := FDQuery1.FieldByName('content').AsString;
//  str := StringReplace(str, '''', '&#39', [rfReplaceAll]);
//  str := StringReplace(str, '"', '&#39', [rfReplaceAll]);
//  str := StringReplace(str, #13, '', [rfReplaceAll]);
//  str := StringReplace(str, #10, '', [rfReplaceAll]);
//  str := StringReplace(str, #10#13, '', [rfReplaceAll]);
//  str := 'document.getElementById("content").value="' + str + '"';


  str := StringReplace(str, '''', '"', [rfReplaceAll]);
  str := StringReplace(str, #13, '', [rfReplaceAll]);
  str := StringReplace(str, #10, '', [rfReplaceAll]);
  str := StringReplace(str, #10#13, '', [rfReplaceAll]);
  str := 'document.getElementById("content").value=''' + str + '''';


//  Memo1.Text := str;
  Chromium1.ExecuteJavaScript(str, 'about:blank', 0);
end;
THE END
文章版权归作者所有,未经允许请勿转载。
点赞8赞赏
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片