Advertisement
Gov_777

Вывод пустых конкретно всех, включая юзанных

Jul 1st, 2016
145
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.30 KB | None | 0 0
  1. procedure TLog.N6Click(Sender: TObject);
  2. begin
  3. DM.ADOQuery1.SQL.Clear;
  4. DM.ADOQuery1.SQL.Add('SELECT * FROM brut WHERE LEN(TRIM(pass)) < 1 or'
  5. +'(pass is NULL)');
  6. DM.ADOQuery1.Active:=True;
  7. Log.Caption:=Log.Caption+' всего акков без паролей: '+inttostr(dm.ADOQuery1.RecordCount);
  8. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement