Ayuda con sistemas de prestamo

[Jpopular]

Hola a todos....

Después de durar tanto sin entrar decidí buscar de nuevo la ayuda de este foro para que me ayuden a completar un pequeño sistema de préstamo que tengo que entregar para HOY en la noche.

Es para un trabajo que el profesor me pide un sistema de préstamo cencillo con captura de datos del cliente y generarle un área donde se pueda calcular el préstamo dependiendo el monto que pida.

La parte de la captura de datos ya la tengo hecha pero no la parte del préstamo asociada al cliente, lo que pasa es que mis conocimientos de delphi 7 no están muy depurados y en algunas cosas como que se me bloquea el cerebro....

Buscando en el foro encontré que alguien publico hace mucho un ejemplo de sistema de préstamo, pero cuando lo busco en la sección de ejemplos no lo encuentro.

bueno eso es todo, espero una alguna ayuda de parte de alguna persona aquí en el foro. y gracias desde ahora.

See yaa...

[Neftali [Germán.Estévez]]

¿Tienes alguna duda concreta en la que te podamos ayudar o sólo buscas el código hecho?

[Casimiro Notevi]

je, je... se nota que estamos en época de exámenes, hay muchos visitantes esperando que le hagan su trabajo y además algunos esperan a última hora, "lo necesito para HOY"
Está claro que en el futuro se dedicarán a otra cosa, porque la programación no la van a aprender así

[Ñuño Martínez]

Uyuyuy... Preveo que la cosecha de calabazas de este va a ser superior a la del año pasado.

Yo ya me he resignado y no pienso renovar la matrícula de la universidad. Aparte de lo harto que estoy, me han convencido de que no sirve de mucho.

[sergiovalp]

Empezado por Jpopular

Hola a todos....

.....Buscando en el foro encontré que alguien publico hace mucho un ejemplo de sistema de préstamo, pero cuando lo busco en la sección de ejemplos no lo encuentro.

See yaa...

si, y también hay una sección donde miembros del club pueden ir a dar el examen por tí, y otra además para cuando el examen sea HOY mismo.

[Aleca]

Empezado por Casimiro Notevi

je, je... se nota que estamos en época de exámenes, hay muchos visitantes esperando que le hagan su trabajo y además algunos esperan a última hora, "lo necesito para HOY"
Está claro que en el futuro se dedicarán a otra cosa, porque la programación no la van a aprender así

me sacaste las palabras de la boca (va del teclado) esta mañana estaba pensando lo mismo.

[Jpopular]

Hola de nuevo...........

Primeramente gracias por responder, y si, estoy algo "apurado" por que es un trabajo que el profesor dejo para hoy pero por problemas energéticos en mi casa no pude avanzar con esto el fin de semana.

Se que en las normas no se puede estar haciéndoles "tareas" a las personas que las piden, por lo que me disculpo por esto.

Pero como les decía en el primer post, el profesor solo quiere tres cosas que haga el programa, y son captura de datos, calculo del préstamo y despliegue de resultados. En la primera parte ya esta hecho, pero cuando intento hacer el segundo me presentan errores que no he podido resolver, les dejo la parte del problema para ver si me dan una mano:

 
procedure TForm1.Button2Click(Sender: TObject);
var
vprestamo,ano1:integer;
const
int1=0.22;
int2=0.18;
begin
vprestamo:=strtoint(edit1.Text);
if vprestamo <= 50000 then
ano1:=vprestamo * int1
edit2.Text:=inttostr(ano1)
else
ano1:=vprestamo * int2;
edit2.text:=inttostr(ano1);
end;
end.

Se que esta mal hecho y por eso quisiera que me den una mano.

Gracias por todo....

See yaa...

[sergiovalp]

Te faltaron los begin / end y el tipo de dato real.

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
vprestamo:integer;
ano1:real;
const
int1=0.22;
int2=0.18;
begin
  vprestamo:=strtoint(edit1.Text);
  if vprestamo <= 50000 then
  begin
    ano1:=vprestamo * int1;
    edit2.Text:=format('%f8,2',[ano1]);
  end
  else
  begin
    ano1:=vprestamo * int2;
    edit2.Text:=format('%f8,2',[ano1]);
  end;
end;

atte
Sergio

[Aleca]

otra opcion

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  vprestamo,ano1: Currency;
const
  int1=0.22;
  int2=0.18;
begin
  vprestamo:=strtoint(edit1.Text);
  if vprestamo <= 50000 then
  begin
    ano1:=vprestamo * int1;
    edit2.Text:=Floattostr(ano1);
  end
  else
  begin
    ano1:=vprestamo * int2;
    edit2.text:=Floattostr(ano1);
  end;
end;

[Neftali [Germán.Estévez]]

Empezado por Jpopular

Hola de nuevo.

En la primera parte ya esta hecho, pero cuando intento hacer el segundo me presentan errores que no he podido resolver, ...

Hola.

Ves, así las cosas ya se ven de otra manera (y las respuestas también son diferentes...).

Ya te han comentado un par de cosas, tal vez con eso se solucione, de todas formas ayudará que nos digas exactamente, cuales son los errores que te salen.

Es vital para saber qué corregir.

Un saludo.