Subj : Learning Pascal
To   : Darryl Dunnaway
From : John Guillory
Date : Sun Jul 18 2010 05:04 pm

  Re: Learning Pascal
  By: Darryl Dunnaway to John Guillory on Thu Jul 15 2010 11:12 pm

 > FreePascal has that same portability.  It's one of the reasons I chose it to
 > work with.  Write once, compile for many.  
Yeah, I've played with Free Pascal a little, never really looked at Lazarus.

Some things I like about pascal is the flexibility to do nearly anything and
yet still not demand case sensitivity and other quirks....  Various dialects
will do C style strings and things for you automatically.... Here's a few
things to get you started.... 

(untested)

Program demo;
Type MyRec = Record
        Case B : Byte of
            0 : Begin
                  Byt : Array [0 .. 3] OF Byte;
                end;
            1 : Begin
                  W : Array [0 .. 1] of Word;
                end;
            2 : Begin
                  L : LongInt;
                End;
            3 : S : String[3];
            4 : C : Array [0 .. 3] OF Char;
         End;
      end;
VAR
    A : MyRec;

Begin
   A.W[0] := 1;
   A.W[1] := 2;
   WriteLn('Longint is ',A.L);
   WriteLn('String is ',A.S);
   A.S := 'ABC';
   WriteLn('LongInt is ',A.L);
END.

Kinda like Unions in C if you've ever done that....

Another cool thing is text filters, but I'd have to dig up some reading on
that....
--- SBBSecho 2.12-Win32
 * Origin: Roach Guts BBS telnet://roachguts.com 337-433-4135 (1:396/60)

.