Question

Delphi 去除Memo中每行两边的空格

我知道用trim来去除空格.
但是每一行.....这个循环我老做不好!
希望哪位朋友给我提示下.或者附上源码.谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
iCount:integer;
sMemoItem:String;
begin
//循环
for iCount:=0 to self.Memo1.Lines.Count-1 do
begin
//去掉每一行前后空格
sMemoItem:=trim(self.Memo1.Lines.Strings[iCount]);
end;
end;