Hello,
> Second - new FPC v1.9.x for statement
>
> var p:pointer
> p:=Ptr(a,b);
>
> shows error "Incompatible types: got "FarPointer" expected "Pointer"".
>
> I found i can declare var p:farpointer;
> but i did not found any description for this type of pointer
> how can i use it.
It seems that t
Many thanks for your explanation.
-Original Message-
From: Peter Vreman [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 24, 2004 10:23 AM
To: [EMAIL PROTECTED]
Subject: RE: RE: [fpc-pascal]Problem with CASE statement
> Hi,
>
> yes i know this re-typing word(xxx), it is OK.
&
> Hi,
>
> yes i know this re-typing word(xxx), it is OK.
>
> Second - new FPC v1.9.x for statement
>
> var p:pointer
> p:=Ptr(a,b);
>
> shows error "Incompatible types: got "FarPointer" expected "Pointer"".
>
> I found i can declare var p:farpointer;
> but i did not found any description for this t
> Thanks.
>
> Yes, you're right but i'm using this constants for backward compatibility
> with Borland Pascal.
>
> The problem is in declarations of constant:
>
> const xxx = $4400;
> yyy = $11;
>
> SizeOf(xxx) = 2 in FPC 1.0.10
> 4 in FPC 1.9.x
> SizeOf(yyy) = 1 in FP
n for this type of pointer
how can i use it.
Lubomir Cabla
-Original Message-
From: Tomas Hajny [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 24, 2004 9:20 AM
To: [EMAIL PROTECTED]
Subject: Re: RE: [fpc-pascal]Problem with CASE statement
From:[EMAIL PROTECTED]
To: [EM
From:[EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: RE: [fpc-pascal]Problem with CASE statement
Date sent: Wed, 24 Mar 2004 08:01:04 +0100
> The problem is in declarations of constant:
>
> const xxx = $4400;
> yyy = $11;
>
> SizeOf(xxx) = 2 in FPC 1.0
[mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 23, 2004 3:19 PM
To: [EMAIL PROTECTED]
Subject: Re: [fpc-pascal]Problem with CASE statement
> In go32v2 i got a problem with case statement.
> With compiler 1.0.10 is this without errors:
>
> const kbDown = $5000;
> kbUp = $4800;
&
> In go32v2 i got a problem with case statement.
> With compiler 1.0.10 is this without errors:
>
> const kbDown = $5000;
> kbUp = $4800;
> var ch : char;
> begin
> ch:=ReadKey;
> case ord(ch) of
> Hi(kbDown): writeln('kbDown');
> Hi(kbUp) : writeln('kbUp');
> end;
> end.
D
