comparar do tedit.text
 

hola amigos bueno miren tengo 2 edit.text y hago lo sig

if edit1.text>edit2.text then
showmessage 'es menor'

pero no me lo compara como podria hacer?

Hola
Pues no veo el problema, salvo los parentesis hace la comparacion:

Código Delphi [-]
if edit1.text > edit2.text then
  showmessage('es menor');

Saludos

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

Hola
La pregunta que se me ocurre es:
El Edit2 carga el dato de la tabla, este dato, segun entiendo viene acompañado del signo de $ ????
Si es asi, el edit 3 no lo tiene, por ende la comparacion la hace pero nunca hara la operacion.
Me equivoco?
Saludos

Hola

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:= StringReplace(Query1.FieldByName('Monto').asstring, '$', '', [rfReplaceAll]);

f:= StringReplace(dbedit12.Text, '$', '', [rfReplaceAll]);
g:= StringReplace(dbedit10.Text, '$', '', [rfReplaceAll]);
edit3.Text:= FloatToStr(StrToFloat(f) + StrToFloat(g));

if edit2.text < edit3.text then
showmessage('todavia debe cuotas');

Saludos

¿Puedo preguntar el porqué de comparar texto si lo que se busca comparar números? :confused:

A mi modo de ver se están haciendo conversiones innecesarias. Directamente que se comparen números y no estar convirtiendo de un tipo a otro.

Saludos,

recien lo probe pero tampoco me tira el mensaje perdon por no se mas extenso pero nose porq la razon de no hacer la operacion
bien probare pasarlo a integer

Hola
Sigo insistiendo con la pregunta:
El edit2 muestra el dato con el signo de Dolares ($) ????.
El edit3 veo que no, pero lo tiene?.
Saludos
PD: Delphius: Me imagino que hace la comparacion en los edit ya que es ahi donde se muestran los datos.

Esto es simple, las cadenas se ordenan de esta forma:

'1 '
'10'
'2 '
'3 '
'4 '

Y si tuvieras esto:

edit2.text = '2 '
edit3.text = '10'

Al hacer la comparación, lo hace correctamente ya que '2 ' NO es menor a '10'

Como te dice Delphius, usa mejor campos numericos.

Salud OS

los edits no muestran el signo pesos gracias
tendria que sumarlos en $ pero no se si se puede
h:= FloatToStr(StrToFloat(f) + StrToFloat(g));
esta operacion funciona pero lo q tendria hacer es comparar
con el edit2 y ahi ya no funciona, es decir los flotantes los suma, tendria hacer
w:=float tostr(edit2.text)?

Hola
Como te han dicho, la mejor manera es cambiar el dato de string a float.
Simplemente:

Código Delphi [-]
var a,b: real;
begin
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;

f:= StringReplace(dbedit12.Text, '$', '', [rfReplaceAll]);
g:= StringReplace(dbedit10.Text, '$', '', [rfReplaceAll]);
edit3.Text:= FloatToStr(StrToFloat(f) + StrToFloat(g));

a:= StrToFloat(edit2.text);
b:= StrToFloat(edit3.text);

if a < b then
showmessage('todavia debe cuotas');

Saludos

bueno muchas gracais a todos , ahora si hizo la comparacion gracias de verdad, igualmenete segire preguntando espero le sirva a lguien mas saluudos

Hola
Pues a mi me sirvio la lección de mi amigo Egostar, no sabia que las cadenas venían asi:
Hice la prueba (como buen escéptico :D) y efectivamente.
Pero siempre digo; Delphi es tan bueno que ayuda en todo.;)
Saludos

Es que en caso de caracteres el orden es el de la tabla ascii:

Los números van primero, luego las letras mayúsculas y después las letras minúsculas.

Es por lo comentado por egostar, que desde la epoca del TP y del BC++, me quedó la costumbre de rellenar los códigos con ceros a la izquierda para evitar esos 'desordenes' numéricos...

A por por cierto, acertada observación la de Delphius.

Saludos. :)

bien ahora el problema es que el campo "ctrlconcepto" es integer y en esta parte de asignacion max:= Query1.FieldByName('maximo').AsString
no permite integer sino .string y .value. se que si lo denomino .value ahi que pasarlo al tipo q quiero. como seria?

Código Delphi [-]
query1.SQL.Clear;
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso =IntToStr( x ) and concepto=IntToStr(dbedit9.text)' ;
query1.Active:=true;
max:= Query1.FieldByName('maximo').AsString;

asi como esta me tira error supongo porq max es integer, bien lo declare integer

max:= inttostr(query1.fieldbyname('maximo').value);

digo ya que el campo "maximo" es integer

Hola

Código Delphi [-]
query1.SQL.Clear;
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso =  '+ IntToStr( x )+'  and concepto = '+ IntToStr(dbedit9.text) ;
query1.Active:=true;
max:= Query1.FieldByName('maximo').Value;

Saludos

me tira error de capability not suported.
que qiere decir cuando pongo al final .value?
quizas sea algo en la consulta pero el error me lo marca en la asignacion al MAX
no me tira error en la ocnsulta:

Código Delphi [-]
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas  where alucurso =IntToStr( x ) and concepto=IntToStr(dbedit9.text)' ;

Hola
La variable max que es ????
Saludos

la variable max es integer pero al parecer es en la cinsulta de esta manera funciona

Código Delphi [-]
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso ='+IntToStr( x )

pero al tomar 2 campos como referencia ya no, es que el otro cmapo necesito agregarlo depues ese campo es tambien integer, sino tendre que pasarlo a un variable X como hice antes

strtoint(dbedit11.text)

Código Delphi [-]
query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso ='+IntToStr( x )  and conceptoctrl = strtoint(dbedit11.text)

aca nose si esta bien