---------------------------------------------------------------------------
| 699 | } |
| 700 | //--------------------------------------------------------------------------- |
| 701 | bool WriteToLogError(String fmt, ...) |
| 702 | { |
| 703 | TFile out(ErrorlogFile, GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, |
| 704 | OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL); |
| 705 | if( ! out ) |
| 706 | return false; |
| 707 | out.ToEnd(); |
| 708 | |
| 709 | va_list argptr; |
| 710 | va_start(argptr, fmt); |
| 711 | String s; |
| 712 | s.vprintf(fmt.c_str(), argptr); |
| 713 | |
| 714 | // Print in the status bar |
| 715 | if( s.Pos("ERROR\t") > 0 ) |
| 716 | SB(2) = s.SubString(7, s.Length()-6); |
| 717 | else |
| 718 | SB(2) = s; |
| 719 | |
| 720 | s = Now().DateTimeString() + '\t' + s + ::CR; |
| 721 | out << s; |
| 722 | va_end(argptr); |
| 723 | return true; |
| 724 | } |
| 725 | //--------------------------------------------------------------------------- |
| 726 | void __fastcall TMainForm::mOpenFilesLocExecute(TObject *Sender) |
| 727 | { |
no test coverage detected