salvar dados de stringgride em uma tabela

Delphi

28/10/2003

Ola pessoal.
esta é a primeira vez que utilizo o forum.
como posso carregar os dados de um stringgrid em uma tabela.


Dbk

Dbk

Curtidas 0

Respostas

Ricardo.vano

Ricardo.vano

28/10/2003

Não sei que componentes está usando, mas segue um exemplo:

procedure TFrmReuniao.SalvarClick(Sender: TObject); 
var 
  I :Integer; 
Begin 
  for I := 1 to StringGrid1.Rowcount do 
    Begin 
      Table1.Insert; 
      Table1.Edit; 
      Table1.FieldByName(´Codigo´).Value:=StrToInt(StringGrid1.Cells[1,I] ); 
      Table1.FieldByName(´Nome´).Value:=StringGrid1.Cells[2,I]; 
      Table1.FieldByName(´Telefone´).Value:=StringGrid1.Cells[3,I]; 
      Table1.FindNext; 
      Table1.Insert; 
    end; 
    Table1.Post; 
End;


Qualquer dúvida me avisa, ok?

Falow!


GOSTEI 0
POSTAR