Sql-Befehl anpassen

[Kleine]

I hoabs jet

Delphi-Quellcode:

function TFormMain.MaxUnivID(tb: string): Integer;
var
  lMax : Integer ;
begin
    qu.Close ;
    qu.SQL.Clear ;
    qu.SQL.Add( Format( 'Select max(ID) as MaxID from %s', [ tb ] ) ) ;
    qu.Open ;
    lMax := qu.FieldByName('MaxID').AsInteger;
    Result := lMax  ;
end;