怎么在MEMO控件中输出定宽文本 [A B C] 马上结帖！

Question

怎么在MEMO控件中输出定宽文本 [A  B  C]  ?

Answer 1

原字符串
1,AAA
2,B
3,CC要在MEMO上输出格式为：AAA

Answer 2

原字符串
1,AAA
2,B
3,CC要在MEMO上输出格式为：
***********************************
AAA     B       CC
CC      AAA     B 
B       CC      AAA
**********************************每一列要对齐,在DELPHI中有没有直接可以用的函数或方法?

Answer 3

自己写个好了,使它长度都为20，然后空格填充
function extend(inputStr:string):string;
var
s_length:integer;
i:integer;
begin
  s_length:=length(inputStr);
  for i:=1 to 20-s_length do
    result:=inputStr+' ';
end;