カレンダーの日付をクリックして日記を書き込むには？ (ID:3033)

名前

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

本文

「ふたすじ」： カッパの４姉妹、いまドコにおるん？
「ひとすじ」： 風のタヨリによると、人間に化けてウロチョロしてるらしいよ。
「ふたすじ」： あいつらドジやんか、シッポ出してバレるンちゃう？
「ひとすじ」： ううん、サラは出してもシッポは出さないって。

const
  DIALY_FILE = 'MyDialy.txt';
  DUMMY_CRLF = #$F1#$F2;
  TAGGED_CHR = '%';
var
  CurDateTag : string;

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
 with TStringList.Create do begin
  try
   if FileExists(DIALY_FILE) then begin
    LoadFromFile(DIALY_FILE);
    if Memo1.Modified then begin
     Values[CurDateTag] := StringReplace(Memo1.Text, #13#10, DUMMY_CRLF, [rfReplaceAll]);
     SaveToFile(DIALY_FILE);
     Memo1.Modified := False;
    end;
    CurDateTag := TAGGED_CHR + DateToStr(MonthCalendar1.Date) + TAGGED_CHR;
    if Values[CurDateTag] <> '' then begin
     Memo1.Text := StringReplace(Values[CurDateTag], DUMMY_CRLF, #13#10, [rfReplaceAll]);
     Memo1.Modified := False;
    end else begin
     Memo1.Clear;
    end;
   end else begin
    Memo1.Clear;
   end;
   if Memo1.Text = '' then begin
    Memo1.Text := Format('【%sの日記】'#13#10, [DateToStr(MonthCalendar1.Date)]);
    CurDateTag := TAGGED_CHR + DateToStr(MonthCalendar1.Date) + TAGGED_CHR;
    Values[CurDateTag] := StringReplace(Memo1.Text, #13#10, DUMMY_CRLF, [rfReplaceAll]);
    SaveToFile(DIALY_FILE);
    Memo1.Modified := False;
   end;
// Memo1.SetFocus;
  finally
   Free;
  end;
 end;
end;

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

戻る