Ver Mensaje Individual
  #3  
Antiguo 14-09-2010
gonza_619 gonza_619 is offline
Miembro
 
Registrado: feb 2010
Posts: 157
Reputación: 15
gonza_619 Va por buen camino
bien el codigo es el sig:

Código Delphi [-]
query1.SQL.Clear;
Query1.sql.text:= 'Select sum(importe) as Monto from cobranzas where alucurso ='+IntToStr( x ) ;
query1.Active:=true;
Edit2.Text:= Query1.FieldByName('Monto').asstring;

//edit4.text:=floattostr(strtofloat(edit2.Text)+ StrToFloat(dbedit4.Text));
f:= StringReplace(dbedit12.Text, '$', '', [rfReplaceAll]);
g:= StringReplace(dbedit10.Text, '$', '', [rfReplaceAll]);
h:= FloatToStr(StrToFloat(f) + StrToFloat(g));
edit3.Text:=h;
if edit2.text < edit3.text then
showmessage('todavia debe cuotas');

me da todo bien menos la comparacion ya q no me tira el mensaje saludos
Responder Con Cita