Thema: Delphi BOF und EOF nach Locate

Einzelnen Beitrag anzeigen

QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.944 Beiträge
 
Delphi 12 Athens
 
#4

Re: BOF und EOF nach Locate

  Alt 1. Jun 2010, 11:48
Delphi-Quellcode:
Procedure TForm1.Buuton1Click(Sender:Tobject);
begin
  If not assigned(q) then
    q := tQuery.create(self);
  q.Databasename := 'MeineDb';
  q.SQL.Text := 'Select * from MeineTabelle Order By ID';
  q.open;
  Showmessage('offen! BOF:'+Booltostr(q.Bof,true)+' EOF:'+Booltostr(q.Eof, true));
  // Mein Ergebnis= offen! BOF:True EOF:False
  If Locate('ID',1,[]) then
    Showmessage('gefunden! BOF:'+Booltostr(q.Bof,true)+' EOF:'+Booltostr(q.Eof, true));
  // Mein Ergebnis= gefunden! BOF:False EOF:False
  q.close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Bm:Pointer;
begin
  if not assigned(q) then
    q := Tquery.create(self);
  q.DatabaseName := 'MeineDb';
  q.SQL.text :='SELECT * FROM MeineTabelle ORDER BY ID';
  q.Open;
  BM := q.GetBookmark;
  q.Close;
  q.Open;
  q.GotoBookmark(bm);
  Showmessage('bm! BOF:' + Booltostr(q.Bof,True) + ' EOF:' + Booltostr(q.Eof,True));
  //Mein Ergebnis= bm! BOF:False EOF:False
  q.Close;
end;
Hm, komisch! Hat jemand was anderes?
Andreas
Monads? Wtf are Monads?
  Mit Zitat antworten Zitat