Código Delphi [-] i := 1; while (RxMemoryData1.Locate('Numero', i, [])) do begin inc(i); end; Result := i;
i := 1; while (RxMemoryData1.Locate('Numero', i, [])) do begin inc(i); end; Result := i;