自制万年历加备忘录(c++builder)

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "CCALENDR" #pragma link "CSPIN" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::CSpinEdit1Change(TObject *Sender) { if(CSpinEdit1->Text =="") return; CCalendar1->Year = CSpinEdit1->Value; } //--------------------------------------------------------------------------- void __fastcall TForm1::CSpinEdit2Change(TObject *Sender) { if(CSpinEdit2->Text =="") return; CCalendar1->Month = CSpinEdit2->Value; } //--------------------------------------------------------------------------- void __fastcall TForm1::CCalendar1Change(TObject *Sender) { AnsiString s = CCalendar1->Year; s += "年"; s += CCalendar1->Month; s += "月"; s += CCalendar1->Day; s += "日"; AnsiString AppPath; AppPath=ExtractFilePath(Application->ExeName); char buf[1024]; char buf1[1024]; StrPCopy(buf1,s); GetPrivateProfileString("备忘录",buf1,"None",buf,1024,(AppPath+"Option.ini").c_str()); AnsiString ss; ss = buf; Edit1->Text=ss; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { CCalendar1->UseCurrentDate = true; CSpinEdit1->Value = CCalendar1->Year; CSpinEdit2->Value = CCalendar1->Month; AnsiString s = CCalendar1->Year; s += "年"; s += CCalendar1->Month; s += "月"; s += CCalendar1->Day; s += "日"; AnsiString AppPath; AppPath=ExtractFilePath(Application->ExeName); char buf[1024]; char buf1[1024]; StrPCopy(buf1,s); GetPrivateProfileString("备忘录",buf1,"None",buf,1024,(AppPath+"Option.ini").c_str()); AnsiString ss; ss = buf; Edit1->Text=ss; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { AnsiString AppPath; AppPath=ExtractFilePath(Application->ExeName); AnsiString s = CCalendar1->Year; s += "年"; s += CCalendar1->Month; s += "月"; s += CCalendar1->Day; s += "日"; char buf1[1024]; StrPCopy(buf1,s); WritePrivateProfileString("备忘录",buf1,Edit1->Text.c_str(),(AppPath+"Option.ini").c_str()); } //---------------------------------------------------------------------------