那位高手帮我把delphi代码转bcb代码,谢谢
procedure ShowInWebBrowser(WebB:TWebBrowser; Str:String);
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument:= WebB.Document as IHTMLDocument2;
if (Assigned(HtmlDocument)) then
begin
v:= VarArrayCreate([0, 0], varVariant);
v[0]:= Str; //that is to be shown
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;
end;
学习学习，顺便围观老妖！
感谢妖哥的回复，不过这个好像只能写入一条记录，不能写入多条记录。
不知道你说的这个多条记录是什么东东?
谢谢妖哥，已经可以写入多条字符。
End_rbody_62581646//-->
该回复于2010-01-09 15:01:38被版主删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
