Чтение из файла

[krikqwerty]

Здравствуйте у меня проблема в том что я не могу прочитать то что записал в файл это код записи в файл:

SaveToFile(aName_File:string):boolean;
var
i: Integer;
f:TextFile;
begin
Result:=False;
if count=0 then
Exit
    else begin
          AssignFile(f,aName_File);
             Rewrite(f);
                    for i:= 1 to count do
                    writeln(f,chairs[i].GetNC);
CloseFile(f);
Result:=True;
end;  end;

Помогите прочитать из файла то что записал, я сам понять не могу пока как это сделать

[Stilet]

...
          AssignFile(f,aName_File);
             Reset(f);
i:=1
                    while (not eof(f)) and (i<=count) do begin
                    Readln(f,chairs[i].GetNC);
inc(i);
end;
...

Подходит?

[krikqwerty]

нет пишет что левая сторона не может быть назначен

[Stilet]

Тип элемента массива chairs в студию.

[krikqwerty]

Chairs: array [1..n] of TChair;

[Stilet]

TChair

Его спецификацию покажи.

[krikqwerty]

Вот здесь весь модуль

unit Institut;

interface    
uses Chair,Teacher,unit1;
 const n=20;
Type
TInstitut=class

private

Chairs: array [1..n] of TChair;
Name_inst:string;
count:integer;


public

Constructor    Create(aName_inst:string); 
   function    Add(name_new_chair:string):boolean;
   function    GetNI:string;
   function    GetChair(index: integer): TChair;
  procedure    SetNI(aName_inst:string);
   function    GetICount:integer;
   function    Delete(aName_Chair:string):boolean;
  procedure    ShowAll;
  function     SaveToFile(aName_File:string):boolean;
  function    LoadToFile(aName_File:string):boolean;
end;
implementation

constructor TInstitut.Create(aName_inst:string);
begin
name_inst:=aName_inst;
count:=0;
end;




function    TInstitut.Add(name_new_chair:string):boolean;
var i,j:integer;
begin
 result:=false;
 if (count=0) then begin
 Chairs[1]:=TChair.Create(name_new_chair);
 count:=count+1;
 end
 else
 if (count<n) then begin
    for i :=  1 to count do
      if Chairs[i].GetNC > name_new_chair then   begin
         for j := count downto i-1 do  chairs[j+1]:=chairs[j];
            chairs[i]:=TChair.Create(name_new_chair)
             end
            else
       chairs[Count+1]:=TChair.Create(name_new_chair);
      count:=count+1;
   result:=true;
 end;
 end;


function    TInstitut.Delete(aName_Chair:string):boolean;
var i,j:integer;
begin
      result:=false;
        if (count<>0) then begin
         for i:= 1 to count do
           if Chairs[i].GetNC=aName_Chair then
       for j:= i+1 to count do  Chairs[j-1]:=chairs[j];
     count:=count-1;
    result:=true;
end;
end;

    procedure TInstitut.ShowAll;
      var
        i:integer;
      begin
        Form1.Combobox1.Clear; 
        for i:=1 to Count do
        begin
        Form1.Combobox1.Items.Add(Chairs[i].GetNC); 
        end;
      end;

  function Tinstitut.GetChair (index: integer) : TChair;
    begin
      result:=Chairs[index+1];
    end;



procedure    TInstitut.SetNI(aName_inst:string);
begin
Name_inst:=aName_inst;
end;

function    TInstitut.GetNI:string;
begin
result:=name_inst;
end;

function    TInstitut.GetICount:integer;
begin
result:=count;
end;




function    TInstitut.SaveToFile(aName_File:string):boolean;
var
Temp:TTeacher;
i: Integer;
f:TextFile;
begin
Result:=False;
if count=0 then
Exit
    else begin
          AssignFile(f,aName_File);
             Rewrite(f);

                    for i:= 1 to count do
                    writeln(f,chairs[i].GetNC);
CloseFile(f);
Result:=True;
end;  end;



function    TInstitut.LoadToFile(aName_File:string):boolean;

begin

      end;
end.

[krikqwerty]

это у меня самая верхняя структура под ней находятся преподаватели которые сидят в этих кафедрах, их тож кстати надо сохранять но это позже

[Stilet]

Ладно, раз ты не понял поставлю вопрос по дургому:
Что такое TChair? Как он устроен, и какие поля у него для записи, т.е. способные принимать некое значение?

[krikqwerty]

он может принимать только имена кафедр

в нем нет никаких полей в нем сидят только имена кафедр