A question about 'Words'

How is the word stored?  As an actual word or as a string of 0s and 1s?

Do you want everything to be represented in binary (0s and 1s) using strings?

Oops - Some corrections...

Proposed Answer
    From: rwilson
                                                                 Date: Wednesday, October 28 1998 - 05:20PM PST

    Assuming by word you mean an unsigned 16 bit integer then you do it like this (in pascal - assuming array element 0
    is in the most significant four bits of the word):

    function GetArrayItemFromWord(ArrayWord : Word; Index : Integer) : Integer;

    begin
      GetArrayItemFromWord := (ArrayWord AND ($F000 SHR (Index * 4))) SHR  (Index * 4);
    end;

    or using DIV and MOD

    function GetArrayItemFromWord(ArrayWord : Word; Index : Integer) : Integer;

    begin
      GetArrayItemFromWord := (ArrayWord DIV ($1000 SHR (Index * 4))) MOD $10;
    end;

Raymond.

I think you need to get that integer divided into four groups of 4 bits each. I believe this is the simples way:

Var
     g1, g2, g3, g4: integer;  ('byte' or 'shortint' can serve)
     n: integer;
Begin
     n:=x   <--   'x' is the integer you wanna divide
     g1:=n and 15;  n:=n shr 4;
     g2:=n and 15;  n:=n shr 4;
     g3:=n and 15;  n:=n shr 4;
     g4:=n and 15;

The operation of "and"-ing leaves the lower 4 bits of "n", putting them at g1. After that, "n" is shifted to right 4 places, getting rid of the older bits, and putting the following 4 bits at rightmost position. Once again, g2 takes those bits; and the same for g3 and g4.

Hi,
Sorry about not replying quickly. The information has helped greatly.

Thanks!!

Pyramid