Código Delphi [-] i:=0; Repeat i:=i+1; until (cds.Locate('Numero', i, [])); Resultado:=i;
i:=0; Repeat i:=i+1; until (cds.Locate('Numero', i, [])); Resultado:=i;