Delphi dicas

Verificar quantidade de registro na tabela

Olá amigos vou mostra verificar quantidade de registro na tabela e jogar dentro de um editbox.

Vamos lá!



procedure TForm1.Button1Click(Sender: TObject);

var

sa1,sa2,sa3:real;

begin

        ADOTable6.Close;

        ADOTable6.open;

        sa1:=1;

        sa2:=0;

        sa3:=0;

        ADOTable6.First;

        while not adotable6.Eof do

        begin

                sa3:=(sa3+sa1+sa2);

                ADOTable6.Next;

        end;

        edit5.text:=floattostr(sa3);

end;

por : Homero Ricardo