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

关于网友提出的“ 怎样把字符数组转换成字符串。谢谢。顶者有分
”问题疑问，本网通过在网上对“ 怎样把字符数组转换成字符串。谢谢。顶者有分
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 怎样把字符数组转换成字符串。谢谢。顶者有分
描述:

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

---

解决方案1:

最简单的办法：
定义一个字符串变量 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;

解决方案2:

var str:string;
str:=A;

解决方案3:

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

解决方案4:

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

解决方案5:

up

解决方案6:

UP

解决方案7:

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

解决方案8:

up

解决方案9:

ShowMessage(StrPas(@a));即可显示

解决方案10:

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

解决方案11:

up

解决方案12:

同上

以上介绍了“ 怎样把字符数组转换成字符串。谢谢。顶者有分”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2618124.html