¿Similar al Choose de Visual Basic?

[dec]

Hola,

¿No habría que comprobar si existe el índice en el Array Román?

PD. Acabo de probarlo, y, parece que si nos "salimos" con el índice, obtenemos valores "aleatorios", que, no termino de comprender... de todas formas me atrevo a proponer algo como esto:

Código Delphi [-]
function Choose(d: integer; values: array of Integer): Integer;
begin
  if Length(values) >= d then
    Result := values[d]
  else
    Result := -1;
end;

De esta forma, si el índice no existe, retornamos "-1"... y todavía así podría haber problemas, igual hay que levantar una excepción o algo así... ¿qué opináis?

[roman]

Podríamos poner:

Código Delphi [-]
{$R+}
function Choose(d: integer; values: array of Integer): Integer;
begin
  Result := values[d];
end;
{$R-}

// Saludos

[dec]

Hola,

Ah, amigo, pero, la elegancia es la elegancia.

[[Delphius]]

Hey roman, no me arruines el chiste
Jaja.

Inicialmente estuve pensando en tu idea, pero cuando estaba probandolo obtenía errores, que el parámetro no me lo reconocía alguna metida mal de dedo debía haber metido. Y bueno me enojé y metí esa cosa que debería ir a parar a código inútil.

Lo que si he notado con el código que expuse, es que me arrojaba un Warning diciéndome que la condición siempre se evaluaba a TRUE. La cosa es que ahora no me arroja dicha advertencia.

Saludos,

[roman]

Lo que a mi no me queda claro es para qué podría servir una función así. Creo que necesito un ejemplo.

// Saludos

[[Delphius]]

Empezado por roman

Lo que a mi no me queda claro es para qué podría servir una función así. Creo que necesito un ejemplo.

// Saludos

¿Para acceder a una posición de un array?
La verdad es que tienes razón, mucho sentido no tiene... yo diría que es mejor ir a secas, y leerla así:

Código Delphi [-]
algo := miarray[d]

Sería bueno que Iron nos comentase lo que busca con todo esto.

Saludos,

[jconnor82]

Hola a todos...

Segun entendi, lo que quiere es obtener el primer numero del arreglo q empieze con d

Código Delphi [-]
function Choose(D: Integer; Values: array of Integer): Integer;
var
  I: Integer;
  sD, sValue: string;
begin
  Result := -1;

  sD := IntToStr(D);
  for I := 0 to High(Values) do
  begin
    sValue := IntToStr(Values[i]);

    if Pos(sD, sValue) = 1 then
    begin
      Result := Values[i];
      Break;
    end;
  end;
end;