Question

Buenas Tardes,

A lo mejor alguien con conocimientos en Delphi me pudiera dar una ayudita. Estoy comenzando a programar en Delphi, y aun ando aprendiendo bien sobre variables. Estoy tratando de segun el valor de una variable, ejecutar una tarea (?).

Seria, si la variable fuera "1" o "2" Ejecutaria lo siguiente. Es solo que no se como declara en caso de que sea 1 o dos.

Gracias

procedure TForm1.IgualClick(Sender: TObject);
  var
  Orden: Integer;
  Begin 
  Orden := (1,2);
  B := StrToInt(Edit1.Text);
   Case orden of
     1 : Sumar;
     2 : Restar;
end;

Answer 1

No se entiende bien tu pregunta ni cual es tu problema, ademas esta en la categoria consolas y por lo que veo en tu código estas usando un Form. Tendrías que explicar un poco mas que es lo que necesitar lograr, por lo pronto la asignación de variables es con := de todas formas agrego tu mismo código modificado de acuerdo a lo que entiendo que necesitas hacer .

procedure TForm1.IgualClick(Sender: TObject);
  var
  Orden: Integer;
  Begin 
  Orden := StrToInt(Edit1.Text);
   Case orden of
     1 : Sumar;
     2 : Restar;
end;

La validación del valor ingresado en el cuadro de texto debería hacerse antes del case o directamente en algún evento propio del cuadro de texto como por ejemplo el onKeyPress.

Saludos y suerte..

Answer 2

Tiene pinta de ser algo de trabajo de clase que quieres que te resolvamos, pero la pregunta básica la tienes respuesta en tu código:

Case orden of
  1 : Sumar;
  2 : Restar;
end;

La gracia está en que debes asignar a la variable ORDEN el valor correcto antes de llegar al CASE.

Answer 3

Hola les envio esta otra posible solucion que permite resolver la calculadora. En ella derecciono todos los eventos onClick de los botones a uno solo el del "Boton_0"

unit Calculadora;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Boton_0: TButton;
    Boton_3: TButton;
    Boton_1: TButton;
    Boton_2: TButton;
    Boton_4: TButton;
    Boton_Menor: TButton;
    Boton_Mas: TButton;
    EditResultado: TEdit;
    BotonIgual: TButton;
    Button1: TButton;
    procedure Boton_0Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  gValor1 : Real;
  gValor2 : Real;
  gOperacion : String;

implementation

{$R *.dfm}

procedure TForm1.Boton_0Click(Sender: TObject);
 Var
    Resutado : Real;
    vValor   : String;
begin

   If TButton(Sender).Caption = '+' Then Begin gValor1 := StrToFloat(EditResultado.Text); gOperacion := '+'; EditResultado.Text := '';End;
   If TButton(Sender).Caption = '-' Then Begin gValor1 := StrToFloat(EditResultado.Text); gOperacion := '-'; EditResultado.Text := '';End;
   If TButton(Sender).Caption = '=' Then
   Begin
      gValor2 := StrToFloat(EditResultado.Text);
      if gOperacion = '+' then EditResultado.Text := FloatToStr(gValor1 + gValor2);
      if gOperacion = '-' then EditResultado.Text := FloatToStr(gValor1 - gValor2);
      Exit;
   End;

   vValor := Trim(TButton(Sender).Caption);
   If Not(vValor = '+') And
      Not(vValor = '-') And
      Not(vValor = '/') And
      Not(vValor = '=') Then EditResultado.Text := EditResultado.Text + TButton(Sender).Caption;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   gValor1    := 0.0;
   gValor2    := 0.0;
   gOperacion := '';
   EditResultado.Text := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   gValor1    := 0.0;
   gValor2    := 0.0;
   gOperacion := '';
   EditResultado.Text := '';
end;

end.