/ Scoj /

记录详情

Compile Error

foo.cc:2:23: warning: character constant too long for its type
    2 |     SourcePath:string='incantation';
      |                       ^~~~~~~~~~~~~
foo.cc:3:22: warning: character constant too long for its type
    3 |     InputFile:string='incantation.in';
      |                      ^~~~~~~~~~~~~~~~
foo.cc:4:23: warning: character constant too long for its type
    4 |     OutputFile:string='incantation.out';
      |                       ^~~~~~~~~~~~~~~~~
foo.cc:8:21: error: too many decimal points in number
    8 |     szExeFile:array[1..260] of char;
      |                     ^~~~~~
foo.cc:14:20: error: too many decimal points in number
   14 |     szModule:array[1..256] of char;
      |                    ^~~~~~
foo.cc:15:21: error: too many decimal points in number
   15 |     szExePath:array[1..1024] of char;
      |                     ^~~~~~~
foo.cc:29:18: warning: character constant too long for its type
   29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
      |                  ^~~~~~~~~~~~
foo.cc:29:36: warning: character constant too long for its type
   29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
      |                                    ^~~~~~~~~~~~~~~~~~~~
foo.cc:30:18: warning: character constant too long for its type
   30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
      |                  ^~~~~~~~~~~~
foo.cc:30:36: warning: character constant too long for its type
   30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
      |                                    ^~~~~~~~~~~~~
foo.cc:32:10: warning: character constant too long for its type
   32 | external 'kernel.dll' name 'LoadLibraryA';
      |          ^~~~~~~~~~~~
foo.cc:32:28: warning: character constant too long for its type
   32 | external 'kernel.dll' name 'LoadLibraryA';
      |                            ^~~~~~~~~~~~~~
foo.cc:34:18: warning: character constant too long for its type
   34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
      |                  ^~~~~~~~~~~~
foo.cc:34:36: warning: character constant too long for its type
   34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
      |                                    ^~~~~~~~~~~~~~~~
foo.cc:36:10: warning: character constant too long for its type
   36 | external 'kernel.dll' name 'CreateToolhelp32Snapshot';
      |          ^~~~~~~~~~~~
foo.cc:36:28: warning: character constant too long for its type
   36 | external 'kernel.dll' name 'CreateToolhelp32Snapshot';
      |                            ^~~~~~~~~~~~~~~~~~~~~~~~~~
foo.cc:38:18: warning: character constant too long for its type
   38 | stdcall;external 'kernel.dll' name 'Process32First';
      |                  ^~~~~~~~~~~~
foo.cc:38:36: warning: character constant too long for its type
   38 | stdcall;external 'kernel.dll' name 'Process32First';
      |                                    ^~~~~~~~~~~~~~~~
foo.cc:40:10: warning: character constant too long for its type
   40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
      |          ^~~~~~~~~~~~
foo.cc:40:28: warning: character constant too long for its type
   40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
      |                            ^~~~~~~~~~~~~~~
foo.cc:41:18: warning: character constant too long for its type
   41 | stdcall;external 'kernel.dll' name 'Module32First';
      |                  ^~~~~~~~~~~~
foo.cc:41:36: warning: character constant too long for its type
   41 | stdcall;external 'kernel.dll' name 'Module32First';
      |                                    ^~~~~~~~~~~~~~~
foo.cc:43:18: warning: character constant too long for its type
   43 | stdcall;external 'kernel.dll' name 'Module32Next';
      |                  ^~~~~~~~~~~~
foo.cc:43:36: warning: character constant too long for its type
   43 | stdcall;external 'kernel.dll' name 'Module32Next';
      |                                    ^~~~~~~~~~~~~~
foo.cc:48:31: warning: missing terminating ' character
   48 | path:=path[0]+Copy(path,1,pos('\tmp\',path));
      |                               ^
foo.cc:48:31: error: missing terminating ' character
   48 | path:=path[0]+Copy(path,1,pos('\tmp\',path));
      |                               ^~~~~~~~~~~~~~~
foo.cc:52:40: warning: character constant too long for its type
   52 | while not (Copy(process.szExeFile,1,8)='cena.exe') do  Process32Next(snapshot,Process);
      |                                        ^~~~~~~~~~
foo.cc:56:38: warning: character constant too long for its type
   56 | while not (Copy(module.szmodule,1,9)='zlib1.dll') do Module32Next(snapshot,module);
      |                                      ^~~~~~~~~~~
foo.cc:57:38: warning: character constant too long for its type
   57 | Dllpath:=Copy(module.szExePath,1,pos('zlib1.dll',module.szExePath)+8);
      |                                      ^~~~~~~~~~~
foo.cc:59:40: warning: character constant too long for its type
   59 | gzopen:=Tgzopen(GetProcAddress(hModule,'gzopen'));
      |                                        ^~~~~~~~
foo.cc:60:40: warning: character constant too long for its type
   60 | gzgetc:=Tgzgetc(GetProcAddress(hModule,'gzgetc'));
      |                                        ^~~~~~~~
foo.cc:61:42: warning: character constant too long for its type
   61 | gzclose:=Tgzclose(GetProcAddress(hModule,'gzclose'));
      |                                          ^~~~~~~~~
foo.cc:62:17: warning: unknown escape sequence: '\d'
   62 | gz:=gzopen(path+'data\dataconf.xml','rb');
      |                 ^~~~~~~~~~~~~~~~~~~
foo.cc:62:17: warning: character constant too long for its type
foo.cc:62:37: warning: multi-character character constant [-Wmultichar]
   62 | gz:=gzopen(path+'data\dataconf.xml','rb');
      |                                     ^~~~
foo.cc:74:14: error: stray '#' in program
   74 | data:=data+t+#0;
      |              ^
foo.cc:76:33: warning: multi-character character constant [-Wmultichar]
   76 | Delete(xml,1,pos('"'+SourcePath+'" co',xml));
      |                                 ^~~~~~
foo.cc:77:18: warning: multi-character character constant [-Wmultichar]
   77 | Delete(xml,1,pos('><i',xml));
      |                  ^~~~~
foo.cc:79:18: warning: multi-character character constant [-Wmultichar]
   79 | Delete(xml,1,pos('><i',xml)+17);
      |                  ^~~~~
foo.cc:80:19: warning: character constant too long for its type
   80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |                   ^~~~~~~~~~~~~~~~~~~~~~~~
foo.cc:80:43: warning: missing terminating " character
   80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |                                           ^
foo.cc:80:43: error: missing terminating " character
   80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |                                           ^~~~~~~~~~~~
foo.cc:85:10: error: empty character constant
   85 | if datat='' then begin mate:=false;break;end;
      |          ^~
foo.cc:87:6: error: stray '#' in program
   87 | t:=t+#0;
      |      ^
foo.cc:91:11: error: empty character constant
   91 | if datat<>'' then mate:=false;
      |           ^~
foo.cc:94:19: warning: character constant too long for its type
   94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |                   ^~~~~~~~~~~~~~~~~~~~~~~~
foo.cc:94:43: warning: missing terminating " character
   94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |                                           ^
foo.cc:94:43: error: missing terminating " character
   94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |                                           ^~~~~~~~~~~~
foo.cc:1:1: error: 'Const' does not name a type
    1 | Const
      | ^~~~~
foo.cc:3:14: error: found ':' in nested-name-specifier, expected '::'
    3 |     InputFile:string='incantation.in';
      |              ^
      |              ::
foo.cc:3:5: error: 'InputFile' does not name a type
    3 |     InputFile:string='incantation.in';
      |     ^~~~~~~~~
foo.cc:4:15: error: found ':' in nested-name-specifier, expected '::'
    4 |     OutputFile:string='incantation.out';
      |               ^
      |               ::
foo.cc:4:5: error: 'OutputFile' does not name a type
    4 |     OutputFile:string='incantation.out';
      |     ^~~~~~~~~~
foo.cc:5:1: error: 'type' does not name a type
    5 | type
      | ^~~~
foo.cc:8:14: error: found ':' in nested-name-specifier, expected '::'
    8 |     szExeFile:array[1..260] of char;
      |              ^
      |              ::
foo.cc:8:5: error: 'szExeFile' does not name a type
    8 |     szExeFile:array[1..260] of char;
      |     ^~~~~~~~~
foo.cc:9:5: error: 'end' does not name a type
    9 |     end;
      |     ^~~
foo.cc:10:5: error: 'MODULEENTRY32' does not name a type
   10 |     MODULEENTRY32=record
      |     ^~~~~~~~~~~~~
foo.cc:12:16: error: found ':' in nested-name-specifier, expected '::'
   12 |     modBaseAddr:byte;
      |                ^
      |                ::
foo.cc:12:5: error: 'modBaseAddr' does not name a type
   12 |     modBaseAddr:byte;
      |     ^~~~~~~~~~~
foo.cc:13:5: error: 'modBaseSize' does not name a type
   13 |     modBaseSize,hModule:longint;
      |     ^~~~~~~~~~~
foo.cc:14:13: error: found ':' in nested-name-specifier, expected '::'
   14 |     szModule:array[1..256] of char;
      |             ^
      |             ::
foo.cc:14:5: error: 'szModule' does not name a type
   14 |     szModule:array[1..256] of char;
      |     ^~~~~~~~
foo.cc:15:14: error: found ':' in nested-name-specifier, expected '::'
   15 |     szExePath:array[1..1024] of char;
      |              ^
      |              ::
foo.cc:15:5: error: 'szExePath' does not name a type
   15 |     szExePath:array[1..1024] of char;
      |     ^~~~~~~~~
foo.cc:16:5: error: 'end' does not name a type
   16 |     end;
      |     ^~~
foo.cc:17:5: error: 'Tgzopen' does not name a type
   17 |     Tgzopen=Function(path,mode:ansistring):longint;stdcall;
      |     ^~~~~~~
foo.cc:17:52: error: 'stdcall' does not name a type
   17 |     Tgzopen=Function(path,mode:ansistring):longint;stdcall;
      |                                                    ^~~~~~~
foo.cc:18:5: error: 'Tgzgetc' does not name a type
   18 |     Tgzgetc=Function(gz:longint):longint;stdcall;
      |     ^~~~~~~
foo.cc:18:42: error: 'stdcall' does not name a type
   18 |     Tgzgetc=Function(gz:longint):longint;stdcall;
      |                                          ^~~~~~~
foo.cc:19:5: error: 'Tgzclose' does not name a type
   19 |     Tgzclose=Function(gz:longint):longint;stdcall;
      |     ^~~~~~~~
foo.cc:19:43: error: 'stdcall' does not name a type
   19 |     Tgzclose=Function(gz:longint):longint;stdcall;
      |                                           ^~~~~~~
foo.cc:20:1: error: 'var' does not name a type
   20 | var
      | ^~~
foo.cc:22:5: error: 'data' does not name a type
   22 |     data,xml,t,datat:ansistring;
      |     ^~~~
foo.cc:23:5: error: 'snapshot' does not name a type
   23 |     snapshot,gz,hModule,temp:longint;
      |     ^~~~~~~~
foo.cc:24:9: error: found ':' in nested-name-specifier, expected '::'
   24 |     mate:boolean;
      |         ^
      |         ::
foo.cc:24:5: error: 'mate' does not name a type
   24 |     mate:boolean;
      |     ^~~~
foo.cc:25:12: error: found ':' in nested-name-specifier, expected '::'
   25 |     process:PROCESSENTRY32;
      |            ^
      |            ::
foo.cc:25:5: error: 'process' does not name a type
   25 |     process:PROCESSENTRY32;
      |     ^~~~~~~
foo.cc:26:11: error: found ':' in nested-name-specifier, expected '::'
   26 |     module:MODULEENTRY32;
      |           ^
      |           ::
foo.cc:26:5: error: 'module' does not name a type
   26 |     module:MODULEENTRY32;
      |     ^~~~~~
foo.cc:27:11: error: found ':' in nested-name-specifier, expected '::'
   27 |     gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
      |           ^
      |           ::
foo.cc:27:5: error: 'gzopen' does not name a type
   27 |     gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
      |     ^~~~~~
foo.cc:27:26: error: found ':' in nested-name-specifier, expected '::'
   27 |     gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
      |                          ^
      |                          ::
foo.cc:27:20: error: 'gzgetc' does not name a type
   27 |     gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
      |                    ^~~~~~
foo.cc:27:42: error: found ':' in nested-name-specifier, expected '::'
   27 |     gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
      |                                          ^
      |                                          ::
foo.cc:27:35: error: 'gzclose' does not name a type
   27 |     gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose;
      |                                   ^~~~~~~
foo.cc:28:1: error: 'Function' does not name a type; did you mean 'union'?
   28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
      | ^~~~~~~~
      | union
foo.cc:28:54: error: found ':' in nested-name-specifier, expected '::'
   28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
      |                                                      ^
      |                                                      ::
foo.cc:28:44: error: 'lpFileName' does not name a type
   28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
      |                                            ^~~~~~~~~~
foo.cc:28:67: error: found ':' in nested-name-specifier, expected '::'
   28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
      |                                                                   ^
      |                                                                   ::
foo.cc:28:62: error: 'nSize' does not name a type
   28 | Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint;
      |                                                              ^~~~~
foo.cc:29:1: error: 'stdcall' does not name a type
   29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
      | ^~~~~~~
foo.cc:29:9: error: 'external' does not name a type; did you mean 'extern'?
   29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
      |         ^~~~~~~~
      |         extern
foo.cc:29:57: error: 'Function' does not name a type; did you mean 'union'?
   29 | stdcall;external 'kernel.dll' name 'GetModuleFileNameA';Function FreeLibrary(hLibModule:longint):longint;
      |                                                         ^~~~~~~~
      |                                                         union
foo.cc:30:1: error: 'stdcall' does not name a type
   30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
      | ^~~~~~~
foo.cc:30:9: error: 'external' does not name a type; did you mean 'extern'?
   30 | stdcall;external 'kernel.dll' name 'FreeLibrary';
      |         ^~~~~~~~
      |         extern
foo.cc:31:1: error: 'Function' does not name a type; did you mean 'union'?
   31 | Function LoadLibrary(lpLibFileName:ansistring):THandle;stdcall;
      | ^~~~~~~~
      | union
foo.cc:31:56: error: 'stdcall' does not name a type
   31 | Function LoadLibrary(lpLibFileName:ansistring):THandle;stdcall;
      |                                                        ^~~~~~~
foo.cc:32:1: error: 'external' does not name a type; did you mean 'extern'?
   32 | external 'kernel.dll' name 'LoadLibraryA';
      | ^~~~~~~~
      | extern
foo.cc:33:1: error: 'Function' does not name a type; did you mean 'union'?
   33 | Function GetProcAddress(hModule:longint;lpProcName:ansistring):pointer;
      | ^~~~~~~~
      | union
foo.cc:33:51: error: found ':' in nested-name-specifier, expected '::'
   33 | Function GetProcAddress(hModule:longint;lpProcName:ansistring):pointer;
      |                                                   ^
      |                                                   ::
foo.cc:33:41: error: 'lpProcName' does not name a type
   33 | Function GetProcAddress(hModule:longint;lpProcName:ansistring):pointer;
      |                                         ^~~~~~~~~~
foo.cc:34:1: error: 'stdcall' does not name a type
   34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
      | ^~~~~~~
foo.cc:34:9: error: 'external' does not name a type; did you mean 'extern'?
   34 | stdcall;external 'kernel.dll' name 'GetProcAddress';
      |         ^~~~~~~~
      |         extern
foo.cc:35:1: error: 'Function' does not name a type; did you mean 'union'?
   35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
      | ^~~~~~~~
      | union
foo.cc:35:64: error: found ':' in nested-name-specifier, expected '::'
   35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
      |                                                                ^
      |                                                                ::
foo.cc:35:51: error: 'th32ProcessID' does not name a type
   35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
      |                                                   ^~~~~~~~~~~~~
foo.cc:35:82: error: 'stdcall' does not name a type
   35 | Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall;
      |                                                                                  ^~~~~~~
foo.cc:36:1: error: 'external' does not name a type; did you mean 'extern'?
   36 | external 'kernel.dll' name 'CreateToolhelp32Snapshot';
      | ^~~~~~~~
      | extern
foo.cc:37:1: error: 'Function' does not name a type; did you mean 'union'?
   37 | Function Process32First(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;
      | ^~~~~~~~
      | union
foo.cc:37:43: error: 'var' does not name a type
   37 | Function Process32First(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;
      |                                           ^~~
foo.cc:38:1: error: 'stdcall' does not name a type
   38 | stdcall;external 'kernel.dll' name 'Process32First';
      | ^~~~~~~
foo.cc:38:9: error: 'external' does not name a type; did you mean 'extern'?
   38 | stdcall;external 'kernel.dll' name 'Process32First';
      |         ^~~~~~~~
      |         extern
foo.cc:39:1: error: 'Function' does not name a type; did you mean 'union'?
   39 | Function Process32Next(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;stdcall;
      | ^~~~~~~~
      | union
foo.cc:39:42: error: 'var' does not name a type
   39 | Function Process32Next(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;stdcall;
      |                                          ^~~
foo.cc:39:79: error: 'stdcall' does not name a type
   39 | Function Process32Next(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;stdcall;
      |                                                                               ^~~~~~~
foo.cc:40:1: error: 'external' does not name a type; did you mean 'extern'?
   40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
      | ^~~~~~~~
      | extern
foo.cc:40:44: error: 'Function' does not name a type; did you mean 'union'?
   40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
      |                                            ^~~~~~~~
      |                                            union
foo.cc:40:85: error: 'var' does not name a type
   40 | external 'kernel.dll' name 'Process32Next';Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
      |                                                                                     ^~~
foo.cc:41:1: error: 'stdcall' does not name a type
   41 | stdcall;external 'kernel.dll' name 'Module32First';
      | ^~~~~~~
foo.cc:41:9: error: 'external' does not name a type; did you mean 'extern'?
   41 | stdcall;external 'kernel.dll' name 'Module32First';
      |         ^~~~~~~~
      |         extern
foo.cc:42:1: error: 'Function' does not name a type; did you mean 'union'?
   42 | Function Module32Next(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
      | ^~~~~~~~
      | union
foo.cc:42:41: error: 'var' does not name a type
   42 | Function Module32Next(hSnapShot:longint;var lppe:MODULEENTRY32):longint;
      |                                         ^~~
foo.cc:43:1: error: 'stdcall' does not name a type
   43 | stdcall;external 'kernel.dll' name 'Module32Next';
      | ^~~~~~~
foo.cc:43:9: error: 'external' does not name a type; did you mean 'extern'?
   43 | stdcall;external 'kernel.dll' name 'Module32Next';
      |         ^~~~~~~~
      |         extern
foo.cc:45:1: error: 'BEGIN' does not name a type
   45 | BEGIN
      | ^~~~~
foo.cc:48:1: error: 'path' does not name a type
   48 | path:=path[0]+Copy(path,1,pos('\tmp\',path));
      | ^~~~
foo.cc:50:1: error: 'process' does not name a type
   50 | process.dwsize:=sizeof(PROCESSENTRY32);
      | ^~~~~~~
foo.cc:51:15: error: expected constructor, destructor, or type conversion before '(' token
   51 | Process32First(snapshot,process);
      |               ^
foo.cc:52:1: error: expected unqualified-id before 'while'
   52 | while not (Copy(process.szExeFile,1,8)='cena.exe') do  Process32Next(snapshot,Process);
      | ^~~~~
foo.cc:53:1: error: 'snapshot' does not name a type
   53 | snapshot:=CreateToolhelp32Snapshot(8,process.th32ProcessID);
      | ^~~~~~~~
foo.cc:54:1: error: 'module' does not name a type
   54 | module.dwSize:=sizeof(MODULEENTRY32);
      | ^~~~~~
foo.cc:55:14: error: expected constructor, destructor, or type conversion before '(' token
   55 | Module32First(snapshot,module);
      |              ^
foo.cc:56:1: error: expected unqualified-id before 'while'
   56 | while not (Copy(module.szmodule,1,9)='zlib1.dll') do Module32Next(snapshot,module);
      | ^~~~~
foo.cc:57:1: error: 'Dllpath' does not name a type
   57 | Dllpath:=Copy(module.szExePath,1,pos('zlib1.dll',module.szExePath)+8);
      | ^~~~~~~
foo.cc:58:1: error: 'hModule' does not name a type
   58 | hModule:=LoadLibrary(Dllpath);
      | ^~~~~~~
foo.cc:59:1: error: 'gzopen' does not name a type
   59 | gzopen:=Tgzopen(GetProcAddress(hModule,'gzopen'));
      | ^~~~~~
foo.cc:60:1: error: 'gzgetc' does not name a type
   60 | gzgetc:=Tgzgetc(GetProcAddress(hModule,'gzgetc'));
      | ^~~~~~
foo.cc:61:1: error: 'gzclose' does not name a type
   61 | gzclose:=Tgzclose(GetProcAddress(hModule,'gzclose'));
      | ^~~~~~~
foo.cc:62:1: error: 'gz' does not name a type
   62 | gz:=gzopen(path+'data\dataconf.xml','rb');
      | ^~
foo.cc:63:1: error: expected unqualified-id before 'for'
   63 | for temp:=1 to 22 do gzgetc(gz);
      | ^~~
foo.cc:64:1: error: 'temp' does not name a type
   64 | temp:=gzgetc(gz);
      | ^~~~
foo.cc:65:1: error: expected unqualified-id before 'while'
   65 | while temp<>-1 do begin
      | ^~~~~
foo.cc:67:1: error: 'temp' does not name a type
   67 | temp:=gzgetc(gz);
      | ^~~~
foo.cc:68:1: error: 'end' does not name a type
   68 | end;
      | ^~~
foo.cc:69:8: error: expected constructor, destructor, or type conversion before '(' token
   69 | gzclose(gz);
      |        ^
foo.cc:70:12: error: expected constructor, destructor, or type conversion before '(' token
   70 | FreeLibrary(hModule);
      |            ^
foo.cc:71:7: error: expected constructor, destructor, or type conversion before '(' token
   71 | assign(input,InputFile);
      |       ^
foo.cc:72:6: error: expected constructor, destructor, or type conversion before '(' token
   72 | reset(input);
      |      ^
foo.cc:73:1: error: expected unqualified-id before 'while'
   73 | while not eof do begin readln(t);
      | ^~~~~
foo.cc:74:1: error: 'data' does not name a type
   74 | data:=data+t+#0;
      | ^~~~
foo.cc:75:1: error: 'end' does not name a type
   75 | end;
      | ^~~
foo.cc:76:7: error: expected constructor, destructor, or type conversion before '(' token
   76 | Delete(xml,1,pos('"'+SourcePath+'" co',xml));
      |       ^
foo.cc:77:7: error: expected constructor, destructor, or type conversion before '(' token
   77 | Delete(xml,1,pos('><i',xml));
      |       ^
foo.cc:78:1: error: 'repeat' does not name a type
   78 | repeat
      | ^~~~~~
foo.cc:80:7: error: expected constructor, destructor, or type conversion before '(' token
   80 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |       ^
foo.cc:82:1: error: 'mate' does not name a type
   82 | mate:=true;
      | ^~~~
foo.cc:83:1: error: 'datat' does not name a type
   83 | datat:=data;
      | ^~~~~
foo.cc:84:1: error: expected unqualified-id before 'while'
   84 | while not eof do begin
      | ^~~~~
foo.cc:85:36: error: expected unqualified-id before 'break'
   85 | if datat='' then begin mate:=false;break;end;
      |                                    ^~~~~
foo.cc:85:42: error: 'end' does not name a type
   85 | if datat='' then begin mate:=false;break;end;
      |                                          ^~~
foo.cc:86:7: error: expected constructor, destructor, or type conversion before '(' token
   86 | readln(t);
      |       ^
foo.cc:87:1: error: 't' does not name a type
   87 | t:=t+#0;
      | ^
foo.cc:88:1: error: expected unqualified-id before 'if'
   88 | if pos(t,datat)<>1 then begin mate:=false;break;end;
      | ^~
foo.cc:88:43: error: expected unqualified-id before 'break'
   88 | if pos(t,datat)<>1 then begin mate:=false;break;end;
      |                                           ^~~~~
foo.cc:88:49: error: 'end' does not name a type
   88 | if pos(t,datat)<>1 then begin mate:=false;break;end;
      |                                                 ^~~
foo.cc:89:7: error: expected constructor, destructor, or type conversion before '(' token
   89 | Delete(datat,1,Length(t));
      |       ^
foo.cc:90:1: error: 'end' does not name a type
   90 | end;
      | ^~~
foo.cc:91:1: error: expected unqualified-id before 'if'
   91 | if datat<>'' then mate:=false;
      | ^~
foo.cc:92:1: error: expected unqualified-id before 'if'
   92 | if mate then begin
      | ^~
foo.cc:94:7: error: expected constructor, destructor, or type conversion before '(' token
   94 | assign(input,path+'data\'+Copy(xml,1,pos('"',xml)-1));
      |       ^
foo.cc:96:7: error: expected constructor, destructor, or type conversion before '(' token
   96 | assign(output,OutputFile);
      |       ^
foo.cc:97:8: error: expected constructor, destructor, or type conversion before '(' token
   97 | rewrite(output);
      |        ^
foo.cc:98:1: error: expected unqualified-id before 'while'
   98 | while not eof do begin readln(t);writeln(t);end;break;end;
      | ^~~~~
foo.cc:98:41: error: expected constructor, destructor, or type conversion before '(' token
   98 | while not eof do begin readln(t);writeln(t);end;break;end;
      |                                         ^
foo.cc:98:45: error: 'end' does not name a type
   98 | while not eof do begin readln(t);writeln(t);end;break;end;
      |                                             ^~~
foo.cc:98:49: error: expected unqualified-id before 'break'
   98 | while not eof do begin readln(t);writeln(t);end;break;end;
      |                                                 ^~~~~
foo.cc:98:55: error: 'end' does not name a type
   98 | while not eof do begin readln(t);writeln(t);end;break;end;
      |                                                       ^~~
foo.cc:99:1: error: 'until' does not name a type
   99 | until false;close(input);close(output);
      | ^~~~~
foo.cc:99:18: error: expected constructor, destructor, or type conversion before '(' token
   99 | until false;close(input);close(output);
      |                  ^
foo.cc:99:31: error: expected constructor, destructor, or type conversion before '(' token
   99 | until false;close(input);close(output);
      |                               ^
foo.cc:100:1: error: 'END' does not name a type
  100 | END.
      | ^~~
正在同步测试数据,请稍后
[Hydro](https://hydro.ac)提供评测服务

信息

递交者
类型
递交
题目
P1000 Hello, wold!
语言
C++
递交时间
2022-07-05 15:55:18
评测时间
2022-07-05 15:55:18
评测机
分数
0
总耗时
0ms
峰值内存
0 Bytes