如何得到这样一个字符串？？？

Question

var x,y,z:string;
    char:string;
  begin
     x:='AAA';
     y:='BBB';
     z:='CCC';
  如何得到(char:='AAA,BBB,CCC') ?

Answer 1

AAAA,如何得到AAA
x:='AAA';
char:=x-',';
可对？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
ghy:string;
char:string;
begin
ghy:='aaaa';
char:=copy(ghy,0,3);
showmessage(char);
end;

Answer 3

我晕倒
如果char是关键字，那么就有问题
如果char是string 变量，那么char:=x+','+Y+','+Z就可以啦

Answer 4

你的定义有问题，char是关键字，所以编译时会出错!

Answer 5

a:=copy(x,1,pos(',')-1);
x:=copy(x,pos(',')+1,length(x));
b:=copy(x,1,pos(',')-1);

Answer 6

too simple ,too native!!!!
up