t; Ccount; CFcount; BFcount; TFcount;
///читання даних в масив з файлу
virtual void ReadFileBase ()
{* TRACKbase = new TStringList (); * BUSbase = new TStringList (); * CARbase = new TStringList (); * INFO = new TStringList (); -> LoadFromFile (В«track_info.txt В»); -> LoadFromFile (В« bus_info.txt В»); -> LoadFromFile (В« car_info.txt В»); lenCar = 7;> Clear (); (int j = 0; j <= (CARbase- > Count/lenCar-1); j + +)
{(int i = 0; i <= lenCar-1; i + +)
{> Add (CARbase-> Strings [j * lenCar + i]);
} (INFO, 1);> Clear ();
} lenBus = 7;> Clear (); (int j = 0; j <= (BUSbase-> Count/lenBus-1); j + +)
{(int i = 0; i <= lenBus-1; i + +)
{> Add (BUSbase-> Strings [j * lenBus + i]);
} (INFO, 2);> Clear ();
} lenTrack = 6;> Clear (); (int j = 0; j <= (TRACKbase-> Count/lenTrack-1); j + +)
{(int i = 0; i <= lenTrack-1; i + +)
{> Add (TRACKbase-> Strings [j * lenTrack + i]);
} (INFO, 3);> Clear ();
}
}
///Створення об'єкта з файлу
virtual void Create (TStringList * INFO, int clas)
{(clas)
{1: [Ccount] = new CAR
+ + Ccount;; 2: [Bcount] = new BUS
+ + Bcount;; 3: [Tcount] = new TRACK
+ + Tcount;
}
} void FIND (String value, int pole)
{* INFO = new TStringList (); = 0;
BFcount = 0; = 0;
///пошук значення по масиву автомобілів
for (int i = 0; i
{[i] -> GET (INFO); (value == INFO-> Strings [pole])
{[CFcount] = CARArray [i]; + +;
}> Clear ();
}
///пошук значення по масиву автобуси
for (int i = 0; i
{[i] -> GET (INFO); (value == INFO-> Strings [pole])
{[BFcount] = BUSArray [i]; + +;
}> Clear ();
}
///пошук значення по масиву автобуси
for (int i = 0; i
{[i] -> GET (INFO); (value == INFO-> Strings [pole])
{[TFcount] = TRACKArray [i]; + +;
}> Clear ();
}
}
}; baza; __fastcall TFirst: FormActivate (TObject * Sender)
{
{-> Clear (); ...
