Al incluir un Uses ¿se carga todo a memoria?

[[Lepe]]

Empezado por roman

Sé que nunca has mencionado tu nombre real en estos foros amigo Lepe,

No puedes afirmar eso, has estado ausente mucho tiempo

Empezado por roman

pero, no me vas a decir que incluso en el prefijo de tus funciones y librerías usas Lepe.
[/Paréntesis]

// Saludos

No uso prefijo en funciones. En el nombre de las unidades sí, para seguir los nombres de la VCL.


CreateQry la uso cuando necesito temporalmente ejecutar una sentencia SQL, pero no quiero tener un TQuery en el Datamodule o en el TForm sólo para una llamada, al final acaba estorbando más que ayudando, por eso uso la rutina que crea, configura la consulta y opcionalmente la ejecuta:

Código Delphi [-]
function Createqry(sql:string):TQuery;
begin
  Result := TQuery.Create(nil);
  Result.DatabaseName:=  el que sea
  Result.sql.text := sql;
end;

function ExecSql(sql:string):integer;
var q:TQuery;
begin
   q := Createqry(sql);
   q.ExecSql;
    Result := q.RowsAffected;
   q.Free;
end;

Muchas veces necesitas una consulta de forma puntual, sólo para actualizar un registro, etc. Tener que poner un TQuery en la ventana (o datamodule), configurarlo, ponerle nombre, y por último llamarlo desde código es "perder el tiempo", "ExecSql" son 7 letras más el SQL y listo .

Saludos