怎样在RichEdit组件的指定行显示信息？

Question

例如在第i行，用这样的方法能显示str1？
RichEdit1.lines(i).add('str1'); 

Answer 1

while(RichEdit1.Lines.Count<I) do RichEdit1.Lines.Add('');
RichEdit1.Lines.Strings[I] := RichEdit1.Lines.Strings[I] + 'str1';

Answer 2

我这样理解您的代码：第I行以前为''，全为空白，在第I行写进str1，是这样吧？

Answer 3

是先判断是否有足够行数，如果没有就使用空生补充，否则就直接在该行现有内容后面插入。如果你只是想替换，那就改:
RichEdit1.Lines.Strings[I] := RichEdit1.Lines.Strings[I] + 'str1';
为
RichEdit1.Lines.Strings[I] :=  'str1';

Answer 4

var count:integer; 
str1,str2:string; 
begin 
RichEdit1.SelAttributes.Color := clRed; 
RichEdit1.lines.add('str1'); 
count:=RichEdit1.lines.count; 
count:=count+2; 
RichEdit1.SelAttributes.Color := clBlue; 
RichEdit1.lines.Strings[count]:='str2';  
end; 这样可在str1显示后隔一行显示str2？