Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#10

Re: Mit tTable-Komponente _weitersuchen_

  Alt 11. Okt 2003, 20:34
Hallo Tyler,

wenn du es ähnlich wie ein Textverarbeitungsprogramm machen willst, Filter und SQL ablehnst, gibt es wohl nur die folgende Methode:

Delphi-Quellcode:
function SucheEintrag: Boolean;
begin
  Result := False;
  while not myTable.EOF do
  begin
    if Not myTable.Feld1.AsString = Suchbedingung then
      myTable.Next
    else begin
       Result := True;
       Exit;
    end;
  end;
end;
Da SucheEintrag immer an der aktuellen Position anfängt, findest du ab der Suchposition den nächsten Satz. Nachdem du einen gefunden hast, musst du mit myTable.Next erst den nächsten satz auswählen, damit du nicht denselben Satz wieder findest.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat