View Issue Details

IDProjectCategoryView StatusLast Update
0004814JEDI VCL00 JVCL Componentspublic2009-06-07 09:33
ReportertetarddAssigned ToAHUser 
PrioritynormalSeveritymajorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.36 
Target VersionFixed in Version3.37 
Summary0004814: LongToShortPath generates an exception
DescriptionThis 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}
TagsNo tags attached.

Activities

AHUser

2009-06-07 09:33

developer   ~0015625

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