Zählen von Einträgen in SQLQuery

[MadMason]

Hi @all

ich möchte die Einträge in einem Table zählen mit

Delphi-Quellcode:

function countfields(table, field: string): integer;
begin
  SQLQuery.SQL.Clear;
  SQLQuery.SQL.Add('SELECT '+ field +' FROM ' + table);
  SQLQuery.Open;
  if SQLQuery.IsEmpty then result:= 0 else result:= SQLQuery.FieldCount;
  SQLQuery.Close;
end;

liefert der mir entweder 0 zurück (wenn keine einträge da sind --> richig) oder 1 (egal wieviele einträge es sind)

ich hab die sache zwar mit

Delphi-Quellcode:

function countfields(table, field: string): integer;
begin
  SQLQuery.SQL.Clear;
  SQLQuery.SQL.Add('SELECT '+ field +' FROM ' + table);
  SQLQuery.Open;
  if SQLQuery.IsEmpty then result:= 0 else begin
   SQLQuery.First;
   result:= 0;
   repeat
    inc(result);
    SQLQuery.Next;
   until SQLQuery.Eof;
  end;
  SQLQuery.Close;
end;

umschifft aber das muss doch auch "eleganter" gehn