(Resolvido) Verificar sequencia quebrada

[Alberto Mota]

Prezados colegas estou utilizando o sql server e o delphi 7.

Tenho uma tabela TblMovimentação e o campo seq que é a chave primária.

Existem situações em que a sequencia é quebrada.

O usuário exclui(não deve, mas é perimitido) mas existem outras situações

e preciso rastrear isso.

Gostaria de ter uma listagem para ver essa quebra

Por exemplo:

1000

1001

1015

1016

1017

1018

1050

1051

houve 2 quebras de 1001 pulou para 1015

e de 1018 pulou para 1050

Gostaria que me fosse exibido assim

1001

1015

1018

1050

Pois saberia quais sequencias foram quebradas.

Desde já, obrigado.

[Jhonas]

se essa sequencia estiver em um memo, fica assim:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;  num, numx : integer; nume : string;
begin
   for i := 0 to Memo1.Lines.Count do
     begin
        nume := Memo1.Lines.Strings[i];
        if nume = '' then continue;
        num := strtoint(nume);
        if i = 0 then
           numx := num
        else
           if succ(numx) = num then
              numx := num
           else
              begin
                 showmessage(Memo1.Lines.Strings[i-1]);
                 showmessage(Memo1.Lines.Strings[i]);
                 numx := num;
              end;
     end;
end;

abraço

[Alberto Mota]

Jhonas, obrigado por responder.

Está numa tabela,

Mas pelo que vi, dá para adaptar

vou meter a mão na massa

voce já mostrou o caminho das pedras, mais uma vez.

E mais uma vez, obrigado

Edited September 21, 2011 by Alberto Mota

[Jhonas]

realmente.. basta adaptar o código

fica até mais simples usando a tabela

abraço