小弟不才，碰到一个问题望各位大侠指教。 ( 积分: 200 )

N

netproxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-08

• #1

有一个ocx import到delphi,有一个函数 foo(var refi:integer)
VB的例子如下，但不知Delphi怎么完成:（各位见笑了）
dim lm(0) of long
foo(lm(0))

 

N

netproxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-08

• #2

有一个ocx import到delphi,有一个函数 foo(var refi:integer)
VB的例子如下，但不知Delphi怎么完成:（各位见笑了）
dim lm(0) of long
foo(lm(0))

 

P

piao40993470

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-08

• #3

var t: integer;
foo(t)

 

N

netproxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-08

• #4

这样不行,因为vb定义是dim lm(0) as long,是一个array.
vb可以这样传入参数,但Delphi怎么弄,如果定义成var a:array of integer;
foo(a);
编译通不过.

 

H

hotboys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-08

• #5

這樣就行了：
聲明數組：var b:array[0..2] of integer;

聲明過程：procedure foo(var a:integer)
//這是一個過程
初始化數組b:b[0]:=1;b[1]:=2;b[2]:=3;
調用foo：foo(b[0]);

 

D

dear12399

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-08

• #6

楼上的差不多了，但可能要把过程声明改为：
procedure foo(var a: array of integer)

调用为：
foo(b);

 

魏

魏红

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-08

• #7

你的vb例子里面虽然声明的是数组,但实际代入的还是一个整数,因此,它的声明不用变化
可以这么做

声明过程:
procedure foo(var refi:integer)
stdcall;
var x:integer;
foo(x);

如果愿意用数组,可以这样:
var x:array[1..10] of integer;
for i:=1 to 10 do foo(x);

 

N

netproxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-09

• #8

不好意思,是我看错了,VB定义是这样的 Dim lm(128) As String
foo(lm(0));
它是这样调用的,但这个ocx导入到Delphi中函数为
foo(var rel:integer);