[dec]

Hola,

Estamos de acuerdo egostar. Pero también puede verse como distintas formas de codificación... porque una cosa es lo mismo que la otra al fin y al cabo:

Código Delphi [-]
function TForm1.algo(dato:word):integer;
begin
  case dato of
     0 : Result := 1;
     1 : Result := 0;
     else Result := -1; // Else
  end;
end;

Código Delphi [-]
function TForm1.algo(dato:word):integer;
begin
  Result := -1;
  case dato of
     0 : Result := 1;
     1 : Result := 0;
  end;
end;

Ignoro si una forma es más correcta, elegante o aconsejable que la otra, pero, las dos formas son posibles y al cabo se consigue lo mismo... Así que es cuestión de la costumbre de uno, o de si se han establecido ciertas normas al respecto,... qué sé yo.

Yo no abogo ni por una forma ni por otra. Creo que esto significa que es cuestión de gustos... en este caso creo que no me equivoco si digo esto, vamos.