代码大全

...

18-3

18-33 Pascal

if ( ( '0' <= InChar and InChar <= '9') or

( 'a' <= InChar and InChar <= 'z' ) or

( 'A' <= InChar and InChar <= 'Z' )) then

Z

z
goto goto
goto
goto goto
goto goto goto

goto

goto

goto goto

goto

18-34 goto

18-34 Pascal goto
PROCEDURE PurgeFiles ( var ErrorCode : ERROR_CODE );
var
FileldX: Integer;
FlleHandle: FILEHANDLE_T;
FileList: FILLIST_T;
NumFllesToPurge: Integer;
label
END_PROC;

begin
GrabScreen;
GrabHelp ( PURGE FILES ) ;
MakePurgeFileList ( FileList, NumFilesToPurge );

ErrorCode := Success;
FileldX := 0;
while ( Fileldx < NumFilesToPurge ) do begin
Fileldx := Fileldx + 1 ;