problema con funciones

[anubis]

hola de nuevo, tengo un medio problema con las funciones (al final voy usando casi todo el armamento de delphi, pero poco a poco)

Cree una funcion

Código Delphi [-]
function tfhabitacion.verificaanadircliente(Key:word):word;

se supone que le entra el valor key y me devuelve un valor word, en si mismo es el mismo key.
El programa me funciona pero me da un aviso:
[Warning] habitacion.pas(200): W1035 Return value of function 'Tfhabitacion.verificaanadircliente' might be undefined

pero no se como resolverlo.
gracias

O mejor me explico lo que necesitaba por si se os ocurre como resolverlo.

tengo esta procedure
procedure Tfhabitacion.anadirnomKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

ahi recoge el key, pero dentro de esa procedure he realizado otra llamada a otra procedure, pero ya no me conserva el valor key (estoy partiendo el programa en procedures tal y como recomendabais) y para eso he creado la funcion anterior, para conservar el valor del key, imagino que el aviso me sale porque en esa funcion no hay asignacion del valor key, es asi?.

[[egostar]]

Ya la declaraste en el Type de TFHabitacion??

algo asi

Código Delphi [-]
type
  TFHabitacion = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    function verificaanadircliente(Key:word):word;
  public
    { Public declarations }
  end;

Salud OS.

[roman]

[Warning] habitacion.pas(200): W1035 Return value of function 'Tfhabitacion.verificaanadircliente' might be undefined

Lo que esto indica es que tu función no está regresando un valor, no al menos en todos los casos, de manera que usar la función es riesgoso. Debes revisar el código y asegurarte que siempre hay un valor de regreso.

Por ejemplo,

Código Delphi [-]
function divide(a, b: Integer): Integer;
begin
  if b <> 0 then
    Result := a div b;
end;

te generará esa advertencia, porque la función no regresa nada cuando b = 0.

// Saludos

[[seoane]]

Una costumbre que tengo al crear funciones es asignarle un resultado por defecto en la primera linea, así me aseguro de que la función no devuelve nada inesperado. Es algo personal, pero me atrevo a recomendarlo:

Siguiendo el ejemplo de roman:

Código Delphi [-]
function divide(a, b: Integer): Integer;
begin
  // Así nos aseguramos de devolver siempre un resultado
  Result:= 0;
  if b <> 0 then
    Result := a div b;
end;

[anubis]

gracias, asi si funciona, son cositas que van saliendo.

[roman]

Empezado por seoane

Una costumbre que tengo al crear funciones es asignarle un resultado por defecto en la primera linea, así me aseguro de que la función no devuelve nada inesperado. Es algo personal, pero me atrevo a recomendarlo:

No está mal. El problema es que así te expones a otro warning:

Value assigned to 'divide' never used

si, por ejemplo, haces:

Código Delphi [-]
function divide(a, b: Integer): Integer;
begin
  Result := 0;

  if b <> 0 then
    Result := a div b
  else
    raise Exception.Create('Regrese a la primaria');
end;

Aunque menos "dañino", no me gusta que aparezca ninguna advertencia.

// Saludos

[[seoane]]

Bueno roman, yo empiezo poniendo esa linea, luego si la cosa se tuerce se quita y en paz

[jhonny]

No has definido el valor resultante de la función, colocare un ejemplo muy sencillo de lo que puedes hacer:
1:

Código Delphi [-]
 
function tfhabitacion.verificaanadircliente(Key:word):word;
begin
  //...
  //...
  Result := key;
end;

o

2:

Código Delphi [-]
 
function tfhabitacion.verificaanadircliente(Key:word):word;
begin
  //...
  //...
  verificaanadircliente := key;
end;

Espero te sirva .