function ExtractFileNameNoExt(FileName: String): String; Var FileNm, FileExt: String; begin FileNm := ExtractFileName(FileName); FileExt := ExtractFileExt(FileName); Result := Copy(FileNm, 1, Length(FileNm) - Length(FileExt)); end; function CompareFiles(File1, File2: String): Boolean; begin Result :(ExtractFileNameNoExt(File1) ExtractFileNameNoExt(File2)); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question