Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Buscar en los Foros
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Mostrando resultados del 1 al 3 de 3
La búsqueda tomó 0,00 segundos.
Buscar: Mensajes Hechos Por: ArdiIIa
Foro: OOP 12-08-2007
Respuestas: 17
Visitas: 8.139
Escrito Por ArdiIIa
Son funciones muy prácticas para evitar...

Son funciones muy prácticas para evitar errores.
Lo normal es ponerlo con algún número negativo para comprobar...

Ejemplo

If StrToIntDef(Edit1.Text,-1) = -1 then Valor_Incorrecto
Foro: OOP 12-08-2007
Respuestas: 17
Visitas: 8.139
Escrito Por ArdiIIa
Se me han adelantado con el DEF

Se me han adelantado con el DEF
Foro: OOP 12-08-2007
Respuestas: 17
Visitas: 8.139
Escrito Por ArdiIIa
A ver si lo resumimos: Edit1 y Edit2 en su evento...

A ver si lo resumimos:
Edit1 y Edit2 en su evento onChange apuntan al mismo procedure: SUMA.

procedure TForm1.Suma(Sender: TObject);;
begin
Edit3.Text := IntToStr( StrToIntDef(Edit1.Text,0) +...
Mostrando resultados del 1 al 3 de 3

 
Saltar a Foro

La franja horaria es GMT +2. Ahora son las 10:42:47.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi