Ir para conteúdo
Fórum Script Brasil
  • 0

Stringgrid (Resolvido)


nightmare

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

Olá Nightmare,

Você terá que fazer na "unha" para preencher o StringGrid.

Vai um exemplo ai... Coloque um StringGrid com 2 colunas e algumas Linhas...

procedure TForm1.Button1Click(Sender: TObject);

var Linha, Coluna: integer;

begin
 Linha:=1;
 Coluna:=1;
 with Query1 do
  begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT Campo FROM Tabela');
   Open;
   while not(EOF) do
    begin
     if StringGrid.RowCount <= Linha then // Adiciona linhas conforme o nº registro
      StringGrid.RowCount:= StringGrid.RowCount + 1;      
     StringGrid.Cells[Coluna,Linha]:=FieldByName('Campo').AsString; // mostra no grid o campo
     StringGrid.Cells[0,Linha]:= IntToStr(Linha);
     Linha:=Linha + 1; // Proxima Linha
     Next; // Proximo Registro
    end;
  end;
end;

qualquer coisa posta ae.

Abs.

Kiko

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...