Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Suma de Edit (https://www.clubdelphi.com/foros/showthread.php?t=85456)

Olenkaguilar 20-03-2014 00:23:21
Suma de Edit
 
Buenas tarde mi consulta es la siguiente tengo 3 Edit, al ingresar un (valor en el Edit1 * valor en el Edit2)+70 = Edit3, osea que automaticamente me aparesca el resultado en el Edit3. Bueno lo intenté al compilar me da un error Project Project1.exe raised exception class EconvertError with Message''''is not a valide integer value., acepto los errores y me funciona bien pero no puedo sumarle el 70

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
 opcion: integer;
begin
 opcion:= StrToInt(Edit1.Text);

 case opcion of
  1: begin
    Edit3.Text := FloatToStr(0.2 * StrToFloatDef(Edit2.Text,0)); // aquí quiero sumarle 70
  end;
  2: begin
    Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    3: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    4: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    5: begin
    Edit3.Text := FloatToStr(0.68 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    6: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    7: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    8: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    9: begin
    Edit3.Text := FloatToStr(0.68 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    10: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    11: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    12: begin
    Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    13: begin
    Edit3.Text := FloatToStr(0.25 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    14: begin
    Edit3.Text := FloatToStr(0.15 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    15: begin
    Edit3.Text := FloatToStr(0.05 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    16: begin
    Edit3.Text := FloatToStr(0.15 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    17: begin
    Edit3.Text := FloatToStr(0.2 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    18: begin
    Edit3.Text := FloatToStr(0.25 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    19: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    20: begin
    Edit3.Text := FloatToStr(0.55 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    21: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    22: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    23: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    24: begin
    Edit3.Text := FloatToStr(0.65 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    25: begin
    Edit3.Text := FloatToStr(0.67 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    26: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    27: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    28: begin
    Edit3.Text := FloatToStr(0.45 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    29: begin
    Edit3.Text := FloatToStr(0.28 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    30: begin
    Edit3.Text := FloatToStr(0.18 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    31: begin
    Edit3.Text := FloatToStr(0.1 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
    32: begin
    Edit3.Text := FloatToStr(0.1 * StrToFloatDef(Edit2.Text,0));// aquí quiero sumarle 70
  end;
 end;

end;

end.

kapcomx 20-03-2014 00:27:52
form create
 
te da ese error por que lo estas programando en el evento form create

radenf 20-03-2014 12:30:42
Hola Olenkaguilar:

Para corregir tu problema te sugiero que en vez de utilizar un Edit como Edit1 uses un SpinEdit de la paleta samples ( si quieres lo puedes llamar Edit1 y así no necesitas modificar tu código) y le asignes como minvalue 1 y como maxvalue 32, que son tus opciones y que asignes tu código además al evento OnChange del SpinEdit.
Para sumar 70 sólo debes incluir +70 en el valor del Edit2, de la siguiente manera:

Código Delphi [-]
Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0)+70);

Ojalá te haya podido ayudar

Salu2

ecfisa 20-03-2014 23:17:53
Hola Olenkaguilar.

Lo que te sugiere radenf es muy buena opción, sobre todo por que te ahorras controlar los valores de un edit.

Y para organizár y reducir el código podes hacer:
Código Delphi [-]
//(*)
procedure TForm1.FormCreate(Sender: TObject);
begin
  with SpinEdit1 do
  begin
    MinValue:= 1;
    MaxValue:= 32;
    Increment:= 1;
    OnChange:= SpinAndEditChange;
  end;
  Edit2.Text:= '1'; // o cero...
  Edit2.OnChange:= SpinAndEditChange;
end;

procedure TForm1.SpinAndEditChange(Sender: TObject);
const
   VEC: array[1..32] of Single =
   (0.2 , 0.35, 0.5 , 0.6 , 0.68, 0.7 , 0.7 , 0.7 ,
    0.68, 0.6 , 0.5 , 0.35, 0.25, 0.15, 0.05, 0.15,
    0.2 , 0.25, 0.5 , 0.55, 0.6 , 0.6 , 0.6 , 0.65,
    0.67, 0.6 , 0.5 , 0.45, 0.28, 0.18, 0.1 , 0.1);
begin
  Edit3.Text:= FormatFloat('0.000', (VEC[SpinEdit1.Value]*StrToFloatDef(Edit2.Text, 0))+70);
end;

(*) Todo el código del evento OnCreate lo podes evitar configurando las propiedades en tiempo de diseño con el Object Inspector.

Saludos :)

Olenkaguilar 21-03-2014 10:05:33
Hola de nuevo
 
Muchas a radenf y a ecfisa, lo que me indico randenf está bien, pero yo cometí un error en dar mi code, es por eso que me perdí al ver el code de ecfisa. vuelvo a colocar mi código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   with SpinEdit1 do
  begin
    MinValue:= 1;
    MaxValue:= 32;
    Increment:= 1;
    OnChange:= SpinAndEditChange;
  end;

  Edit2.OnChange:= SpinAndEditChange;
end;

procedure TForm1.SpinAndEditChange(Sender: TObject);
var                                                    //
 opcion: integer;
begin                                                 //
 opcion:= StrToInt(SpinEdit1.Text);

 case opcion of
  1: begin
    Edit3.Text := FloatToStr(0.2 * StrToFloatDef(Edit2.Text,0)+70);
  end;
  2: begin
    Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    3: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    4: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    5: begin
    Edit3.Text := FloatToStr(0.68 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    6: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    7: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    8: begin
    Edit3.Text := FloatToStr(0.7 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    9: begin
    Edit3.Text := FloatToStr(0.68 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    10: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    11: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    12: begin
    Edit3.Text := FloatToStr(0.35 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    13: begin
    Edit3.Text := FloatToStr(0.25 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    14: begin
    Edit3.Text := FloatToStr(0.15 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    15: begin
    Edit3.Text := FloatToStr(0.05 * StrToFloatDef(Edit2.Text,0)+70);
  end;
    16: begin
    Edit3.Text := FloatToStr(70 - 0.15 * StrToFloatDef(Edit2.Text,0));
  end;
    17: begin
    Edit3.Text := FloatToStr(70 - 0.2 * StrToFloatDef(Edit2.Text,0));
  end;
    18: begin
    Edit3.Text := FloatToStr(70 - 0.25 * StrToFloatDef(Edit2.Text,0));
  end;
    19: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    20: begin
    Edit3.Text := FloatToStr(70 - 0.55 * StrToFloatDef(Edit2.Text,0));
  end;
    21: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    22: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    23: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    24: begin
    Edit3.Text := FloatToStr(70 - 0.65 * StrToFloatDef(Edit2.Text,0));
  end;
    25: begin
    Edit3.Text := FloatToStr(70 - 0.67 * StrToFloatDef(Edit2.Text,0));
  end;
    26: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    27: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    28: begin
    Edit3.Text := FloatToStr(70 - 0.45 * StrToFloatDef(Edit2.Text,0));
  end;
    29: begin
    Edit3.Text := FloatToStr(70 - 0.28 * StrToFloatDef(Edit2.Text,0));
  end;
    30: begin
    Edit3.Text := FloatToStr(70 - 0.18 * StrToFloatDef(Edit2.Text,0));
  end;
    31: begin
    Edit3.Text := FloatToStr(70 - 0.1 * StrToFloatDef(Edit2.Text,0));
  end;
    32: begin
    Edit3.Text := FloatToStr(0.1 * StrToFloatDef(Edit2.Text,0)+70);
  end;


 end;  //

end;
end.

Osea en algunos les estoy agregando 70 y en otros al 70 le estoy restando( por ejemplo en la opción 31 le estoy restando al 70 y en la opción 32 le estoy agregando 70)
Ahora le eh puesto 2 radiobuttons. quisiera que al iniciar el programa siempre este seleccionado el radiobutton1 y que ejecute el código de arriba y si cambio al radiobutton2 ejecute este código( es lo mismo si no que cambia a lo que estado agregando 70, al 70 ahora le estan restando y viceversa):

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   with SpinEdit1 do
  begin
    MinValue:= 1;
    MaxValue:= 32;
    Increment:= 1;
    OnChange:= SpinAndEditChange;
  end;

  Edit2.OnChange:= SpinAndEditChange;
end;

procedure TForm1.SpinAndEditChange(Sender: TObject);
var                                                    //
 opcion: integer;
begin                                                 //
 opcion:= StrToInt(SpinEdit1.Text);

 case opcion of
  1: begin
    Edit3.Text := FloatToStr(70 - 0.2 * StrToFloatDef(Edit2.Text,0));
  end;
  2: begin
    Edit3.Text := FloatToStr(70 - 0.35 * StrToFloatDef(Edit2.Text,0));
  end;
    3: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    4: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    5: begin
    Edit3.Text := FloatToStr(70 - 0.68 * StrToFloatDef(Edit2.Text,0));
  end;
    6: begin
    Edit3.Text := FloatToStr(70 - 0.7 * StrToFloatDef(Edit2.Text,0));
  end;
    7: begin
    Edit3.Text := FloatToStr(70 - 0.7 * StrToFloatDef(Edit2.Text,0));
  end;
    8: begin
    Edit3.Text := FloatToStr(70 - 0.7 * StrToFloatDef(Edit2.Text,0));
  end;
    9: begin
    Edit3.Text := FloatToStr(70 - 0.68 * StrToFloatDef(Edit2.Text,0));
  end;
    10: begin
    Edit3.Text := FloatToStr(70 - 0.6 * StrToFloatDef(Edit2.Text,0));
  end;
    11: begin
    Edit3.Text := FloatToStr(70 - 0.5 * StrToFloatDef(Edit2.Text,0));
  end;
    12: begin
    Edit3.Text := FloatToStr(70 - 0.35 * StrToFloatDef(Edit2.Text,0));
  end;
    13: begin
    Edit3.Text := FloatToStr(70 - 0.25 * StrToFloatDef(Edit2.Text,0));
  end;
    14: begin
    Edit3.Text := FloatToStr(70 - 0.15 * StrToFloatDef(Edit2.Text,0));
  end;
    15: begin
    Edit3.Text := FloatToStr(70 - 0.05 * StrToFloatDef(Edit2.Text,0));
  end;
    16: begin
    Edit3.Text := FloatToStr(0.15 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    17: begin
    Edit3.Text := FloatToStr(0.2 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    18: begin
    Edit3.Text := FloatToStr(0.25 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    19: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    20: begin
    Edit3.Text := FloatToStr(0.55 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    21: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    22: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    23: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    24: begin
    Edit3.Text := FloatToStr( 0.65 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    25: begin
    Edit3.Text := FloatToStr(0.67 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    26: begin
    Edit3.Text := FloatToStr(0.6 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    27: begin
    Edit3.Text := FloatToStr(0.5 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    28: begin
    Edit3.Text := FloatToStr(0.45 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    29: begin
    Edit3.Text := FloatToStr(0.28 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    30: begin
    Edit3.Text := FloatToStr(0.18 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    31: begin
    Edit3.Text := FloatToStr(0.1 * StrToFloatDef(Edit2.Text,0) + 70);
  end;
    32: begin
    Edit3.Text := FloatToStr(70 - 0.1 * StrToFloatDef(Edit2.Text,0));
  end;


 end;  //

end;
end.

Olenkaguilar 21-03-2014 10:30:16
Me olvidaba
 
En un SpinEdit no puedo agregar manualmente los números, me sale error al parecer no puede estar vacío

radenf 21-03-2014 12:23:43
En efecto, en el SpinEdit no puedes agregar números, solo puedes definir los valores mínimo, máximo y actual. Si su valor fuera nulo te volvería a aparecer el error inicial, por eso te sugerí utilizar un SpinEdit y no un Edit.
Respecto a que el RadioButton1 se encuentre activado al iniciar el programa basta con agregar lo siguiente:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioButton1.Checked:= True;
if RadioButton1.Checked = True then
begin
Tu Proceso;
end;
end;

Salu2

radenf 21-03-2014 13:34:15
Revisando el código que has puesto veo que estás asignando valores diferentes a dos instancias del mismo proceso TForm1.SpinAndEditChange, cosa que no se puede.
Te sugiero hacer lo siguiente, de acuerdo a lo que tú señalas:

- Colocar en tu Form 2 SpinEdit, en la misma posición y asignar los dos códigos diferentes, el que suma y el que resta, a cada uno de los SpinEdit.
- Colocar en tu Form 1 RadioGroup con 2 Items y asignarle el siguiente código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.ItemIndex:= 0;
end;

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
begin
SpinEdit1.BringtoFront
end
else
begin
SpinEdit2.BringtoFront;
end;
end;

Además para optimizar tu código te sugiero cambiar esto:

Código Delphi [-]
opcion:= StrToInt(SpinEdit1.Text);

por esto y te evitas una conversión:

Código Delphi [-]
opcion:= SpinEdit1.Value;

Espero haber entendido lo que quieres hacer y ojalá te sirva
Salu2


La franja horaria es GMT +2. Ahora son las 00:58:04.

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