如何为memo中文本的每行的首尾添加一定量的空格。通过编程实现自动添加。 [问题点数：20分，结帖人ymhf19373200]
|
注：是首尾！！ |
|
|
|
|
|
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; |
|
|
|
var
lp: integer; begin for lp := 0 to memo1.lines.count - 1 do memo1.lines[lp] := memo1.lines[lp] + ' '; end; |
|
|
|
var
s:string; begin s:=memo1.Lines[0]; insert(' ',s,1); insert(' ',s,length(s)+1); memo1.Lines[0]:=s; |
|
|
关闭