Delphi-->BCB(50分)

B

blackbox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #1

procedure THtmlEditorForm.GetBlockFormatNames(AFormats: TStrings);
var
V : OleVariant;
I: Integer;
begin
V := CoDEGetBlockFmtNamesParam.Create;
DHTMLEdit.ExecCommand(DECMD_GETBLOCKFMTNAMES, OLECMDEXECOPT_DODEFAULT, V);
V := V.Names;
for I := VarArrayLowBound(V, 1) to VarArrayHighBound(V, 1) do
AFormats.Add(V);
end;

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #2

void THtmlEditorForm::GetBlockFormatNames(TStrings AFormats )
{
OleVariant V ;
int I;
V = new CoDEGetBlockFmtNamesParam(this);
DHTMLEdit->ExecCommand(DECMD_GETBLOCKFMTNAMES, OLECMDEXECOPT_DODEFAULT, V);
V= V->Names;
for(int I=VarArrayLowBound(V, 1) ;I< VarArrayHighBound(V, 1) ;I++)
AFormats->Add(V);
}

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #3

纠正一个地方,否则会少一次循环的
for(int I=VarArrayLowBound(V, 1) ;I<= VarArrayHighBound(V, 1) ;I++)

 

B

blackbox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #4

void THtmlEditorForm::GetBlockFormatNames(TStrings AFormats )//应该用TStringList
{
OleVariant V ;
int I;
V = new CoDEGetBlockFmtNamesParam(this);//编译通不过
DHTMLEdit->ExecCommand(DECMD_GETBLOCKFMTNAMES, OLECMDEXECOPT_DODEFAULT, V);
V= V->Names;//编译通不过
for(int I=VarArrayLowBound(V, 1) ;I< VarArrayHighBound(V, 1) ;I++)
AFormats->Add(V);
}

 

R

real_clq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #5

写成一个函数单元，用bcb use就可以了。自动产生接口文件。

 

B

blackbox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #6

具体点好吗？谢谢

 

B

blackbox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-25

• #7

如何调整行距？？