Código Delphi
[-]
1 Function TDataModule1.OpenConnection:Boolean; 2 begin
3 try 4 if FDCon_DB.Connected = True then 5 begin
6 result :=True;
7 end
8 else
9 begin 10 KonectarMySQL;
11 end; 12 except
13 result :=False;
14 end;
15 end;
¿Y qué dice el mensaje de aviso?
Cita:
Return value of function 'TDataModule1.OpenConnection' might be undefined
|
¿Lo entiendes ahora?