M maill01 Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-18 #1 richedit1里的内容如何从第二行开始每行前自动显示空4个字节
W wangdonghai Unregistered / Unconfirmed GUEST, unregistred user! 2009-04-01 #3 procedure TForm1.Button1Click(Sender: TObject);var i:integer; s:string;begin for i:=1 to RichEdit1.Lines.Count-1 do begin s:=' '+RichEdit1.Lines; RichEdit1.Lines:=s; end;end;
procedure TForm1.Button1Click(Sender: TObject);var i:integer; s:string;begin for i:=1 to RichEdit1.Lines.Count-1 do begin s:=' '+RichEdit1.Lines; RichEdit1.Lines:=s; end;end;
