Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.292 Beiträge
 
Delphi 12 Athens
 
#4

AW: SQL-Suchergebnis nachträglich noch mal einschränken

  Alt 1. Sep 2019, 13:38
Moin...
Delphi-Quellcode:
while not dbquSQL.Eof do
begin
  if not TFile.Exists(dbquSQL.FieldByName('Feld mit dem Dateinamen').AsString) then
  begin
    dbquSQL.Edit;
    dbquSQL.FieldByName('FileExist').AsInteger = 0:
    dbquSQL.Post;
  end;
  dbquSQL.Next;
end;
  Mit Zitat antworten Zitat