不是函数类型转换。。var str:string; arr: array[0..5] of char; i:Integer; str := 'asdf78'; for i := 0 to 5 do begin arr[i] := str[i+1]; end;
var a: array [0..100] of char; begin strcopy(a, pchar(edit1.text));
楼主可能是这个意思。。 var str:string; a: array of char; i:Integer; begin str := 'asdf78'; SetLength(a,length(str)+1); for i := 1 to length(str) do begin a[i] := Copy(str,i,1); end; end;
str:string;
arr: array[0..5] of char;
i:Integer; str := 'asdf78';
for i := 0 to 5 do
begin
arr[i] := str[i+1];
end;
begin
strcopy(a, pchar(edit1.text));
var
str:string;
a: array of char;
i:Integer;
begin
str := 'asdf78';
SetLength(a,length(str)+1);
for i := 1 to length(str) do
begin
a[i] := Copy(str,i,1);
end;
end;