Объекты

[Вероника92]

осуществить добавление в класс объекта из файла add с помощью Create

[Stilet]

Ну дык а сейчас у тебя в программе не так разве?

[Вероника92]

у меня создается список из файла abonent а нужно чтоб из abonent и add

[Stilet]

Ну допиши метод с таким вот телом:

  procedure TCompany.Add(file_name: string);
begin
  FName:=CreateL(file_name,FL)
end;

И используй его в программе, передавая ему имя файла add

И не забудь модифицировать считку файла, так чтоб он не инициализировал список:

 function CreateL (file_name:string; initializ:Boolean var L:TList):string;
...
if initializ then Init(L);

Соответственно в конструкторе передавай true а в Add передавай False

[Вероника92]

а если через клавиатуру данные добавлять?как тогда процедура выглядеть будет?

[Stilet]

Тогда вместо Readln(t...; просто пиши Readln(...
т.е. не указывай первым параметром файл в методе Add.
И не прописывай его открытие.

[Вероника92]

constructor TAbonent.Createobj;
  begin
    inherited Create;
    Readln(FFio);
    Readln(FAdress.street);
    Readln(FAdress.num_home);
    Readln(FAdress.num_flat);
    Readln(Fnumberphone);
    Readln(Fbalans);
  end;

вот этот конструктор добавила Un_abonent. какой конструктор в Un_company нужно добавить,чтобы введенный с клавиатуры абонент добавился в список?

[Stilet]

Не конструктор а метод (обычная процедура, описанная в рамках класса).
Если фантазия на нуле можешь назвать его Add().
Он будет создавать новый экземпляр TAbonent.

[Вероника92]

Т.е в Un_company добавить эту процедуру?А как тогда конструктор Createobj использовать в этой процедуре?(например f:=TCompany.Createobj правильно?)

[Stilet]

(например f:=TCompany.Createobj правильно?

А ты попробуй
И выяснишь верно или нет.
Вообще видимо TAbonent.Createobj() будет верно.
Ты в принципе хотя бы чуть чуть понимаешь что пишешь? Потому что если нет то все твои вопросы бесполезны.