代码大全

end
else {couldn’t overwritefile}
begin
ErrorState := FileOverWriteError
end
end
else {couldn’t open file}
begin
ErrorState := FileOpenError
end
end
else {couldn’t find file}
begin
ErrorState := FileFindError 23
end
end; {While}
DeletePurgeFileList( FileList ,NumFilesToPurge )
end; {PurgeFiles}

goto

goto
if
if ErrorState
FileFindError 23
goto

goto

ErrorState

Pascal goto:
procedure PurgeFiles( var ErrorState : Error_CODE );
{This routine pruge a group of files.}
var
FileIndex : Integer;
FileHandle : FILEHANDLE_T;
FileList : FILELIST_T;
NumFilesToPurge : Integer;