既存ファイルへのメモ内容の保存

解決

固まる 2004-06-18 21:07:55 No: 9490

いつもお世話になっております。
最近 Memo1.Lines.SaveToFile('FileName'); を覚え、
あまりの簡単さに唖然としました。
ところで、既存のテキストファイルの後ろに、メモの内容をアペンド
するようなときは、やはり地道に１行づつファイルに追加していかないとだめでしょうか、
もしも簡単に一発で処理する方法がありましたら、教えてください。

にしの 2004-06-18 21:31:59 No: 9491

１行ずつでは無いですが、地道に書く必要はあると思います。
小さいファイルであれば、

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(FileName);
    sl.AddStrings(Memo1.Lines);
    sl.SaveToFile(FileName);
  finally
    sl.Free;
  end;
end;

こんな感じにも書けます。
# 追記というより、ファイルの置き換えですが。

固まる 2004-06-20 01:54:38 No: 9492

ファンタスティックです。
ありがとうございます。