[comp.lang.pascal] Help!! w/string to integer!

robby@nuchat.sccsi.com (Robert Oliver Jr.) (05/14/91)

Hi there,
  
   Can some one out there tell me what is the problem????? With this code:
          The Enviorment is Turbo Pascal 6.0 on a 286 with a 287:
[===cut=========================cut==========================cut==============]
Program air1;
uses crt,dos;
 
type  doarray=array[1..80] of char;
      lines=array[1..80] of string;
      stats=record
        name:string;
        r1:integer;
        cruise:integer;
        r2:integer;
        ceiling:integer;
        r3:integer;
        to50:integer;
        r4:integer;
        lo50:integer;
        r5:integer;
        payload:integer;
        r6:integer;
        range:integer;
        t1:integer;
     end;
 
var q:integer;
    data:array[1..100] of stats;
    f:text;
    info:string;
    done:boolean;
    numlines:lines;
    letter:char;
    crap:string;
 
procedure getlines;
var i:integer;
    crap:string;
 
 begin
   reset(f);
   i:=0;
   while not seekeof(f) do begin
     i:=i+1;
     repeat
       read(f,crap);
     until seekeoln(f);
     readln(f,crap);
   end;
   q:=i;
   writeln('q is : ',q);
   writeln;
   delay(1500);
 end;
 
 
procedure readinfo(d:string);
 
var h,i,ii,dd,s:integer;
    indata:string;
    count:integer;
 begin
   count:=1;
   i:=1;
   clrscr;
   assign(f,d);
   getlines;
   reset(f);
     while not eof(f) do
     begin
       readln(f,indata);
       if count=1 then reset(f);
       while not eoln(f) do
       begin
         read(f,letter);
         if (count=1) then begin
           repeat
             data[i].name:=data[i].name+letter;
             read(f,letter);
           until (letter=',');
           count:=count+1;
         end;
         read(f,letter);
         if (count=2) then begin
           repeat
             read(f,h); <-----------------------------what is the
             data[i].cruise:=data[i].cruise+(h); <----PROBLEM????
           until (letter=',');
         count:=count+1;
         end;
         read(f,letter);
         if (count=3) then begin
           repeat
             read(f,h); <----------------------------same as above
             data[i].ceiling:=data[i].ceiling{+(h);}
           until (letter=',');
         count:=count+1;
         end;
         read(f,letter);
         if (count=4) then begin
           repeat
             read(f,h); <---------------------------same as ^^^^^
             data[i].to50:=data[i].to50{+(h);}
           until (letter=',');
         count:=count+1;
         end;
         read(f,letter);
         if (count=5) then begin
           repeat
             read(f,h); <-------------------------same as ^^^^^^^^^
             data[i].lo50:=data[i].lo50{+(h);}
           until (letter=',');
         count:=count+1;
         end;
         read(f,letter);
         if (count=6) then begin
           repeat
             read(f,h); <------------------------------same as ^^^^^^^^
             data[i].payload:=data[i].payload{+(h);}
           until (letter=',');
         count:=count+1;
         end;
         read(f,letter);
         if (count=7) then begin
           repeat
             read(f,h); <-----------------------------same as ^^^^^^^^
             data[i].range:=data[i].range{+(h);} <----last problem!!!!!
           until (letter=',');
         count:=count+1;
         end;
         writeln(data[i].name);
         writeln(data[i].cruise);
       end;
       i:=i+1;
     end;
   end;
 
 
begin
  readinfo('TEST.DAT');
  close(f);
end.
[===========cut=====================cut=============================cut========]

  TEST.DAT file

[==================================cut=====================================]
tfddsffdfdsfdfest,123,14200,2321,2312,546,321
test1,343,34234,2312,2342,342,543
t5dsfsdsd3,432,34232,3421,2134,352,643
[===================================cut====================================]


                                                        Thanks,
                                                        Robert Oliver 
                                                        robby@nuchat.sccsi.com