如何为memo中文本的每行的首尾添加一定量的空格。通过编程实现自动添加。

Question

如何为memo中文本的每行的首尾添加一定量的空格。通过编程实现自动添加。
注：是首尾！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
   for i:=0 to self.Memo1.Lines.Count-1 do
    begin
      self.Memo1.Lines[i]:= '     '+ self.Memo1.Lines[i]+'     ';
    end;
end;

Answer 2

var
  lp: integer;
begin
  for lp := 0 to memo1.lines.count - 1 do
   memo1.lines[lp] := memo1.lines[lp] + '    ';  
end;

Answer 3

var
  s:string;
begin
  s:=memo1.Lines[0];
  insert('     ',s,1);
  insert('     ',s,length(s)+1);
  memo1.Lines[0]:=s;