Загвоздка в программе

[prikolist]

Здравсвуйте программисты! Подскажите пожалуйста,в чём проблемма в этом коде, начал изучать тему по книге "Списки указателей TList", написал вот код ниже. При кампиляции, останавливается на указателе List в этом месте for(int i = 0; i<List->Count; i++),и дальше не идёт:
Вот код всё программы.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TList *List = new TList;
//-----------Stryctyra-----------
struct mama{
AnsiString Fam,Nam,Par;
unsigned Year;
AnsiString Dep;
};
mama *vova;

//Выделение памяти под новую структуру
vova = new mama;

vova->Fam = "Иванов";
vova->Nam = "Иван";
vova->Par = "Иванович";
vova->Year = 1970;
vova->Dep = "Бухгалтерия";
List->Add(vova);

vova = new mama;
vova->Fam = "Петров";
vova->Nam = "Петр";
vova->Par = "Петрович";
vova->Year = 1960;
vova->Dep = "Цех 1";

// Включаю указатель в список
List->Add(vova);



}

//---------------------------------------------------------------------------
void __fastcall ShowList()
{

for(int i = 0; i<List->Count; i++)
ShowMessage(((mama*)List->Items[i])->Fam + ' ' +
' '+((mama*)List->Items[i])->Nam +
' '+((mama*)List->Items[i])->Par+'\n' +
IntToStr(((mama*)List->Items[i])->Year)+
" г.р. \n Отдел ' " + ((mama*)List->Items[i])->Dep +
" '");
}

}
//---------------------------------------------------------------------------

[pu4koff]

Посмотрите где у Вас List этот описан и где Вы его пытаетесь использовать. Про области видимости переменных надеюсь слышали

[MaTBeu]

Ну видать потому что List->Count() нужно написать. Потому что Count() - это функция.

[pu4koff]

В билдере соорудили свойства и потому Count - это __property и скобки нинада

[MaTBeu]

Сори, попутал с stl-евским списком))))

[prikolist]

Вот так, работает,толко нужно сбрасывать 2 кнопки на форму, а нажимать вначале на батон1, а затем аж на батон 2,чтоб выдало список, но мне нужно,чтоб на форме была 1 кнопка,я на неё нажал одни раз,и выдало список. Вот код изменённый.
Вот код.

TList *List;
//-----------Stryctyra-----------
struct mama{
AnsiString Fam,Nam,Par;
unsigned Year;
AnsiString Dep;
};

void __fastcall TForm1::Button1Click(TObject *Sender)
{
List = new TList;

mama *vova;

//Выделение памяти под новую структуру
vova = new mama;

vova->Fam = "Иванов";
vova->Nam = "Иван";
vova->Par = "Иванович";
vova->Year = 1970;
vova->Dep = "Бухгалтерия";
List->Add(vova);


vova = new mama;
vova->Fam = "Петров";
vova->Nam = "Петр";
vova->Par = "Петрович";
vova->Year = 1960;
vova->Dep = "Цех 1";
 
// Включаю указатель в список
List->Add(vova);
 
 
}
 
//---------------------------------------------------------------------------
void __fastcall ShowList()
{

for(int i = 0; i<List->Count; i++)
ShowMessage(((mama*)List->Items[i])->Fam + ' ' +
' '+((mama*)List->Items[i])->Nam +
' '+((mama*)List->Items[i])->Par+'\n' +
IntToStr(((mama*)List->Items[i])->Year)+
" г.р. \n Отдел ' " + ((mama*)List->Items[i])->Dep +
" '");
}
 

//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{
ShowList();
}
//---------------------------------------------------------------------------

[pu4koff]

Ну и допишите в конец Button1Click вызов ShowList();, а Button2 удалите