Курсовая работа: Облік компютерів та комплектуючих на підприємстві

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.Save; //Збереження в файл

var i:Byte;

FileName:String;

begin

FileName:=ExtractFilePath(Application.ExeName)+'Computers'; //Генерація ім’я файлу

AssignFile(F,FileName); ReWrite(F);

for i:=1 to Count do

Write(F,Dep[i]);

CloseFile(F);

end;

procedure TForm1.Load; //Завантаження з файлу

var FileName:String;

begin

FileName:=ExtractFilePath(Application.ExeName)+'Computers'; //Генерація ім’я файлу

if not FileExists(FileName) then Exit; //Перевірка на наявність файлу

AssignFile(F,FileName); Reset(F);

Count:=0;

while not eof(F) do begin

INC(Count);

Read(F,DEP[Count]);

ComboBox1.Items.Add(DEP[Count].Name); //Додаємо назву відділу в список

end;

ComboBox1.ItemIndex:=0;

ShowDepartament(1);

CloseFile(F);

end;

procedure TForm1.FormCreate(Sender: TObject);