Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-08-2017
jolunavi jolunavi is offline
Registrado
 
Registrado: ago 2017
Posts: 8
Poder: 0
jolunavi Va por buen camino
W1035 Return value of function 'TDataModule1.OpenConnection' might be undefined

por favor alguien me podria decir por que sigue dando este warning?
Código:
[dcc32 Warning] Modulos.pas(102): W1035 Return value of function 'TDataModule1.OpenConnection' might be undefined
Código Delphi [-]
unit Modulos;

interface

uses
  System.SysUtils,
  System.Classes,
  FireDAC.Comp.DataSet,
  FireDAC.Comp.Client,
  FireDAC.DatS,
  FireDAC.DApt.Intf,
  FireDAC.DApt,
  FireDAC.Stan.Param,
  FireDAC.Stan.Def,
  FireDAC.Stan.Intf,
  FireDAC.Stan.Option,
  FireDAC.Stan.Error,
  FireDAC.Stan.Pool,
  FireDAC.Stan.Async,
  FireDAC.UI.Intf,
  FireDAC.Phys.Intf,
  FireDAC.Phys.MySQL,
  FireDAC.Phys.MySQLDef,
  FireDAC.Phys,
  FireDAC.VCLUI.Wait,
  Data.DB,
  FireDAC.Comp.UI;

type
  TDataModule1 = class(TDataModule)
    FDCon_DB:TFDConnection;
    FDQueryUsers:TFDQuery;
    FDPhysMySQLDriverLink1:TFDPhysMySQLDriverLink;
    FDGUIxWaitCursor1:TFDGUIxWaitCursor;
    procedure KonectarMySQL;
    function OpenConnection:Boolean;               ///////////////////////     ESTA DEFINIDO EN ESTA LINEA     ///////////////////////////
    procedure CloseConnection;


  private
    { Private declarations }
  public
    { Public declarations }

    StringaHostName,StringaDBName,StringaDBUser,StringaDBPass,StringaDBPort:String;
    intUID:integer;
    StringaUsername:String;
    StringaFullName:String;
  end;


var
  DataModule1: TDataModule1;


implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}



procedure TDataModule1.KonectarMySQL;
begin
    FDCon_DB:=TFDConnection.Create(Self);

    try
        FDCon_DB.DriverName:= 'MySQL';
        FDCon_DB.Params.Add('Server='   + StringaHostName );
        FDCon_DB.Params.Add('Database=' + StringaDBName );
        FDCon_DB.Params.Add('UserName=' + StringaDBUser );
        FDCon_DB.Params.Add('Password=' + StringaDBPass );
        FDCon_DB.Params.Add('Port='     + StringaDBPort );

        FDCon_DB.LoginPrompt:= False;
        FDCon_DB.Connected:= True;

        FDQueryUsers:=TFDQuery.Create(Self);
        FDQueryUsers.Connection:=FDCon_DB;

    except
        //
    end;
end;



Function TDataModule1.OpenConnection:Boolean;                    ////////////////       WARNING HERE       ////////////////
///var ConnString:String;
begin
    try
        if FDCon_DB.Connected = True then
            begin
                result :=True;
            end
        else
            begin
                KonectarMySQL;
            end;
    except
        result :=False;
    end;
end;


procedure TDataModule1.CloseConnection;
begin
    FDQueryUsers.Close;
    FDCon_DB.Close;
end;
end.

creo que no deberia hacer caso a esta situacion.
pero es un poco molesto, ya que esta siempre alli.
aparece en la zona de los mensajes.
Código:
[dcc32 Warning] Modulos.pas(102): W1035 Return value of function 'TDataModule1.OpenConnection' might be undefined
Success
Elapsed time: 00:00:00.6
...asi que decidi hacer la pregunta a los profesionales




por otro lado alguien me podria decir que teclas debo pulsar para que el editor haga aparecer la "ventanita de ayuda"? o algun metodo de ayuda de escritura.
yo cierro y vuelvo a abrir para qe el editor me diga los errorres (he googleado pero parece que con "ventanita" ...nada relacionado a delphi )

puedo decir que esta "ventanita" aparece cuando escribo un "."
ejemplo:
TDataModule1.OpenConnection ....junto con una lista de todas las opciones



Muchas Gracias de antemano !!

PS: [usando RAD Studio 10.2 ]
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Fatal error: Call to undefined function ibase_connect() mRoman PHP 7 10-02-2015 10:07:15
Error de undefined index ebanibaldo PHP 5 19-10-2012 02:11:02
Undefined service gds_db/tcp StartKill Firebird e Interbase 7 10-05-2012 00:15:53
Fatal error: Call to undefined function gmp_mod() alquimista_gdl PHP 5 24-09-2008 21:36:53
Return value of function might be undefined momo OOP 5 27-06-2006 23:20:44


La franja horaria es GMT +2. Ahora son las 22:22:08.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi