Como ler dados de uma célula específica de um DBGRID

Delphi

04/09/2014

Bom dia a todos, primeiro peço desculpas, acho que minha pergunta pode parecer estúpida, mas ou iniciante.

Eu fiz uma conexão via ADOTABLE com uma planilha do Excel (xlbs) e consegui carregar todos os dados para um DBGRID, preciso agora ler a informação de uma célula específica do DBGRID carregado e salvar esta informação em um DBEDIT, isto tudo feito via código.

Obrigado.
Roberto Jardim

Roberto Jardim

Curtidas 0

Respostas

Zilon Maciel

Zilon Maciel

04/09/2014

Oi, Roberto,
O código abaixo mostra para você as coordenadas, (linha x coluna) do DBGrid.
Espero que seje útil, um abraço.


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, DBTables;

type
TForm1 = class(TForm)
Button1: TButton;
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
public
{ Public declarations }
end;
type
THackGrid = class(TCustomGrid)
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption := THackGrid(DBGrid1).GetEditText(2,1);
end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Form1.Caption := THackGrid(DBGrid1).GetEditText(1,1);
end;

end.
GOSTEI 0
POSTAR