Объектно-ориентированное программирование на С++ - eDrive

55
void Info (TList *vl) {
AnsiString b;
for (int i=0; iCount; ++i)
{ b += AnsiString (i) + ' ' + (char*) vl–>Items[i] + '\n'; }
ShowMessage ("В списке: " + IntToStr (vl–>Count) + '\n' + b);
}
void __fastcall TForm1::ListClick (TObject *Sender){
AnsiString a[] = {"Иванов", "Петров", "Сидоров", "Смирнов"};
TList *vList = new TList;
try {
vList–>Capacity = 10;
for (int i=0; iAdd (a[i].c_str ());
Info (vList); // В списке 4: 0 Иванов 1 Петров 2 Сидоров 3 Смирнов
vList–>Remove (vList–>Items[1]); vList–>Delete (1);
Info (vList); // В списке 2: 0 Иванов 1 Смирнов
vList–>Insert (1, a[0].c_str ());
Info (vList); // В списке 3: 0 Иванов 1 Иванов 2 Смирнов
ShowMessage ("Свободно " + IntToStr (vList–>Capacity–vList–>Count)); // 7
vList–>Pack ();
ShowMessage ("Свободно " + IntToStr (vList–>Capacity–vList–>Count)); // 7
} catch (...) { delete vList; throw; }
delete vList;
}
Пример разработки авторского списка без привлечения библиотечного
класса TList:
struct vList { int value; vList *p; };
vList *current, *last, *first;
int Get () {
static value;
int val = MessageDlg ("Продолжать", mtConfirmation,
TmsgDlgButtons () p = 0;
if (last) last–>p = current; else first = current;