请教一个问题，马上结贴！

Question

如何实现从A，B，C一直变到Z，再变到AA，AB，AC...AZ
即：象Excel中的列一样由A到Z：
ch:char;
ch:=char(byte('a')+colCount-1);
再上去到AA，AB，AC...怎么写？

Answer 1

ch1,CHAR2:char;
CHAR:pchar;FOR CHAR2:= 'A' TO 'Z' DO 
 FOR CHAR2:= 'A' TO 'Z' DO
BEGIN
 char:=char1+char2
END;

Answer 2

sorry
FOR CHAR2:= 'A' TO 'Z' DO 
 FOR CHAR1:= 'A' TO 'Z' DO
BEGIN
 char:=char1+char2
END;

Answer 3

ch1,ch22:char;
sChr:string;   // char 只能保存一个字节，应该用string 或者字符数组FOR ch1:= 'A' TO 'Z' DO 
  FOR ch2:= 'A' TO 'Z' DO begin
    sChr:= char1 + char2;
    // sChr 就是你想要的
  end;