[SedmoiDemon]

может попробывать при создании TMain1 добавить "inherited create(UnitFile);"? или я чего до не догоняю... я добавил у меня вышло l=2
П.С.Насчет "reset" и "rewrite" глупость сморозил очень стыдно

[Nicoman]

а у меня почему-то ошибка выскакивает...ты больше ничего не изменял? Можешь куда-нибудь залить получившееся и кинуть ссылку?

[Nicoman]

Всем спасибо, я наконец-то разобрался Просто надо было в UnitGl после implementation было добавить uses unit4; и конечно inherited create(unitfile); в TMain1

[SedmoiDemon]

хотел добавить... у меня тоже ошибка вылазиет если еще не исправил(а) смотри код

Код:

Constructor TMain.Create(UnitFile:String);
  Var f:textfile;
      i:Integer;
      fs:string;
  begin
   inherited Create;
   NameFile:=UnitFile;
   AssignFile(f,UnitFile);
   Reset(f);
   Readln(f,fs);
   l:=StrToInt(fs);
   SetLength(d,l*sizeof(d));

   For i:=1 To l Do
    Begin
     Readln(f,d[i].fam);
     ReadLn(f,d[i].name);
     ReadLn(f,d[i].otch);
     ReadLn(f,fs);
     d[i].plosh:=strtoint(fs);
     ReadLn(f,fs);
     d[i].kol:=strtoint(fs);
     ReadLn(f,fs);
     d[i].srok.day:=strtoint(copy(fs,0,2));
     d[i].srok.month:=strtoint(copy(fs,4,2));
     d[i].srok.year:=strtoint(copy(fs,7,4));
     ReadLn(f,fs);
     d[i].staj.day:=strtoint(copy(fs,0,2));
     d[i].staj.month:=strtoint(copy(fs,4,2));
     d[i].staj.year:=strtoint(copy(fs,7,4));
    End;
   CloseFile(f);
  end;

P.S. Народ, что такое "тэги" и как их ставить? (сори я из аула )

Admin: для оформления кода нужно использовать специальные теги [cоde]...[/code] (FAQ по тегам см. тут).