Asignar valor a columna dbgrid en Lazarus

Dbgrid en Lazarus

 

 

 

Veamos ahora como asignar el valor de una variable a un dbgrid en lazarus, realmente lo que haré será actualizar el DataSource que hace de puente entre el dbgrid y el dataset, en este caso una conexión con Zeos ZConnection.

var
  vfrmCuadre: TfrmCuadre;
  vEstadillo: String;
  vFecha: String;

implementation

{$R *.lfm}

{ TfrmCuadre }



procedure TfrmCuadre.FormCreate(Sender: TObject);
begin
   DataModule1.ZQuery1.Open;
end;

procedure TfrmCuadre.DBGrid1ColExit(Sender: TObject);
begin
   try

  if DBGRid1.SelectedIndex = 0 then
      vEstadillo:=Dbgrid1.Columns[0].Field.Text;

  if DBGRid1.SelectedIndex = 2 then
     vFecha:=Dbgrid1.Columns[2].Field.Text;
 except
   showmessage('Error en columna');

   end;
end;



procedure TfrmCuadre.DataSource1UpdateData(Sender: TObject);
begin
   if DataSource1.DataSet.FieldByName('ESTADILLO').Text= '' then
     DataSource1.DataSet.Fieldbyname('ESTADILLO').AsString := vEstadillo;
   if DataSource1.DataSet.FieldByName('FECHA').Text= '' then
     DataSource1.DataSet.Fieldbyname('FECHA').AsString := vFecha;
end;        

Fuerza y honor.