Haz una función... y utilizala en cada caso.
Código Delphi [-]function Pedirdato ( SQL, Resultado:string): integer;
begin
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(SQL);
Query.Open;
return:= Query.FieldbyName.(resultado).AsInteger;
end;
Saludos
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino -
Última edición por Casimiro Notevi fecha: 17-10-2011 a las 19:45:16.
|