找寻skimwater(掠水惊鸿)，关于QRDBText,QRMemo （续）60分

Question

skimwater(掠水惊鸿),
你在吗，为什么不回答我，
还有没其他高手知道，一样给分

Answer 1

skimwater(掠水惊鸿):
  你真厉害呀，不时的看到你发表一些高见，佩服，同时仍不时的做一些幽默，如 回调一个函数
（50000）/m 等 欢迎你随时能回答我的问题，祝你好云！！！！
 

Answer 2

不好意思，弄丢了一句：
var
  s:string;
  i,j:integer;
begin
  s:=Tstringfield(sender).value;
  i:=length(s) div 10 ;
  for j:=1 to i do
  begin
    
    insert(#13#10,s,(j*10+j));
  end;
  QRRichText1.lines.clear;
  QRRichText1.lines.text:=s;
end;