Ayuda codigo de java a Delphi

[Alfonso Ramírez]

Saludos y hola a todos espero qu esten bien, bueno el asunto es que no se como hacer en Delphi lo que hice en java xD espero que me puedan ayudar un poco. adjunto el codigo de java.

Saludos y gracias de antemano por la atención y ayuda prestada.

//Programa que calcula los días vividos
import javax.swing.JOptionPane;
public class DiasVividos {

    public static void main(String[] args) {

        String edad =
            JOptionPane.showInputDialog(null, "Introduce tu edad");

                int numero1 = Integer.parseInt( edad );

                int multiplicacion = numero1 * 365;

                JOptionPane.showMessageDialog( null, "tu edad en días es"+multiplicacion,
                    "El detector de dias de poncho",JOptionPane.PLAIN_MESSAGE);
    }
}

[ecfisa]

Hola Alfonso.

No conozco Java pero creo entender que tu código pasado a Delphi es algo como:

Código Delphi [-]
procedure DiasVividos1;
var
  NacStr: string;
  NacInt: Integer;
begin
  NacStr:= InputBox('Introduce tu edad','Edad','');
  if TryStrToInt(NacStr, NacInt) then
    ShowMessage(Format('Tu edad en días es: %d',[NacInt*365]));
end;

También debo decirte que esa forma de calcular la cantidad de días desde el nacimiento no es exacta en absoluto, mejor sería:

Código Delphi [-]
uses DateUtils;

procedure DiasVividos2;
var
  NacStr: string;
  FNac: TDateTime;
begin
   NacStr:= InputBox('Introduce la fecha de nacimiento','Fecha','');
   if TryStrToDate(NacStr, FNac) then
     ShowMessage(Format('Tu edad en días es: %d',[DaysBetween(Date, FNac)]));
end;

Un saludo.

[Alfonso Ramírez]

Gracias por la pronta respuesta, a decir verdad unas cuantas palabras del codigo que has puesto no las entiendo, pero buscare sobre ellas. Y gracias por la correccion en la manera de calcular los dias vividos tratare de implementar eso en mi codigo de java.

Saludos y gracias por la ayuda.

ATTE: Alfonso Ramírez.

[cmm07]

Empezado por Alfonso Ramírez

Saludos y hola a todos espero qu esten bien, bueno el asunto es que no se como hacer en Delphi lo que hice en java xD espero que me puedan ayudar un poco. adjunto el codigo de java.

Saludos y gracias de antemano por la atención y ayuda prestada.

//Programa que calcula los días vividos
import javax.swing.JOptionPane;
public class DiasVividos {

    public static void main(String[] args) {

        String edad =
            JOptionPane.showInputDialog(null, "Introduce tu edad");

                int numero1 = Integer.parseInt( edad );

                int multiplicacion = numero1 * 365;

                JOptionPane.showMessageDialog( null, "tu edad en días es"+multiplicacion,
                    "El detector de dias de poncho",JOptionPane.PLAIN_MESSAGE);
    }
}

Código Delphi [-]
procedure DiasVividos;
var   
NacStr: string;  
numero, multiplicacion: Integer; 
begin   

  NacStr:= InputBox('Introduce tu edad','Edad',''); //equivalente a showInputDialog.

  numero := StrToInt(NacStr); // equivalente a Integer.parseInt el cual hace la conversion

  multiplicacion := numero * 365;

  ShowMessage('tu edad en días es :'+multiplicacion); //mas simple pero equivalente a showMessageDialog, si quieres algo más //elavorado usa MessageBox

end;