如何将一个字符串转换成一个字符串数组呢？？(50分)

J

jyh_jack

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #1

var a:array[0..10] of char;
s:string;
i:integer;
begin
s:='string';
//开始转换
for i:=1 to length(s) do
a[i-1]:=s;

showmessage(a);
//为什么结果中的尾部总会有一些其它的不属于s的东西呢。
end


请教各位有没有什么好办法可以转换串到组呢。？？

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #2

a : array of char;
len := Length(s);
SetLength(a, Len)

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #3

a := ''
//加上这一句

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
a:array of char;
s:string;
i:integer;
begin
s:='123456789';

setlength(a,length(s));
//开始转换
for i:=1 to length(s) do
a[i-1]:=s;
end;

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #5

这是我自己写的一段代码，你看看
procedure StringToArray(var A: array of char
s: String);
var
i:Integer;
begin
for i:=Low(A) to High(A) do
begin
A:=#0;
end;
if SizeOf(A)>Length(S) then i:=Length(s)
else i:=SizeOf(A);
CopyMemory(@A,@s[1],i);
end;

 

J

johnsun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #6

在循环后面，showmessage前面加入
a[length(s)]:=#0;

 

J

jyh_jack

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #7

多人接受答案了。