| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
marcospgua
Novato
Registrado: Terça-Feira, 10 de Março de 2009
Mensagens: 76
Localização: curitiba
|
 Enviada: Qui Out 28, 2010 12:00 pm Assunto: Salvar uma stringgrid [RESOLVIDO] |
 |
|
Senhores, tenho um stringgrid e gostaria de, ao clicar num botão, inserir esses valores em uma tabela.
Como posso fazer isso?
Obs: A primeira linha é o cabeçalho dos dados. A inserção precisa ser da segunda linha em diante.
Editado pela última vez por marcospgua em Qui Out 28, 2010 12:53 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
rogerbetti
Colaborador
Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 1366
Localização: São Paulo/SP
|
| Enviada: Qui Out 28, 2010 12:22 pm Assunto: |
|
|
| Código: | procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
with ClientDataSet1, StringGrid1 do
begin
for i := 1 to Pred(RowCount) do
begin
Insert;
FieldByName(Cells[0,0]).AsInteger := StrToInt(Cells[0,i]);
FieldByName(Cells[1,0]).AsString := Cells[1,i];
FieldByName(Cells[2,0]).AsString := Cells[2,i];
Post;
end;
end;
end; |
|
|
| Voltar ao Topo |
|
|
marcospgua
Novato
Registrado: Terça-Feira, 10 de Março de 2009
Mensagens: 76
Localização: curitiba
|
| Enviada: Qui Out 28, 2010 12:52 pm Assunto: |
|
|
| GRATO |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
