怎样限定长度读取字符?

Question

比如有个文本:aadsadsdasdsadasdasdsadasgvfbhgfjhhg...,
我想读取10个字符为一行,满行就下移一行,不够10个字符时就用空格填满,起结果为:
aadsadsdas
dsadasdasd
sadasgvfbh
gfjhhg    
请留下您的高论!谢谢!!!

Answer 1

var
  str:string;
  i:integer;
  slist:Tstringlist;
begin
  str:= 'aadsadsdasdsadasdasdsadasgvfbhgfjhhg...';
  while length(str) mod 10 <> 0 do
    str := str + ' ';
  slist:= Tstringlist.create;
  for i := 1 to length(str) div 10 do
    slist.add(copy(str,(i - 1) * 10 + 1, 10));
  showmessage(slist.text);
  slist.free;
end;