1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, jpeg, Menus;

type
  TForm1 = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    BitBtn1: TBitBtn;
    Button18: TButton;
    BitBtn2: TBitBtn;
    Button19: TButton;
    Image1: TImage;
    MainMenu1: TMainMenu;
    Men1: TMenuItem;
    kopieren1: TMenuItem;
    kopieren2: TMenuItem;
    einfgen1: TMenuItem;
    beenden1: TMenuItem;
    Sprache1: TMenuItem;
    Sprache2: TMenuItem;
    Deutsch1: TMenuItem;
    Englisch1: TMenuItem;
    Info1: TMenuItem;
    Version1: TMenuItem;
    procedure Button17Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure beenden1Click(Sender: TObject);
    procedure Englisch1Click(Sender: TObject);
    procedure Deutsch1Click(Sender: TObject);
    procedure Version1Click(Sender: TObject);
     private
    { Private-Deklarationen }
    Operation:Integer;
    procedure PunktVorStrich;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

 var Zahl: String;
 x, Zwischenergebnis: real;
        Operation: Integer;


{$R *.dfm}

var strBuff1, strBuff2: string;  // Operanden- u. Ergebnisspeicher
    op: Char;                    // Operation (+,-,*,/)

var mode: Byte = 1;              // initialisierte Variable

procedure TForm1.Button17Click(Sender: TObject);
begin
  if mode = 1 then StrBuff1 := ''
              else StrBuff2 := '';
  Label1.Caption := ''
end;

procedure TForm1.Button1Click(Sender: TObject);    // Zahleneingabe
var zei: Char;    // eingegebenes Zeichen


begin
 if Sender = Button10 then zei := '0';
 if Sender = Button1 then zei := '1';
 if Sender = Button2 then zei := '2';
 if Sender = Button3 then zei := '3';
 if Sender = Button4 then zei := '4';
 if Sender = Button5 then zei := '5';
 if Sender = Button6 then zei := '6';
 if Sender = Button7 then zei := '7';
 if Sender = Button8 then zei := '8';
 if Sender = Button9 then zei := '9';
 if Sender = Button11 then zei := '.';
 if mode = 1 then

 begin
 strBuff1 := strBuff1 + zei;      // Zeichen wird an ersten Operanden angehängt
 Label1.Caption := strBuff1      // Operand anzeigen
end else
begin
 strBuff2 := strBuff2 + zei;      // Zeichen wird an ersten Operanden angehängt
 Label1.Caption := strBuff2       // Operand anzeigen
 end

end;

procedure TForm1.Button14Click(Sender: TObject);   // Operation auswählen
begin
if mode = 1 then
begin
 if Sender = Button14 then op:= '+';
 if Sender = Button15 then op:= '-';
 if Sender = Button12 then op:= '*';
 if Sender = Button13 then op:= '/';
 StrBuff2:='';

 mode := 2
 end;

 Operation:=1;



end;

procedure TForm1.Button16Click(Sender: TObject);    // Ergebnis berechnen

var res, op1,
    op2: Double;
    code: Integer;
    s: string;

begin
  if mode = 2 then begin
  Val(StrBuff1, op1, code);    // StringBuffer1 in Zahl verwandeln
  Val(StrBuff2, op2, code);    // StringBuffer2 in Zahl verwandeln
  case op of                   // Operation auswählen und durchführen
  '+': res:= op1 + op2;
  '-': res:= op1 - op2;
  '*': res:= op1 * op2;
  '/': res:= op1 / op2;
 end;
  s:= Format('%g',[res]);    // Ergebnis formatieren
  Label1.Caption :=s;        // ...und anzeigen
  mode := 1;
  strBuff1 := ''

 end
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ShowMessage('Wie du brauchst Hilfe?!?');
end;


procedure TForm1.Button18Click(Sender: TObject);
  var
    a, er: Extended;
  begin
    a := strtofloat (Label1.Caption);
    er := strtofloat(Label1.Caption) * (a/100); // Prozentrechnung
    Label1.Caption := floattostr (er);

 
  end; 



procedure TForm1.Button19Click(Sender: TObject);  // Wurzelumrechnung
begin


Label1.Caption := floattostr(sqrt(strtofloat(Label1.Caption)));

end;

procedure TForm1.PunktVorStrich;
begin
   if Operation = 0 then Zwischenergebnis := x;
   If Operation = 1 then Zwischenergebnis := Zwischenergebnis + x;
   If Operation = 2 Then Zwischenergebnis := Zwischenergebnis - x;
   If Operation = 3 Then Zwischenergebnis := Zwischenergebnis * x;
   If Operation = 4 Then
         begin
            if x <> 0
            then Zwischenergebnis := Zwischenergebnis / x
            else ShowMessage('Bitte keine Division durch Null!');
         end;
     Operation := 0; // letzte Operation ist keine
     x := Zwischenergebnis;
     label1.caption := FloatToStr(Zwischenergebnis);
end;

procedure TForm1.beenden1Click(Sender: TObject);
begin
    close
 end;


procedure TForm1.Englisch1Click(Sender: TObject);
begin
  ShowMessage('Sprachtreiber nicht installiert!!!');

end;

procedure TForm1.Deutsch1Click(Sender: TObject);
begin
  ShowMessage('aktiviert!!!');
end;

procedure TForm1.Version1Click(Sender: TObject);
begin
  ShowMessage('Version: - 7');
end;

end.