Código Delphi [-] Var Caral: Integer; Begin Caral := 1; Query1.Sql.text:= 'Select Max(No)+'+Caral+' form Clientes'; Query1.Open; Edit1.text:= IntToStr(query1.Fields[0].asinteger);
Var Caral: Integer; Begin Caral := 1; Query1.Sql.text:= 'Select Max(No)+'+Caral+' form Clientes'; Query1.Open; Edit1.text:= IntToStr(query1.Fields[0].asinteger);