[voron_paa]

Сообщение от Nicoman

да пробовал я и строковые переменные, но один фиг получается 0

Код:

сonstructor TMain.Create(UnitFile:String);
  Var f:TextFile;
      i:Integer;
      s:String;
  begin
   inherited Create;
   NameFile:=UnitFile;
   AssignFile(f,UnitFile);
   Reset(f);
   ReadLn(f,l); {Вот здесь переменная l ничего не считывает и    получается= 0}
   SetLength(d,l);
   For i:=1 To l Do
    Begin
     ReadLn(f,d[i].fam);
     ReadLn(f,d[i].name);
     ReadLn(f,d[i].otch);
     ReadLn(f,d[i].plosh);
     ReadLn(f,d[i].kol);
     ReadLn(f,d[i].srok.day,d[i].srok.month,d[i].srok.year);
     ReadLn(f,d[i].staj.day,d[i].staj.month,d[i].staj.year);
    End;
   CloseFile(f);
  end;

Измени код конструктора... срузу не заметил ...

К стати брось исходник... может если так не пройдёт в нём покапаемся ... хотя если чесно ты перемудрил...
Можно гораздо короче и проще сделать..