- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
AnsiString message=IntToStr((int)GetTickCount());
if(message.Length()>=3)
message=message.SubString(message.Length()-3, 3);
else if(message.Length()==2)
message="0"+message;
else if(message.Length()==1)
message="00"+message;
message=dt.FormatString("yy")+dt.FormatString("mm")+dt.FormatString("dd")+" "+
dt.FormatString("hh")+dt.FormatString("nn")+dt.FormatString("ss")+" "+message;
message=message+" "+aMessage;
if(FMemoMes){
FMemoMes->Lines->Add(message);
}
Выводит сообщение aMessage, вставляя в начало сообщения текущие дату и время с миллисекундами.