Delphi 5 errores en u subprograma

[jhonny]

Bueno, no es exactamente un Error, es un Warning... el compilador a encontrado que en tu función hace falta asegurar el hecho de que ella te devuelva siempre un valor y por eso te muestra dicha precaución.

Por ejemplo, ¿Que pasaría si alguien coloca como parametro un valor que este fuera del rango del 0..9?, por ejemplo el 1000, seguramente dicha función te devolvera el número que "caiga" luego de pasar 1000 veces evaluando opcion por opcion (La numero 1000 sera tu resultado, en este caso el 8).

Como solucionar este "problemita", asegurandonos que esta función te devuelva un valor "fijo" en caso de que el parametro no tenga un valor que este dentro de ese rango 0..9, asi por ejemplo:

Código Delphi [-]
FUNCTION f(Fila:integer):char;
BEGIN
  CASE Fila of
    0: f:='0';
    1: f:='1';
    2: f:='2';
    3: f:='3';
    4: f:='4';
    5: f:='5';
    6: f:='6';
    7: f:='7';
    8: f:='8';
    9: f:='9';
  else
    f := ' '; //<--- Este y el else anterior son el cambio .
  end; {case}
END;{Resultunction Resultila}

[tuflotas]

ahora lo que si que me salta es un error cuando hago la asignacion para la function

Es decir yo en mi codigo pongo:

f:=fila; que la funcion f use fila, puesme dice [error] Ubarquitos.pas (142) : Not enought actual parameters

[jhonny]

Empezado por tuflotas

ahora lo que si que me salta es un error cuando hago la asignacion para la function

Es decir yo en mi codigo pongo:

f:=fila; que la funcion f use fila, puesme dice [error] Ubarquitos.pas (142) : Not enought actual parameters

Lo que dice es que no le estas asignando un parametro a la función f, supongo que lo que quieres hacer es, por ejemplo:

Código Delphi [-]
fila := f(1);

[tuflotas]

es que el valor de fila lo saco de un random, es decir

fila:=random(10); {se calcula el punto de partida de la fila}
columna:=random(10); {y el de la columna}
c:=columna; {y se traspasan a char}
f:=fila;

los subprogramas son f y c

[tuflotas]

ya lo entendi, jope, no pensaba que estuviera tan oxidado en esto ...

[jhonny]

Otra cosa, no se que pretendes con dicha función, pero si lo que quieres es convertir de numerico a caracter, puedes lograr ese efecto usando la función IntToStr que viene con delphi...