Hi guys,
Newbie here, I tried to use IBX for my database application.
I have codes declaration like these
TForm1 = class(TForm)
btnUndo: TButton;
btnSave: TButton;
DataSource1: TDataSource;
Dba: TIBDatabase;
DBEdit1: TDBEdit;
DBText1: TDBText;
Dt: TIBDataSet;
DtCD: TIBStringField;
DtGRP: TIBStringField;
DtID: TIBIntegerField;
Trs: TIBTransaction;
procedure btnSaveClick(Sender: TObject);
procedure btnUndoClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
Stuck in this codes
procedure TForm1.btnSaveClick(Sender: TObject);
const
Tbl : array[1..1] of TIBDataSet = (Dt);
begin
Dba.ApplyUpdates(Tbl);
end;
got an error
Error: typed constants of classes or interfaces are not allowed
EDIT
Change the code to this, seem fix the problem
procedure TForm1.btnSaveClick(Sender: TObject);
var
Tbl : array [1..1] of TDataSet;
begin
Tbl[1] := Dt;
Dba.ApplyUpdates( Tbl);
end;