---------------------------------------------------------------------------
| 254 | } |
| 255 | //--------------------------------------------------------------------------- |
| 256 | void TStorageFile::SetFileName(String f) |
| 257 | { |
| 258 | if( MySameText(ExtractFilePath(f), WorkDir) ) |
| 259 | file = ExtractFileName(f); |
| 260 | else |
| 261 | file = f; |
| 262 | } |
| 263 | //--------------------------------------------------------------------------- |
| 264 | String TStorageFile::GetDescription(void) |
| 265 | { |
no test coverage detected