|
Registriert seit: 9. Sep 2003
Ort: Wildeshausen
293 Beiträge
Turbo Delphi für Win32
|
Re: Object und Fail
2. Feb 2010, 20:20
DosError?
Delphi-Quellcode:
{$IfDef Win32}
lEc := SysUtils.FindNext(DirInfo);
FindNext := lEc = 0;
{$Else}
Dos.FindNext(DirInfo);
FindNext := DosError = 0;
{$EndIf}
Das wird doch nur in TP kompiliert. Unter Delphi wird
Delphi-Quellcode:
lEc := SysUtils.FindNext(DirInfo);
FindNext := lEc = 0;
ausgeführt.
|