請教各位大大一個問題： 正在做一個查詢詩詞的系統，查詢結果也要將關鍵字標示出來 可是資料量很大，只是簡單的查詢，也可能跑出一堆資料（通常在五萬字左右） 資料放在Access，而目前的查詢結果是先寫入為HTML檔，再給TWebBrowser呈現，但是因為資料量大，寫入為HTML檔約耗時五秒，給TWebBrowser呈現也要五秒 用HTML呈現的原因，是因為我只會用它來為關鍵字上色...>_<" 也曾使用其他東西來輸出：用過TRichEdit，也使用了BeginUpdate and EndUpdate，可是竟然也要花費四秒鐘左右。也用過ReportBuilder，速度完全符合要求，但卻不知道怎麼為關鍵字上色。 想問各位大大，有什麼好方法能加速輸出嗎？

用以下的指令直接將HTML資料傳給WEBBROWSER,而不要產生HTML檔案

procedure TForm1.Button1Click(Sender: TObject);
var
   vv: Variant;
   HTMLDocument: IHTMLDocument2;
   tmpStr,tmpfilepath:string;
   src:string;
begin
    src:='Delphi K.Top討論區';
    vv := VarArrayCreate([0,0],varVariant);
    vv[0] := src;
    HTMLDocument := webbrowser1.Document as IHTMLDocument2;
    HTML(pSafearray(TVarData(vv).VArray));
    HTMLDocument.close;
end;

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

感謝大大的回答 但是： HTML(pSafearray(TVarData(vv).VArray)); HTMLDocument.close; 這兩行會發生 EAccessViolation，目前還在努力嘗試當中

引言: 感謝大大的回答 但是： HTML(pSafearray(TVarData(vv).VArray)); HTMLDocument.close; 這兩行會發生 EAccessViolation，目前還在努力嘗試當中

您用的Delphi幾版 ～～～Delphi K.Top討論區站長～～～

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, SHDocVw,mshtml,ActiveX;    type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
var
   vv: Variant;
   HTMLDocument: IHTMLDocument2;
   tmpStr,tmpfilepath:string;
   src:string;
begin
    src:='Delphi K.Top討論區';
    vv := VarArrayCreate([0,0],varVariant);
    vv[0] := src;
    HTMLDocument := webbrowser1.Document as IHTMLDocument2;
    HTML(pSafearray(TVarData(vv).VArray));
    HTMLDocument.close;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
    webbrowser1.Navigate('about:blank');    end;    end.    

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

感謝天使大大的指導 約快了 25% 呢

delphi7 IE5.0 這兩行會發生 EAccessViolation

原來加上tmpStr,tmpfilepath:string;就可以了 ^_^;