|
@@ -519,9 +519,11 @@ Begin
|
|
end
|
|
end
|
|
else InOutRes:=103;
|
|
else InOutRes:=103;
|
|
end;
|
|
end;
|
|
|
|
+{$ifdef USE_FILEREC_FULLNAME}
|
|
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
|
|
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
|
|
UnicodeString(FileRec(f).FullName):='';
|
|
UnicodeString(FileRec(f).FullName):='';
|
|
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
|
|
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
|
|
|
|
+{$endif USE_FILEREC_FULLNAME}
|
|
End;
|
|
End;
|
|
|
|
|
|
|
|
|