функция

[sergei64_89]

public:
void select();
String u,s[11];
void select()
{
int n;
for (n=0;n<=5;n++)
{
Form1->DBGrid1->SelectedField=Form1->DBGrid1->Columns->Items[n]->Field;
Form1->s[n]=Form1->DBGrid1->SelectedField->AsString;
}
}
void __fastcall TForm1::bpvtybn1Click(TObject *Sender)
{
Form4->Label1->Caption=DBGrid1->Columns->Items[0]->FieldName;
Form4->Label2->Caption=DBGrid1->Columns->Items[1]->FieldName;
Form4->Label3->Caption=DBGrid1->Columns->Items[2]->FieldName;
Form4->Label4->Caption=DBGrid1->Columns->Items[3]->FieldName;
Form4->Label5->Caption=DBGrid1->Columns->Items[4]->FieldName;
Form4->Label6->Caption=DBGrid1->Columns->Items[5]->FieldName;
void select();

Form4->Edit1->Text=s[0];
Form4->ComboBox1->Text=s[1];
Form4->Edit2->Text=s[2];
Form4->Edit3->Text=s[3];
Form4->Edit4->Text=s[4];
Form4->Edit5->Text=s[5];
Form4->Show();
}

почему эдиты пусты?

[sergei64_89]

разобрался сам!

[merax]

А как же другие поколения???

Если ты задал вопрос, то хотел получить ответ... А если разобрался сам, то выложи решение, пусть оно поможет другим...