Arreglo

[pepesoft]

Hola amigos, necesito que me ayuden con esto.
Tengo 3 números distintos

22
50
10

Lo que quiero es fusionarlos a y mostrarlos en una variable Integer, así = 225010

Código Delphi [-]
var
  jNum :integer;
begin
  22
  50
  10

  jNum := IntToStr(22) + IntToStr(50) + IntToStr(10);

  Result := 225010;

end;

espero su ayuda gracias.

[ecfisa]

Hola.

Supongo que podrías hacer:

Código Delphi [-]
var
  jNum :integer;
begin
  jNum := 22 * 10000 + 55 * 100 + 10;
  Result := jNum;
end;

Saludos

[pepesoft]

Gracias maestro ecfisa,

lo que quiero es que, estos 3 resultados por así decirlo 22, 50 y 10. porque yo los obtengo por separado. quiero mostrarlos en una sola variable numérica
así 225010 todo junto y en ese orden.

[ecfisa]

Hola.

Empezado por pepesoft

Gracias maestro ecfisa,

lo que quiero es que, estos 3 resultados por así decirlo 22, 50 y 10. porque yo los obtengo por separado. quiero mostrarlos en una sola variable numérica
así 225010 todo junto y en ese orden.

Y eso es justamente lo que hace el código anterior, si deseas mostrarlo:

Código Delphi [-]
var
  jNum :integer;
begin
  jNum := 22 * 10000 + 55 * 100 + 10;  
  ShowMessageFmt('%d', [jNum]);   // Muestra: 225010
end;

O no estoy entendiendo la situación.

Saludos

[[ElKurgan]]

El código que has puesto te vale. Lo único que tienes que hacer es devolver la concatenación como número y ya está.

Suponiendo que recibas los tres números como parámetros de una función, este código valdría

Código Delphi [-]
function ConcatenarNumeros(num1, num2, num3: Integer): Integer;
var
  jNum :integer;
begin
   jNum := IntToStr(num1) + IntToStr(num2) + IntToStr(num3);

  Result := StrToIntDef(jnum, 0); // <---------

end;

Espero que eso sea lo que deseabas

Un saludo