Lines Matching refs:PChar

31 const hello: PChar = 'hello, hello!';
33 const dictionary: PChar = 'hello';
66   StrCopy(PChar(uncompr), 'garbage');
71   if StrComp(PChar(uncompr), hello) <> 0 then
74     WriteLn('uncompress(): ', PChar(uncompr));
82 procedure test_gzio(const fname: PChar; (* compressed file name *)
127   StrCopy(PChar(uncompr), 'garbage');
134   if StrComp(PChar(uncompr), hello) <> 0 then
136     WriteLn('bad gzread: ', PChar(uncompr));
140     WriteLn('gzread(): ', PChar(uncompr));
161   gzgets(zfile, PChar(uncompr), uncomprLen);
162   uncomprLen := StrLen(PChar(uncompr));
168   if StrComp(PChar(uncompr), hello + 6) <> 0 then
174     WriteLn('gzgets() after gzseek: ', PChar(uncompr));
234   StrCopy(PChar(uncompr), 'garbage');
261   if StrComp(PChar(uncompr), hello) <> 0 then
264     WriteLn('inflate(): ', PChar(uncompr));
329   StrCopy(PChar(uncompr), 'garbage');
412   StrCopy(PChar(uncompr), 'garbage');
442   WriteLn('after inflateSync(): hel', PChar(uncompr));
489   StrCopy(PChar(uncompr), 'garbage');
521   if StrComp(PChar(uncompr), hello) <> 0 then
524     WriteLn('inflate with dictionary: ', PChar(uncompr));