类型转换的问题。 ( 积分: 30 )

Y

yzj_888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-01

• #1

var
a:array[0..128] of char;
b:string;

问怎样把b的类型转经为a的类型呢，谢谢。

 

N

nosunday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-01

• #2

var
a:array[0..128] of pchar;
b:string;
begin
b:='abc';
a[1]:=pchar(b);
showmessage(a[1]);
end;

 

Y

y7y8yyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-01

• #3

var
a:array[0..128] of char;
b:string;
i:integer;
begin
b := 'abcdefghi';
for i := 1 to length(b) do
a[i - 1] := b;
showmessage(a[1]);
end;

 

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-01

• #4

for i := 0 to Lenght(b)-1 do
a := b[i+1];