View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0004814 | JEDI VCL | 00 JVCL Components | public | 2009-06-06 19:47 | 2009-06-07 09:33 |
| Reporter | tetardd | Assigned To | AHUser | ||
| Priority | normal | Severity | major | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | 3.36 | ||||
| Target Version | Fixed in Version | 3.37 | |||
| Summary | 0004814: LongToShortPath generates an exception | ||||
| Description | This is the code of LongToShortPath in JvJCLUtils. The line highlighted with stars generates an exception under D2009 when doing a simple: Edit1.Text := LongToShortPath('c:\Program Files\Microsoft Office'); function LongToShortPath(const LongName: string): string; {$IFDEF CLR} begin Result := ExtractShortPathName(LongName); end; {$ELSE} var LastSlash: PChar; TempPathPtr: PChar; begin Result := ''; TempPathPtr := PChar(LongName); LastSlash := StrRScan(TempPathPtr, PathDelim); while LastSlash <> nil do begin Result := PathDelim + LongToShortFileName(TempPathPtr) + Result; if LastSlash <> nil then begin LastSlash^ := #0; ****** Exception ***** LastSlash := StrRScan(TempPathPtr, PathDelim); end; end; Result := TempPathPtr + Result; end; {$ENDIF CLR} | ||||
| Tags | No tags attached. | ||||
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2009-06-06 19:47 | tetardd | New Issue | |
| 2009-06-07 09:33 | AHUser | Note Added: 0015625 | |
| 2009-06-07 09:33 | AHUser | Status | new => resolved |
| 2009-06-07 09:33 | AHUser | Fixed in Version | => Daily / SVN |
| 2009-06-07 09:33 | AHUser | Resolution | open => fixed |
| 2009-06-07 09:33 | AHUser | Assigned To | => AHUser |
