Re: CStrings/PChars - Gpc

18 Jun 1997


      On Tue, 17 Jun 1997 16:18:14 +0200 (MET DST) Peter Gerwinski 
peter@agnes.dida.physik.uni-essen.de wrote:
...
According to The African Chief:
...
Great! Now one last thing about pChars - can you make
them type-compatible with zero-based arrays of Char?
It seems to work already ... my GPC just compiled:
program foobar;
{$X+}
function foo ( p : pChar ) : pChar;
   Begin
       foo := succ ( p, 2 );
   End;
Var
     x : array [ 0..4 ] of Char value 'xyOK'#0;
Begin
       writeln ( foo ( x ) );
   End.
Yes, it does seem so. However, the following program
gives different outputs under BP and GPC;
program foobar;
{$ifdef ver70}
     Uses Strings;
    function puts ( astr : PChar ) : char;
    begin
        Writeln ( astr );
    end;
    {$else}
    {$X+}
    {$W-}
function strcopy ( s1 : PChar; s2 : PChar ) : PChar; asmname 'strcpy';
    function strcat ( s1 : PChar; s2 : PChar ) : PChar; C;
    function puts ( s1 : PChar ) : Integer; C;
    {$endif}
function foo ( p : pChar ) : pChar;
    Begin
        foo := p + 2;
    End;
Var
      x : array [ 0..24 ] of Char;
Begin
        strcopy(x, 'African');
        strcat(x, #13#10);
        strcat(x, 'Chief');
        puts(x);
    End.
Best regards, The Chief 
Dr Abimbola A. Olowofoyeku (The African Chief, and the Great Elephant)
Author of:  Chief's Installer Pro v3.60 for Win16 and Win32.
Homepage:  http://ourworld.compuserve.com/homepages/African_Chief/
E-mail: laa12@cc.keele.ac.uk