---------------------------------------------------------------------------
| 463 | } |
| 464 | //--------------------------------------------------------------------------- |
| 465 | void TStorageFileList::GetList(TStrings * s, bool getall) |
| 466 | { |
| 467 | s->BeginUpdate(); |
| 468 | s->Clear(); |
| 469 | TStorageFile * p; |
| 470 | for(int i=getall?0:1; i<Count; i++) |
| 471 | { |
| 472 | p = Get(i); |
| 473 | s->AddObject(p->GetDescription(), (TObject *)p->number); |
| 474 | } |
| 475 | s->EndUpdate(); |
| 476 | } |
| 477 | //--------------------------------------------------------------------------- |
| 478 | int TStorageFileList::GetNewNumber(void) |
| 479 | { |
no test coverage detected