Hey Any one who can help.


       I've got a problem accessing the characters in a string which is part 
of an array using pointers. the code is as follows can any one helpme? I want
to put an expression in the read_file procedure to use the generated code to 
encrype the strings that are read

Program Encrypt;

Const
  lines = 200;

Type
  tim = String [80];

Var
  file_info: Array [1..200] Of ^tim;
  code: Array [33..127] Of Char;
  X: Integer;
  number: Integer;
  file_name: String [8];
  a: Text;
  letter: Char;

Procedure code_make;
Begin
  Randomize;
  number := Random (100);
  For X := 127 downto 33 Do
  Begin
    code [X] := Chr (160 - x);
    writeln(code[x]);
    readln;
  End;
End;

Procedure read_file_content;
    Begin

      Assign (a, 'c:\ezy\doors\gods\tim.tim');
      Reset (a);
      X := 1;
      While Not EoF (a) Do
      Begin
        New (file_info [X] );
        ReadLn (a, file_info [X]^);     {I want to use the seperate letter}
        X := 1 + X;                     {here in the code to encrypt the 
file}
      End;
      Close (a);
    End;

Procedure rewrite_file;
Begin
  Assign (a, 'c:\ezy\doors\gods\tim.qwk');
  Rewrite (a);
  For X := 1 To 3 Do
  Begin
    WriteLn (a, file_info [X]^ );
  End;
  Close (a);
End;

    Begin
      code_make;
      Read_file_content;
      rewrite_file;
    End.


help would be appreciated

TIM


A happy ColorQWK user!
(UNREGISTERED USER)


 * ColorQWK 1.1 [NR] *

--- EzyQwk V1.20g1 01fa002c