main.~cpp

fielder Working with the Fields Object

#include <vcl\vcl.h>
#pragma hdrstop
#include "Main.h"
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}

void __fastcall TForm1::bbFieldsClick(TObject *Sender)
{
  int i;

  ListBox1->Clear();
  for (i = 0; i < tblCustomer->FieldCount; i++)
    ListBox1->Items->Add(tblCustomer->Fields->Fields[i]->FieldName);
}
 
void __fastcall TForm1::bbCurRecordClick(TObject *Sender)
{
  int i;

  ListBox2->Clear();
  for (i = 0; i < tblCustomer->FieldCount; i++)
    ListBox2->Items->Add(tblCustomer->Fields->Fields[i]->AsString);
}