Delphi: ファイルに保存

ごく簡単な説明目的で記載しています。

ファイルに保存

sample.pas

procedure TForm1.Button1Click(Sender: TObject);
var
  MyText: TStringlist;
begin

  MyText:= TStringlist.create;
  try
    MyText.Add('line 1');
    MyText.Add('line 2');
    MyText.SaveToFile('E:\filename.txt');
  finally
    MyText.Free
  end; {try}
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MyText: TStringlist;
  dt:TDateTime;
begin
  dt:=Now;
  MyText:= TStringlist.create;

  try
    MyText.Add(DateTimeToStr(dt));
    MyText.SaveToFile('E:\filename.txt');
  finally
    MyText.Free
  end; {try}
end;

参考

以上です。