Coluna DBGrid com numeros pares

Delphi

20/07/2020

Olá pessoal, Boa Noite! Tenho um código abaixo para gerar uma sequencia numerica numa coluna de um DBGrid, porém queria multiplicar por 2 tosa a coluna e deixar somente multiplos de 2. Poderiam me ajudar ?
Nota: o uso o BD MYSQL.

Var i : integer;
N : integer;
begin
N:= 1;

dm.ztb_numeros.First;

for i := 0 to dm.ztb_numeros.recordcount -1 do

begin
dm.ztb_numeros.Edit;
dm.ztb_numerosnum_seq.value := IntToStr(N);
N:= N + 1;

dm.ztb_numeros.Post;

dm.ztb_numeros.next;

end;

end;
Antonio

Antonio

Curtidas 0
POSTAR