这句C++的语句怎么转成Delphi的 ( 积分: 50 )

D

DJ6674

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #1

int digit= 10;
int *array1 = new int[digit]
//Delphi中的动态分配内存语句是什么.
delete [] array1
//对应的删除又是什么??

 

D

DJ6674

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #2

int digit= 10;
int *array1 = new int[digit]
//Delphi中的动态分配内存语句是什么.
delete [] array1
//对应的删除又是什么??

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #3

procedure TForm1.Button2Click(Sender: TObject);
const digit = 10;
Var
array1 : Array Of Integer;
begin
SetLength(array1, digit);
//...
array1 := Nil;
end;

 

D

DJ6674

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #4

int digit=10 对应的是 const digit=10吗?
我这里的digit是变量啊,不是常量

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #5

错了，应该是变量，不是常量
procedure TForm1.Button2Click(Sender: TObject);
Var
digit : Integer;
array1 : Array Of Integer;
begin
digit := 10;
SetLength(array1, digit);
//...
array1 := Nil;
end;

 

C

czcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #6

在delphi中局部变量不能赋初值.
从题面上看digit是const的用途.
如要变量.只能
procedure ...
var
digit: integer;
...
begin
digit:=10;
....

 

X

xiaomutou9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #7

procedure TForm1.Button2Click(Sender: TObject);
Var
digit : Integer;
array1 : Array Of Integer;
begin
digit := 10;
SetLength(array1, digit);
//...
SetLength(array1, 0);
array1 := Nil;
end;

 

D

DJ6674

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #8

多人接受答案了。