DELPHI里定义数组指针与字符串指针,(菜鸟)问题!(50分)

保

保龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-20

• #1

怎样定义数组指针,与字符串指针,可有好的源程序,多谢!

 

I

ing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-20

• #2

數組指針
Arr:Array of Pointer
字符行指針
Pstr^:String;

 

保

保龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-20

• #3

var
ArByte:Array of Byte;
上面定义了一个数组,问题?怎样定义一个(指向ArByte的数组指针)?

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-20

• #4

PStringItem = ^TStringItem;
TStringItem = record
FString: string;
FObject: TObject;
end;

PStringItemList = ^TStringItemList;
//你要的指针;
TStringItemList = array[0..MaxListSize] of TStringItem;

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-20

• #5

var
ArByte:Array of Byte;
PBByte;
begin
SetLength(ArByte,100);
PB:=@ArByte[0];
end;
数组指针就是指向数组第一个元素的指针

 

J

jmlwz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-20

• #6

var
a:array[1..11] of char;
pachar;
i:integer;
begin
for i:=1 to 11do
a:='a';
pa:=@a;
pa^:='2';
Inc(pa);
// 这句等价于 C 的 ptr++;
pa^:='B';
Inc(pa, 2);
//这句等价于 C 的 ptr+=2;
pa^:='C';
pa^:='2';
a[11]:='8';
end;

 

Y

yueyaren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-20

• #7

var
ArByte,C:Array of Byte;
begin
SetLength(ArByte,100);
C:=ArByte;//C指向ArByte所指向的单元空间
end;

 

保

保龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #8

SetLength()是一个怎样的函数？

 

保

保龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #9

接受答案，并分配积分