如何将data: array[1..12] of Char中的内容转换为字符串(50分)

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #1

不知道有没有可用的函数可以直接转换？

 

L

liuchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #2

var
A:array[0..3] of Char;
S:string;
begin
A[0]:='a';
A[1]:='b';
A[2]:='c';
A[3]:='d';
S:=a;
Caption:=S;
end;

 

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #3

直接使用s:=a;系统应会提示字符串不能等于数组，字符数组是以＃0结尾的。

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #4

循环.
for i:=1 to 12 do s:=s+data;

 

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #5

难道没有delphi函数可以直接使用吗？

 

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #6

多人接受答案了。

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #7

var
A:array[0..3] of Char;
S:string;
begin
A[0]:='a';
A[1]:='b';
A[2]:='c';
A[3]:='d';
S:=StrPas(@A);
ShowMessage(S);