那位高手帮我把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
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
