-> Lines-> Add (В«АвтомобіліВ»); -> Lines-> Add (В«========== == В»); -> Clear (); -> Lines-> Add (В« Автобуси В»); -> Lines-> Add (В« =========== В»); -> Clear (); -> Lines-> Add (В«ВантажівкиВ»); -> Lines-> Add (В«===========В»); * avto; * INFO = new TStringList ();. ReadFileBase ();
//// вивід інформації про машини (int i = 0; i <= baza. Ccount-1; i + +)
{=
}
//// вивід інформації про автобуси
for (int i = 0; i <= baza. Bcount-1; i + +)
{=
}
//// вивід інформації про вантажівки
for (int i = 0; i <= baza. Tcount-1; i + +)
{=
}
} (EConvertError *)
{(0, В«Читання файлу!В», В«Помилка!В», MB_ICONERROR);
}
}
// -
__fastcall TFirst: BitBtn1Click (TObject * Sender)
{
try
{/// Додавання і виведення нового об'єкта
if (transport-> Text == В«АвтомобіліВ»)
{((marka-> Text == »») | | (model-> Text == »») | |
(god_vipuska-> Text == »») | | (power-> Text == »») | |
(vmestimost-> Text == »») | | (tip_kuzova-> Text == »») | |
(class_avto-> Text == »»)) (0, В«Заповніть всі поля!В», В«Помилка!В», MB_ICONWARNING); else
{. CARArray [baza. Ccount] = new CAR
+ + baza. Ccount;
MessageBoxA (0, В«Виконано успішно!В», В«Додавання даних!В», mbYes);
AVTO * avto; * INFO = new TStringList (); = baza.CARArray [baza.
}
};
} (EConvertError *)
{(0, В«Перевірте правильність введених даних!В», В«Помилка!В», MB_ICONERROR);
}
try
{/// Додавання і виведення нового об'єкта
if (transport-> Text == В«АвтобусиВ»)
{((marka-> Text == »») | | (model-> Text == »») | |
(god_vipuska-> Text == »») | | (power-> Text == »») | |
(vmestimost-> Text == »») | | (naznachenie-> Text == »») | |
(gab_dlinna-> Text == »»)) (0, В«Заповніть всі поля!В», В«Помилка!В», MB_ICONWARNING); else
{. BUSArray [baza. Bcount] = new BUS
+ + baza. Bcount;
MessageBoxA (0, В«Виконано успішно!В», В«Додавання даних!В», mbYes);
AVTO * avto; * INFO = new TStringList (); = baza.BUSArray [baza.