Query lookup will nich wie ich...?

[barnti]

Sorry, mein Fehler! Danke für den Hinweis!

Die Funktion lautet natürlich:

Delphi-Quellcode:

function FindePartieID(Nummer: Integer): String;
begin
  try 
    DMPartie.poolQuery.First;
    result:= poolQuery.FieldByName('Partie_Pool_ID').AsString;
    PoolQuery.Delete;
  except  // sonst wird die nächst größere Nummer in der Partietabelle gesucht
          // und als neue Partie_ID vergeben, wenn diese nicht gefunden wird.
    begin
      while PartieNRExistiert(IntToStr(Nummer)) do
        begin
          Nummer:= Nummer +1;
        end;
      result:= IntToStr(nummer);
    end;
  end;
end;

So siehts aus! Trotzdem das selbe Problem!

Vielleicht noch eine Idee?