---------------------------------------------------------------------------
| 1318 | } |
| 1319 | //--------------------------------------------------------------------------- |
| 1320 | String TMainForm::GetFileName(int number) |
| 1321 | { |
| 1322 | TStorageFile * sf = fdb->GetByNumber( number ); |
| 1323 | if( ! sf ) |
| 1324 | sf = fdb->GetByNumber( 0 ); |
| 1325 | if( ! sf ) |
| 1326 | return String(); |
| 1327 | return sf->GetFileName(); |
| 1328 | } |
| 1329 | //--------------------------------------------------------------------------- |
| 1330 | void __fastcall TMainForm::SelectFileCBSelect(TObject *Sender) |
| 1331 | { |
no outgoing calls
no test coverage detected