怎样把字符数组转换成字符串。谢谢。顶者有分

Question

var
  A:Array [1..260] of AnsiChar;
我现在想知道A里都有些什么，我怎么做？
怎么用ShowMessage来看？

Answer 1

for i=1 to 260 do
   Astr:=Astr+A[i];
showmessage('Astr');

Answer 2

ShowMessage(StrPas(@A));
function StrPas(const Str: PChar): string;

Answer 3

var
  A:Array [1..4] of AnsiChar;
begin
  A[1]:='1';
  A[2]:='2';
  A[3]:='3';
  A[4]:='4';  Edit1.Text:= StrPas(@a); //结果是  1234岞   为何?
end;

Answer 4

Edit1.Text:= Trim(StrPas(@a)); //试试

Answer 5

ShowMessage(StrPas(@a));
也可用:
var str:string;
str:='';
for i:=1 to 260 do
   str:=str+A[i];
showmessage(str);

Answer 6

可用:
ShowMessage(StrPas(@a));
也可用:
var str:string;
str:='';
for i:=1 to 260 do
   str:=str+A[i];
showmessage(str);

Answer 7

可用:
ShowMessage(StrPas(@a));
也可用:
var str:string;
str:='';
for i:=1 to 260 do
   str:=str+A[i];
showmessage(str);

Answer 8

最简单的办法：
定义一个字符串变量 aString ：String；
aString := A;
我试验了，没有问题
procedure TForm1.Button1Click(Sender: TObject);
var
  A :Array[0..4] of AnsiChar;
  Str :String;
begin
  a[0] := 'a';
  a[1] := 'b';
  a[2] := 'c';
  a[3] := 'd';
  a[4] := 'e';
  astring :=A;
  Edit1.Text :=aString;
end;