代碼我使用（XE）： // Encrypt a string and return the Base64 encoded result
function Encrypt(DataToEncrypt: ansistring):ansistring;
const Key: Ansistring = 'keykey';
KeySize = 32; // 32 bytes = 256 bit
我有這樣的代碼在Delphi XE function DoSomething(MyVar : Variant) : boolean;
begin
MyVar := 'Bar';
Result := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
foo : string;
beg
編輯 範圍縮小到這個1號線， HTML := wb.OleObject.Document.documentElement.innerHTML;
消耗的時間......這怎麼可能加速？ 使用下面的代碼我的應用程序可能會掛起1-2秒，而它試圖訪問頁面的HTML（Delphi XE）。 function Button1Click(Sender : TObject);
begin
wb.n