Функции компоненты

[Make]

вот кусок кода

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString Mater[6] = {
"Разбавители",
"Шпаклевки и грунтовки",
"Наждачки",
"Полировочные материалы",
"Лакокрасочные материалы",
"Прочие материалы"
};




void List();


TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}

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


void List ()  //функция заполнения лист бокса
{

TListBox *ListBox1; создаю указатель на компоненту, иил нет?

for ( int i= 0; i<6; i++)
ListBox1->Items->Add(Razb[i]);
}
//=========================================================================

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
ListBox1->Clear();
List ();
}
//---------------------------------------------------------------------------

При компиляции ошибку не выдает, но при нажатии на кнопку место того чтоб заполнить лист бокс прграмма вылетает

помогите пожплуйста уже два дня бьюсь

 

[European]

Так ничего работать и не будет. Ты же ведь создал только указатель, а кто сам компонент создавать будет? Положи его на форму и все будет ОК. А если тебе нужно именно динамическое создание, то создавай его как TListBox *ListBox1 = new TListBox().

 

[Programmer_Hard]

TListBox *ListBox1; создаю указатель на компоненту, иил нет?

Да создаещь, но чтобы туда вставлять строки сперва выдели память под ListBox1->Items

 

[Make]

Так ничего работать и не будет. Ты же ведь создал только указатель, а кто сам компонент создавать будет? Положи его на форму и все будет ОК. А если тебе нужно именно динамическое создание, то создавай его как TListBox *ListBox1 = new TListBox().

все лежит и лист бокс и кнопка

 

[European]

<!--QuoteBegin-Make+3:04:2007, 10:52 -->
<span class="vbquote">(Make @ 3:04:2007, 10:52 )</span><!--QuoteEBegin-->все лежит и лист бокс и кнопка

[snapback]61035" rel="nofollow" target="_blank[/snapback]​

[/quote]
И как это видно из твоего кода? Вариант sax_ol тебе должен помочь, хотя можно сделать функцию List членом класса TForm1 и обращаться к ListBox-у напрямую, без передачи указателя на него в функцию

 

[Make]

пасиба