テキストファイルを新規に作成するには？

解決

英国屋 2004-04-14 23:48:42 No: 8349

データファイルよりデータを取得しプログラムでデータを編集して
本日日付.txtファイルを作成したいのですが

テキストファイルを作成する方法がわかりません

よろしくお願いいたします

jok 2004-04-15 02:26:08 No: 8350

TStringList のインスタンスの SaveToFile() メソッドを使うのが簡単です。

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add('AAAAAAAAAA');
    sl.Add('1234567890');
    sl.Add('ああああああああ');
    sl.SaveToFile('c:\'+FormatDateTime('yymmdd',Now)+'.txt');
  finally
    sl.Free;
  end;
end;

これを実行すると

AAAAAAAAAA
1234567890
ああああああああ

の三行のテキストからなる

C:\040414.txt

という名前のテキストファイルができます。

英国屋 2004-04-15 02:58:54 No: 8351

スレありがとうございます

ｊｏｋさんの方法で解決しました

どうもありがとうございました

＿ 2004-04-15 03:09:37 No: 8352

>スレありがとうございます
レス