unit ucommon;

interface

const
  cProgramName = 'Tim2View r91 by [Lab 313]';
  cExtractedFilesDir = 'FILES';
  cExtractedPngsDir = 'PNGS';
  cMaxFileSize = $2EAEED80;

  cAutoExtractionFileFormat = '%s_%.6d_%.2db' + '.%s' {tim|clt|pxl};
  cAutoExtractionPngFormat = '%s_%.6d_%.2db_%.2dc' + '.png';

  sStatusBarScanningFile = 'Scanning File...';
  sStatusBarFilesExtracting = 'Files Extracting...';
  sStatusBarPngsExtracting = 'PNGs Extracting...';
  sStatusBarExtracted = 'Extracted Successfully!';
  sStatusBarParsingResult = 'Parsing Result...';
  sScanResultGood = 'Scan completed!';
  sSelectDirCaption = 'Please, select directory for scan...';
  sThisFileHasNoCLUT = 'No CLUT';

type
  TBytesArray = array [0 .. cMaxFileSize - 1] of byte;
  PBytesArray = ^TBytesArray;

function ExtractJustName(const Path: string): string;

implementation

uses sysutils;

function ExtractJustName(const Path: string): string;
begin
  Result := ExtractFileName(Path);
  Result := Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result)));
end;

end.
