改行コード入りのmemo1のテキストを改行コードなしでmemo2に出力する


var
  StrList : TStringList;
  Wstr : WideString;
  i : integer;

begin
  Wstr := '';
  StrList := TStringList.Create; //オブジェクトに割り当て
    StrList.Text := memo1.text;
    for i := 0 to StrList.Count - 1 do begin
        Wstr := Wstr + StrList.Strings[i];   
    end;
  memo2.Text := Wstr;
  StrList.Free; //オブジェクトを破棄
end;