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

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:

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.
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:

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


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