Hallo, danke für die schnelle Antwort...
ich habe das jetzt so gelöst...
Delphi-Quellcode:
DataSet2.Active := False;
DataSet2.CommandText := 'SELECT (...) ;';
DataSet2.Active := True;
AlterWert := '100001'; // ist mein Startwert
while not DataSet2.Eof do
begin
try
if StrToInt(DataSet2.FieldValues['c002'])-StrtoInt(AlterWert) > 1 then // Zwischenraum vorhanden
begin
KontoRG := IntToStr(StrToInt(AlterWert)+1); // Mein Neuer Wert für die Kontonummer
break;
end;
AlterWert := DataSet2.FieldValues['c002'];
except
end;
DataSet2.Next;
end;
DataSet2.Active := False;
Damit habe ich zwar auch eine Schleife, aber ich muss mein DataSet nur einmal öffnen und nicht ständig neu öffnen um nach einem Wert zu suchen...
Geht echt schnell...
Lieber Gruß
Holger