如何申明一个大小不定的数组(39分)

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #1

如何申明一个大小不定的数组，并将‘D2 BB FA D5 CA BA C5 31 30 00 00 12 00 00 00 ’这个字符串中的每个数值以16进制的形式赋值给数组，这个字符串的长度不确定

 

那

那锦渤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #2

var
Buffer: Array of string;
begin
SetLength(Buffer, 1);
Buffer[0]:= 'D2';
end;

 

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #3

将‘D2 BB FA D5 CA BA C5 31 30 00 00 12 00 00 00 ’这个字符串中的每个数值以16进制的形式赋值给数,请问这第二步如何写

 

L

liu_sir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #4

试试如strtoint('$'+'D2')，再把其赋给字节量。

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #5

用 StringList 更方便：
var
list: TStringList;
i, n: Integer;
Buffer: string;
begin
Buffer := 'D2 BB FA D5 CA BA C5 31 30 00 00 12 00 00 00';
list := TStringList.Create;
ExtractStrings([' '], [], PChar(Buffer), list)
// 分割
for i := 0 to list.Count - 1 do
begin
n := StrToIntDef('$' + list, 0)
// 赋给整数
ShowMessage(IntToStr);
end;
list.Free;
end;

 

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-02

• #6

var
Buffer: Array of string;
begin
SetLength(Buffer, 1);
Buffer[0]:= 'D2';
end

在这段里如果Buffer: Array of string是Buffer: Array of byte类型该如何定义SetLength(Buffer, 1);的长度呢?

 

Q

qince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-02

• #7

为何不定义成array of Byte或array of Char呢？
然后用CopyMemory复制呢？

 

冬

冬月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #8

var
list: TStringList;
i, n: Integer;
Buffer: string;
begin
Buffer := 'D2 BB FA D5 CA BA C5 31 30 00 00 12 00 00 00';
list := TStringList.Create;
ExtractStrings([' '], [], PChar(Buffer), list)
// 分割
for i := 0 to list.Count - 1 do
begin
n := StrToIntDef('$' + list, 0)
// 赋给整数
ShowMessage(IntToStr);
end;
list.Free;
end;

 

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-24

• #9

接受答案了.