-7

私は初めてでDelphi、変数とループを宣言する方法を学んでいます。

varOrden値が 1 の場合は何かを行い、2 の場合は別のことを行います。これが私が試していることですが、「Orden」で2つの値を宣言する方法がわかりません

ここでやろうとしているのは、電卓を作成することです。「IgualClick」は「等しい」ボタンで、1 = 加算または 2 = 減算の場合、「順序」(順序) を読み取ろうとしています。ありがとう

ありがとう..

procedure TForm1.IgualClick(Sender: TObject);
var
  Orden : integer;
begin

  Orden := (1)(2);
  B := StrToInt(Edit1.Text);
   Case orden of
     1 : Sumar;
     2 : Restar;

end;
4

1 に答える 1

3

私はあなたがこれをするつもりだったと思います:

procedure TForm1.IgualClick(Sender: TObject);
var
  Orden : integer;
begin          
  Orden := StrToInt(Edit1.Text);
  Case orden of
    1 : Sumar;
    2 : Restar;           
    else raise Exception.Create('Invalid Option!');
  end;
end;

そして、言語仕様とドキュメントを読んでください。

答えが間違っている場合は、質問も編集してください。私が理解したように、Equalsボタンをクリックすると、Edit1で選択されたオペランドを取得し、操作を処理します（Sumar、Restarメソッドを呼び出して）

于 2013-07-08T19:20:46.400 に答える