View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0002079 | JEDI VCL | 00 JVCL Components | public | 2004-08-21 03:34 | 2004-08-21 05:31 |
Reporter | maxp | Assigned To | AHUser | ||
Priority | normal | Severity | major | Reproducibility | always |
Status | resolved | Resolution | fixed | ||
Product Version | |||||
Target Version | Fixed in Version | ||||
Summary | 0002079: SameFileName is invalid! | ||||
Description | SameFileName function from JvJCLUtils (JVCL package JVCL3-2004-08-17.zip): function SameFileName(const Fn1, Fn2: string): Boolean; begin Result := CompareText(Fn1, Fn2) <> 0; end; returns TRUE for DIFFERENT file names and FALSE for SAME ones. I think it is not correct, at least for TargetFileName function: function TargetFileName(const FileName: TFileName): TFileName; begin Result := FileName; if SameFileName(ExtractFileExt(FileName), '.lnk') then if ResolveLink(GetAppHandle, FileName, Result) <> 0 then raise EJVCLException.CreateResFmt(@RsECantGetShortCut, [FileName]); end; It is obvious that SameFileName should return TRUE for same files! | ||||
Tags | No tags attached. | ||||