File #nokhhh89-2874 - DELPHI - Sourcecode

Uploaded by VerenaLederQueen69 - 09/03/2010 9:24 - 92 Views
Source code 
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Fenster: TEdit;
  12.     Plus: TButton;
  13.     Minus: TButton;
  14.     Gleich: TButton;
  15.     Eingabe1: TButton;
  16.     Eingabe2: TButton;
  17.     Eingabe3: TButton;
  18.     Eingabe4: TButton;
  19.     Eingabe5: TButton;
  20.     Eingabe6: TButton;
  21.     Eingabe7: TButton;
  22.     Eingabe8: TButton;
  23.     Eingabe9: TButton;
  24.     Eingabe0: TButton;
  25.     Cancel: TButton;
  26.     Mal: TButton;
  27.     Button1: TButton;
  28.     Dividieren: TButton;
  29.     procedure CancelClick(Sender: TObject);
  30.     procedure Eingabe1Click(Sender: TObject);
  31.     procedure Eingabe2Click(Sender: TObject);
  32.     procedure Eingabe3Click(Sender: TObject);
  33.     procedure Eingabe4Click(Sender: TObject);
  34.     procedure Eingabe5Click(Sender: TObject);
  35.     procedure Eingabe6Click(Sender: TObject);
  36.     procedure Eingabe7Click(Sender: TObject);
  37.     procedure Eingabe8Click(Sender: TObject);
  38.     procedure Eingabe9Click(Sender: TObject);
  39.     procedure Eingabe0Click(Sender: TObject);
  40.     procedure PlusClick(Sender: TObject);
  41.     procedure GleichClick(Sender: TObject);
  42.     procedure MinusClick(Sender: TObject);
  43.     procedure MalClick(Sender: TObject);
  44.     procedure DividierenClick(Sender: TObject);
  45.  
  46.  
  47.   private
  48.     { Private-Deklarationen }
  49.   public
  50.  
  51.     { Public-Deklarationen }
  52.   end;
  53.  
  54. var
  55.   Form1: TForm1;
  56.   Ergebnis, Operand1, Operand2 :double;
  57.   Rechenart :integer = 0; // 1 --> +   2 --> -  3--> *   4--> /
  58.   Feld_leer :boolean = true;
  59.  
  60. implementation
  61.  
  62. {$R *.dfm}
  63.  
  64. procedure TForm1.CancelClick(Sender: TObject);
  65. begin
  66. Fenster.clear;
  67. end;
  68.  
  69. procedure TForm1.Eingabe1Click(Sender: TObject);
  70. begin
  71. if feld_leer = false then fenster.Text := fenster.text + '1'
  72. else begin
  73.         fenster.text := '1';
  74.         feld_leer := false;
  75.         end;
  76. end;
  77.  
  78. procedure TForm1.Eingabe2Click(Sender: TObject);
  79. begin
  80. if feld_leer = false then fenster.Text := fenster.text + '2'
  81. else begin
  82.         fenster.text := '2';
  83.         feld_leer := false;
  84.         end;
  85. end;
  86.  
  87. procedure TForm1.Eingabe3Click(Sender: TObject);
  88. begin
  89. if feld_leer = false then fenster.Text := fenster.text + '3'
  90. else begin
  91.         fenster.text := '3';
  92.         feld_leer := false;
  93.         end;
  94. end;
  95.  
  96. procedure TForm1.Eingabe4Click(Sender: TObject);
  97. begin
  98. if feld_leer = false then fenster.Text := fenster.text + '4'
  99. else begin
  100.         fenster.text := '4';
  101.         feld_leer := false;
  102.         end;
  103. end;
  104.  
  105. procedure TForm1.Eingabe5Click(Sender: TObject);
  106. begin
  107. if feld_leer = false then fenster.Text := fenster.text + '5'
  108. else begin
  109.         fenster.text := '5';
  110.         feld_leer := false;
  111.         end;
  112. end;
  113.  
  114. procedure TForm1.Eingabe6Click(Sender: TObject);
  115. begin
  116. if feld_leer = false then fenster.Text := fenster.text + '6'
  117. else begin
  118.         fenster.text := '6';
  119.         feld_leer := false;
  120.         end;
  121. end;
  122.  
  123. procedure TForm1.Eingabe7Click(Sender: TObject);
  124. begin
  125. if feld_leer = false then fenster.Text := fenster.text + '7'
  126. else begin
  127.         fenster.text := '7';
  128.         feld_leer := false;
  129.         end;
  130. end;
  131.  
  132. procedure TForm1.Eingabe8Click(Sender: TObject);
  133. begin
  134. if feld_leer = false then fenster.Text := fenster.text + '8'
  135. else begin
  136.         fenster.text := '8';
  137.         feld_leer := false;
  138.         end;
  139. end;
  140.  
  141. procedure TForm1.Eingabe9Click(Sender: TObject);
  142. begin
  143. if feld_leer = false then fenster.Text := fenster.text + '9'
  144. else begin
  145.         fenster.text := '9';
  146.         feld_leer := false;
  147.         end;
  148. end;
  149.  
  150. procedure TForm1.Eingabe0Click(Sender: TObject);
  151. begin
  152. if feld_leer = false then fenster.Text := fenster.text + '0'
  153. else begin
  154.         fenster.text := '0';
  155.         feld_leer := false;
  156.         end;
  157. end;
  158.  
  159. procedure TForm1.PlusClick(Sender: TObject);
  160. begin
  161. Operand1 := strtofloat(Fenster.Text);
  162. Rechenart := 1;
  163. Feld_leer := true;
  164. end;
  165.  
  166. procedure TForm1.GleichClick(Sender: TObject);
  167. begin
  168. Operand2 := strtofloat(Fenster.text);
  169. case Rechenart of
  170. 1: begin
  171.         Ergebnis := Operand1 + Operand2;
  172.         Fenster.text := floattostr(Ergebnis);
  173.         Feld_leer := true;
  174.    end;
  175. 2: begin
  176.         Ergebnis := Operand1 - Operand2;
  177.         Fenster.text := floattostr (Ergebnis);
  178.         Feld_leer := true;
  179.    end;
  180. 3: begin
  181.         Ergebnis := Operand1 * Operand2;
  182.         Fenster.text := floattostr (Ergebnis);
  183.         Feld_leer := true;
  184.    end;
  185. 4: begin
  186.         Ergebnis := Operand1 / Operand2;
  187.         Fenster.text := floattostr (Ergebnis);
  188.         Feld_leer := true;
  189.    end;
  190.  
  191.  
  192. end;
  193.  
  194.  
  195. end;
  196.  
  197. procedure TForm1.MinusClick(Sender: TObject);
  198. begin
  199. Operand1 := strtofloat(Fenster.Text);
  200. Rechenart := 2;
  201. Feld_leer := true;
  202. end;
  203.  
  204.  
  205.  
  206. procedure TForm1.MalClick(Sender: TObject);
  207. begin
  208. Operand1 := strtofloat(Fenster.Text);
  209. Rechenart := 3;
  210. Feld_leer := true;
  211. end;
  212.  
  213.  
  214. procedure TForm1.DividierenClick(Sender: TObject);
  215. begin
  216. Operand1 := strtofloat(Fenster.Text);
  217. Rechenart := 4;
  218. Feld_leer := true;
  219.  
  220. end;
  221.  
  222. end.