Guardar variables
Hola experto estoy trabajando con variables pero no logro guardar una mira ejemplo:
Estoy haciendo un calculo a partir de la entrada de un dato en un edit que lo multiplico por una constante, este aparecerá en otro edit y eso es lo que quiero guardar como variable par usarla más adelante .
Ayudame, saludos
Estoy haciendo un calculo a partir de la entrada de un dato en un edit que lo multiplico por una constante, este aparecerá en otro edit y eso es lo que quiero guardar como variable par usarla más adelante .
Ayudame, saludos
1 respuesta
Respuesta de diggital2002
1
Pues hay dos formas de guardar variables: públicas y privadas.
Las primeras te sirven para que tus variables puedan ser utilizadas más allá del form. Y las segundas pueden ser utilizadas en cualquier parte del form.
Al inicio de cada form encontrarás esto:
private
{ Private declarations}
public
{ Public declarations }
end;
Lo que yo hago es colocar ahí mis variables. Por ejemplo para tu caso podrías declarar tu variable así:
private
mivariable: Integer;
y dentro de tu función (la que me pides) lo que harías sería esto:
mivariable = StrToInt(Edit1.txt) * constante;
Edit2.txt = IntToStr(mivariable);
Por decir que esa fuera la función.
Haz la prueba puedes llamar de cualquier parte del form a esa variable.
Si es que deseas que la variable puedas utilizarla en otro form lo único que harías es:
miVar2 := Form1.mivariable;
Siempre y cuando hayas declarado "mivariable" en "public".
Espero te haya servido de ayuda. Cualquier cosa no dudes en preguntar.
Las primeras te sirven para que tus variables puedan ser utilizadas más allá del form. Y las segundas pueden ser utilizadas en cualquier parte del form.
Al inicio de cada form encontrarás esto:
private
{ Private declarations}
public
{ Public declarations }
end;
Lo que yo hago es colocar ahí mis variables. Por ejemplo para tu caso podrías declarar tu variable así:
private
mivariable: Integer;
y dentro de tu función (la que me pides) lo que harías sería esto:
mivariable = StrToInt(Edit1.txt) * constante;
Edit2.txt = IntToStr(mivariable);
Por decir que esa fuera la función.
Haz la prueba puedes llamar de cualquier parte del form a esa variable.
Si es que deseas que la variable puedas utilizarla en otro form lo único que harías es:
miVar2 := Form1.mivariable;
Siempre y cuando hayas declarado "mivariable" en "public".
Espero te haya servido de ayuda. Cualquier cosa no dudes en preguntar.
Amigo o yo soy el más bruto del mundo o no tengo suerte con delphi he hecho paso a paso lo que me has dicho y nada errores y más errores te voy a poner en concreto el ejemplo que quiero hacer:
Declaro primero una variable:
kg=2.2
Inserto en mi formulario 3 tedit y un botón.
Ahora a través del botón realizo el cálculo de lo que se introduce en el edit1 * kg y lo visualizo en el edit2.
self.Edit2.Text := CurrToStr(StrToCurr(self.Edit1.Text )*kg)
Ahora lo que quiero es que en el edit3 me aparezca un texto en dependencia del resultado del cálculo y con la variable guardada (la variable puede ser total)
if total >= 190 then
edit3.Text :='Obeso'
else
if total < 190 then
edit3.Text := 'Normal';
Coño pero no puedo guardar la variable y después usarla.
Disculpa pero necesito nuevamente tu ayuda o me olvido de delphi.
Declaro primero una variable:
kg=2.2
Inserto en mi formulario 3 tedit y un botón.
Ahora a través del botón realizo el cálculo de lo que se introduce en el edit1 * kg y lo visualizo en el edit2.
self.Edit2.Text := CurrToStr(StrToCurr(self.Edit1.Text )*kg)
Ahora lo que quiero es que en el edit3 me aparezca un texto en dependencia del resultado del cálculo y con la variable guardada (la variable puede ser total)
if total >= 190 then
edit3.Text :='Obeso'
else
if total < 190 then
edit3.Text := 'Normal';
Coño pero no puedo guardar la variable y después usarla.
Disculpa pero necesito nuevamente tu ayuda o me olvido de delphi.
Lamento la tardanza de mi respuesta espero esto te ayude.
Utilizé 3 Edits y 2 Buttons:
unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
kg: Double;
total: Double;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
kg:=2.2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := CurrToStr(StrToCurr(Edit1.Text)*Kg);
total := StrToFloat(Edit2.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if total >= 190 then
Edit3.text := 'Obeso'
else
if total < 190 then
Edit3.Text := 'Normal';
end;
end.
Al llenar el primer edit con número y apretar el primer botón te aparecerá la respuesta en el 2do edit.
Luego si apretás el segundo botón utilizará la variable global declarada y lo pondrá en el 3er edit.
Utilizé 3 Edits y 2 Buttons:
unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
kg: Double;
total: Double;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
kg:=2.2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := CurrToStr(StrToCurr(Edit1.Text)*Kg);
total := StrToFloat(Edit2.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if total >= 190 then
Edit3.text := 'Obeso'
else
if total < 190 then
Edit3.Text := 'Normal';
end;
end.
Al llenar el primer edit con número y apretar el primer botón te aparecerá la respuesta en el 2do edit.
Luego si apretás el segundo botón utilizará la variable global declarada y lo pondrá en el 3er edit.
