現在の日時ファイル名を付けて保存

解決

shimippy 2004-09-27 05:57:32 No: 11132

現在の日時を取得して例えば、2004年09月26日20時50分なら
0409262050.txt という名前のファイルを生成し、そこに任意の文字列を書き込む。
という事を実装したいのですが、書き方がわからずに困っています。
色々調べて、日付を0409262050の形にする事はできたのですが、ファイル保存の為の関数をどれを使うのが良いのかわかりません。

過去ログで以下の様なソースを見つけました。

procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;F:TextFile;
mat:array [0..9,0..9] of Integer;FS:TFileStream;

begin  FS := TFileStream.Create('D\tes.txt',fmOpenWrite + fmShareExclusive);
AssignFile(F, 'tes.txt');
Rewrite(F);
        for i := 1 to 10 do
         begin for j := 1 to 10 do
                begin mat[i,j] := i+j;
                end;
         end;
        for i := 1 to 10 do
         begin for j := 1 to 10 do
                begin Writeln(F, IntToStr(mat[i,j]));
                end;
         end;
         FS.Free;
end;
-----------------------------------------------------------------

begin FS := TFileStream.Create('D\tes.txt',fmOpenWrite + fmShareExclusive);
AssignFile(F, 'tes.txt');
↑この部分をファイル名を日時にしようと、試みましたが、エラーでうまくいきませんでした。

また、任意の文字列というのは、10数行に渡る物で、TMemoから取得したり、日時を入れたりとバラバラです。

初心者なので、サンプルコードを交えて解説していただけるとありがたいです。。。

shimippy 2004-09-27 06:19:59 No: 11133

すいません。開発環境書いていませんでした。

Windows Home Edition
Delphi 6 Personal
です。

頑固ひとスジふたスジ 2004-09-27 18:19:05 No: 11134

ふたスジ：「おまえが持ってるケーキ、美味そうやん」
ひとスジ：「そうかな〜マズイと思うけど…」
ふたスジ：「なら、おれが食べたる。くれや」
ひとスジ：「あっ、食べちゃダメ〜！」
ふたスジ：「ウップ…なんやこれ」
ひとスジ：「だって食品サンプルだもん。でもこっちのサンプルなら美味いと思うよ」
ふたスジ：「いらん」

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFilestream;
  sText, sTmp, sDate: string;
begin
  sTmp := ShortDateFormat;
  ShortDateFormat := 'yymmddhhmm';
  sDate := DateToStr(Now);
  ShortDateFormat := sTmp;
  fs := TFilestream.Create(sDate +'.txt', fmCreate);
  try
    sText := DateTimeToStr(Now) +#13#10+ Memo1.Text;
    fs.Write(sText[1], Length(sText));
  finally
    fs.Free;
  end;
end;

shimippy 2004-09-28 08:50:10 No: 11135

ありがとうございました。