Hallo Profis,
am besten schick ich euch erstmal mein Code
Delphi-Quellcode:
function TForm1.nextEntry(t:TDatetime;id:integer):String;
var
dbtext:String;
weiter:Boolean;
tmptime:TDateTime;
begin
DBtext := 'select * from TABELLE where ID_OBJECT=' + '''' + inttostr(id) + '''';
with dbconnection do
begin
myquery.Close;
myquery.sql.Clear;
myquery.sql.add(dbtext);
myquery.Open;
end;
weiter:=true;
while (weiter) and (not myquery.Eof)do
begin
tmptime:= myquery.FieldByName('TIME').AsDateTime;
if t<=tmptime then
begin
weiter:=false;
end
else
weiter:=true;
myquery.Next;
end;
myaquery.Prior;
tmptime :=myquery.FieldByName('TIME').AsDateTime;
result:=vartostr(tmptime)
end;
Ich möchte wissen warum Prior hier nichts tut..!
myquery.next wird einmal mehr als das was ich will ausgeführt(in der while-schleife) also möchte ich danach einen Eintrag zurückspringen es geht aber nicht und intressanterweise wenn ich anstatt prior , First schreibe dann wird genau das gemacht was ich will. kann mir jemand das erklären?!
