pascal-vprašanje

type tip_ucenca = record
     Ime: string[50];
     Test: array[1..6] of integer;
     Ocena: array[1..5] of integer;
     end;

var ucenec:tip_ucenca;
    datoteka: text;
    ime_datoteke,x:string;
    tabela: array [1..30] of tip_ucenca;
    i,j:integer;

begin
randomize;

ime_datoteke:='C:\Users\Sara\Desktop\Seminarska\ime_priimek.txt';

assign(datoteka, ime_datoteke);
{$I-}
reset(datoteka);
{$I+}

i:=1;
while not eof(datoteka) do
      begin
      inc(i);
      readln(datoteka,x);
      with ucenec do ime:=x;
      tabela[i]:=ucenec;
      end;

close(datoteka);
readln();
end.

krho je 26. jan 2012 ob 21:53 izjavil:

napiši i:=0 ali prestavi inc(i) za tabela[i]:=ucenec;

Lion29 :: danes, 21:54:42
omg kjeri spomini....kolko ur sem jaz zabusu za pascalom....noro