如何取消Tstringlist中的每行文本中的空格?

Hi andy_qin,    試試看

procedure TForm1.Button1Click(Sender: TObject);
  procedure ReplaceSpaceInStrings(Sender : TStrings);
  Var
    I : Integer;
  begin
    for i := 0 to TStringList(Sender).Count - 1 do
      begin
        TStringList(Sender).Strings[I] := StringReplace(TStringList(Sender).Strings[I],' ','',[rfReplaceAll]);
      end;
  end;    begin
  ReplaceSpaceInStrings(Memo1.Lines);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi Fishman兄您好, 插個花: 直接對TStringList.Text做StringReplace也可. 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

Hi Miles,    感謝指教，又多學一招，你的 Solution 比較好用，又簡單又明瞭，再次感謝。 範例程式如下：   ST.Text :=  StringReplace(ST.Text,' ','',[rfReplaceAll]);    其中： ST : TStrings;     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感激各位