Урок 43 Создание лога No title

May 24, 2007


1. После запуска проги попробуйте плавно изменить размер формы (высоту и ширину)
2. Закройте форму и в папке с exe файлом появится .LOG. */
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TDateTime DateTime = Time();
TStringList *LogFile = new TStringList();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Word Year, Month, Day, Hour, Min, Sec, MSec;
TDateTime dtPresent = Now();
DecodeDate(dtPresent, Year, Month, Day);
DecodeTime(dtPresent, Hour, Min, Sec, MSec);
LogFile->SaveToFile(ChangeFileExt(AnsiString() + IntToStr(Year) + AnsiString("_") + IntToStr(Month) + AnsiString("_") + IntToStr(Day) + AnsiString("_") + IntToStr(Hour) + AnsiString("_") + IntToStr(Min) + AnsiString("_") + IntToStr(Sec) + AnsiString("_") + IntToStr(MSec), ".LOG"));
delete LogFile;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TDateTime DateTime = Time();
LogFile->Add("Высота формы: " + IntToStr(Form1->Height) + " Ширина формы: " + IntToStr(Form1->Width) + " Дата изменения: " + DateToStr(Date())+ " Время изменения: " + TimeToStr(DateTime));
}
//---------------------------------------------------------------------------


Author of article - Medneem  2007
www.builderhelper.org
builder.helper@rambler.ru