WebBrowser问题(100分)

用 WebBrowser1.ExecWB(OLECMDID_selectall,OLECMDEXECOPT_DODEFAULT);
选择内容后，如何直接将所选内容赋予字符串，不能经过粘贴板
（不用WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT);）

procedure TForm1.Button3Click(Sender: TObject);
var
Doc : IHTMLDocument2;
Sel : IHTMLSelectionObject;
txt : IHTMLTxtRange;
begin
w.ExecWB(OLECMDID_selectall,OLECMDEXECOPT_DODEFAULT);
Doc := w.Document as IHTMLDocument2;
Sel := DOC.selection;
txt := Sel.createRange as IHTMLTxtRange;
Memo1.Text := Txt.text ;
end;

to realLearning:上述方法有个缺陷，即会丢失部分空格，比如17.89 165.230会
变成17.89165.230，我就无法识别。

没人知道吗？

接受答案了.