RICHEDIT 在线等啊~！急啊~！

Question

数据库中有ACCESS和TEL两个字段
要求用RICHEDIT读取addess+tel字段ADDESS+TEL长度小于20个中文字时，之间用来补够20个中文字的长度
ADDESS+TEL长度大于20个中文字时，TEL出现在下一行，并在TEL前补上
如何实现？
小弟只能做到从数据库读取~！
望高手帮忙~！procedure TForm5.cxButton1Click(Sender: TObject);  var
      i:integer;
 begin
richedit1.Clear;
DataModuleA.ADOQuery1.First;
i:=1;
while not DataModuleA.ADOQuery1.Eof do
   begin
       richedit1.Lines.Add(DataModuleA.ADOQuery1.FieldByName('addess').Value + '...' + DataModuleA.ADOQuery1.FieldByName('tel').Value);
       inc(i);
       DataModuleA.ADOQuery1.Next;
   end;
end;

Answer 1

补齐字符,str为你实际取到的值
function TForm1.AddChar(str: string):string;
begin
  Result := str+StringOfChar('.',20-length(str));
end;

Answer 2

如果补中文字符不能用StringOfChar,自己循环处理