git-svn-id: branches/cpstrrtl@25047 -
@@ -46,7 +46,7 @@ begin
{ TODO: convert callback to use rawbytestring to avoid conversion }
if FileIODevice.DirIO.DoGetdir <> nil then
begin
- FileIODevice.DirIO.DoGetdir(DriveNr, Dir);
+ FileIODevice.DirIO.DoGetdir(DriveNr, TmpDir);
Dir:=TmpDir;
SetCodePage(Dir,DefaultFileSystemCodePage,false);
end;