掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
現在の日時ファイル名を付けて保存 (ID：11134)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ふたスジ： 「おまえが持ってるケーキ、美味そうやん」 ひとスジ： 「そうかな〜マズイと思うけど…」 ふたスジ： 「なら、おれが食べたる。くれや」 ひとスジ： 「あっ、食べちゃダメ〜！」 ふたスジ： 「ウップ…なんやこれ」 ひとスジ： 「だって食品サンプルだもん。でもこっちのサンプルなら美味いと思うよ」 ふたスジ： 「いらん」 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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.