array of const是怎样定义出来的？(100分)

B

bvcxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #1

在Ttable.AppendRecord方法中，参数是array of const类型，
如Table1.appendrecord(['aaa','bbb',Null]);
我在自己的函数中也想使用这种类型，可是不知道是怎样定义的？
请指教。

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #2

type
/////////////////
TMyArray=array[0..2] of integer;

 

S

skyweb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #3

array of const 只能用于定义函数/过程/方法的参数
例:
procedure MyTest(Args: array of const);
var
i: integer;
begin
for i:=0 to High(Args) do // 用High函数取得一个数组的最大下标
begin
case TVarRec(Args).VType of
vtInteger: writeln(vInteger)
// 处理整型数据
vtBoolean: writeln(vBoolean)
// 处理逻辑型数据
... // 其它类型(参见Delphi帮助,关键字"TVarRec")
end;
end;
end;

 

0

0738

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #4

用VarArrayOf直接转换，我不知道你问题的关键在哪里，是函数声明呢还是调用

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #5

A: Variant;
begin
A := VarArrayCreate([0, 4], varVariant);
A[0] := 1;
A[1] := 1234.5678;
A[2] := 'Hello world';
A[3] := True;
A[4] := VarArrayOf([1, 10, 100, 1000]);

 

O

oocoolie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #6

just so:

a:array[0..1] of const=('a','b');

用法与普通数组一样

 

D

danliyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #7

to oocoolie:
你那样不行。
同意skyweb.

 

J

Johnqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #8

[]