---------------------------------------------------------------------------
| 84 | } |
| 85 | //--------------------------------------------------------------------------- |
| 86 | void GetFacilities(TStrings * s) |
| 87 | { |
| 88 | s->BeginUpdate(); |
| 89 | s->Clear(); |
| 90 | for(int fac=0; fac<LOG_NFACILITIES; fac++) |
| 91 | s->AddObject(getcodetext(fac<<3, facilitynames), (TObject *)fac); |
| 92 | s->EndUpdate(); |
| 93 | } |
| 94 | //--------------------------------------------------------------------------- |
| 95 | #pragma package(smart_init) |
no test coverage detected