Obtener un dígito en una posición

[ecfisa]

Hola andrecuellar.

¿ Ya revisaste los enlaces que hay al pié de esta página ?

Saludos

[andrecuellar]

Empezado por ecfisa

Hola andrecuellar.

¿ Ya revisaste los enlaces que hay al pié de esta página ?

Saludos

no lo había visto, pero las soluciones que dan son con manejo de cadenas (no es con manejo de cadenas tampoco que se debe hacer), o también se las dan con ciclos repetitivos, que si pudiera usarlos entonces ya lo habría hecho, de todas maneras gracias

[ecfisa]

Hola.

Fijate si te sirve de este modo:

Código Delphi [-]
function DigitAtPos(Number: LongInt; Position: Byte): Integer;
var
  len: Integer;
begin
  Number := Abs(Number);
  len    := Trunc(ln(Number)/ln(10))+1;
  if (Number = 0) or (Position <= 0) or (Position > len) then
    Result := -1
  else
  begin
    Position := len - Position + 1;
    Result   := Number div Trunc(Exp(Ln(10)*(Position-1))) mod 10;
  end;
end;

Uso:

Código Delphi [-]
...
  Writeln(DigitAtPos(-1248935, 6)); //  -> 3

Saludos