请问如何在memo控件中 输入数据的每个段落后加入一条细线，使段落分明

Question

请问如何在memo控件中 输入数据的每个段落后加入一条细线，使段落分明

Answer 1

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key=#13 then Memo1.Lines.Add('----------------------------------');
end;

Answer 2

比如
procedure TForm1.btn1Click(Sender: TObject);
var
  nmm_str: string;
begin
  nmm_str := '-----------------------------------------';
  mmo1.Lines.Add('士大夫感到发生赶得上法敢死队法告诉反对个'+#13#10+nmm_str);
end;

Answer 3

关键是memo控件的大小可以拖放，拉大的话就变形了

Answer 4

效果如程序截图那样，http://www.dgqq.net/jietu.gif