Código Delphi [-]query1.Close; query1.SQL.Clear; query1.SQL.Add('Select Max(idTabla)+1 From Tabla1'); query1.Open; Edit1.Text := IntToStr(query1.Fields[0].AsInteger);
query1.Close; query1.SQL.Clear; query1.SQL.Add('Select Max(idTabla)+1 From Tabla1'); query1.Open; Edit1.Text := IntToStr(query1.Fields[0].AsInteger);