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; procedure CloseConnection;
private
public
StringaHostName,StringaDBName,StringaDBUser,StringaDBPass,StringaDBPort:String;
intUID:integer;
StringaUsername:String;
StringaFullName:String;
end;
var
DataModule1: TDataModule1;
implementation
{$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; 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 ]