Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0004814 [JEDI VCL] 00 JVCL Components major always 2009-06-06 19:47 2009-06-07 09:33
Reporter tetardd View Status public  
Assigned To AHUser
Priority normal Resolution fixed  
Status resolved   Product Version 3.36
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}
Additional Information
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0015625)
AHUser (developer)
2009-06-07 09:33

Fixed in SVN.

- Issue History
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


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker