Delphi 去除Memo中每行兩邊的空格

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;

上一篇:mt管理器為什麽找不到手機桌面

下一篇:什麽是plugin.exe嗎