現在の日時ファイル名を付けて保存 (ID：11132)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

現在の日時を取得して例えば、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から取得したり、日時を入れたりとバラバラです。

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

←解決時は質問者本人がここをチェックしてください。

戻る