Código Delphi [-] function TServerMethods1.GetServerComandos(SQ: string): TSQLQuery; begin with ServerComandos do begin active := false; sql.Add(SQ); ExecSQL; active := true; // Creo que te sobra esta línea end; result := ServerComandos; end;
function TServerMethods1.GetServerComandos(SQ: string): TSQLQuery; begin with ServerComandos do begin active := false; sql.Add(SQ); ExecSQL; active := true; // Creo que te sobra esta línea end; result := ServerComandos; end;