1:
2:

Speicher := 0;
  Edit1.Text:=FloatToStr(Speicher); // Edit ist Textfeld, daher umwandeln in String !					

1:

Edit1.Setfocus;// gibt in der Form Create Mecker...					

1:
2:
3:

  Speicher :=Speicher +StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..					

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:

var Form1: TForm1; Speicher : Real;

implementation

{$R *.dfm}

//hier sind die proceduren für die butoons ..habe ich mal wegen der länge gelöscht

procedure TForm1.FormCreate(Sender: TObject);

begin
Speicher := 0;
  Edit1.Text:=FloatToStr(Speicher);

end;

procedure TForm1.Button18Click(Sender: TObject);
begin
Speicher :=Speicher +StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..

end;

procedure TForm1.Button17Click(Sender: TObject);
begin
Speicher :=Speicher -StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
Speicher :=Speicher *StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
Speicher :=Speicher /StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..
end;

end.					

1:
2:
3:
4:
5:
6:
7:

.....
Case RechenOP of 1: Speicher:=Speicher+StrToFloat(Edit1.Text); 
                 2: Speicher:=Speicher-StrToFloat(Edit1.Text); 
                 3: ......  // usw
          end;
          edit1.Text:=FloatToStr(Speicher);
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Button18Click(Sender: TObject);  
begin  
Speicher :=Speicher +StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..  
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld  
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..  
  RechenOP:=1;// beliebig, aber eindeutigend;					

1:
2:
3:
4:
5:
6:
7:

8
+
9
-
7
*
3					

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:

const 
  op_plus=1;
  op_minus=2;
  op_mal=3;
  op_geteilt=4;

var 
  calc_array: array of integer;

//das array immer erweitern wenn ein operator geklickt wird...davor nur die "ziffer zusammenbauen".

procedure TForm1.PlusClick(Sender:TObject);
begin
  //ggf hier schon prüfen ob die letzte operation eine Punktrechnung war und ggf. den Teil schon lösen

  //array erweitern (würde im Falle einer vorherigen Punktrechnung wegfallen)
  setLength(Calc_Array,Length(calc_array)+2); //+2 weil 1 Zahl+1 operator
  calc_array[High(calc_array)-1]:=StrToInt(Edit_Zahl.Text); //die neue Zahl hinzufügen
  calc_array[High(calc_array)]:=op_plus;  //den operator hinzufügen
end;

function TForm1.CalcResult:integer;
var i:integer;
begin
  i:=low(calc_array)+1; //position von 2. Array-element => erster operator
  result:=calc_array[i-1];  //erstes Array-Element als startwert nehmen
  while i+1<=High(calc_array) do
  begin
    case calc_array[i] of
      op_plus:result:=result+calc_array[i+1];
      op_minus:result:=result-calc_array[i+1];
      op_mal:result:=result*calc_array[i+1];
      op_geteilt:result:=result div calc_array[i+1];
    end;
    inc(i,2);
  end;
end;					

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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    eins: TButton;
    zwei: TButton;
    drei: TButton;
    vier: TButton;
    fuenf: TButton;
    sechs: TButton;
    sieben: TButton;
    acht: TButton;
    neun: TButton;
    Null: TButton;
    positivnegativ: TButton;
    komma: TButton;
    Gleichzeichen: TButton;
    Clear: TButton;
    geteilt: TButton;
    mal: TButton;
    minus: TButton;
    plus: TButton;
    zurueck: TButton;
    procedure siebenClick(Sender: TObject);
    procedure achtClick(Sender: TObject);
    procedure neunClick(Sender: TObject);
    procedure vierClick(Sender: TObject);
    procedure fuenfClick(Sender: TObject);
    procedure sechsClick(Sender: TObject);
    procedure einsClick(Sender: TObject);
    procedure zweiClick(Sender: TObject);
    procedure dreiClick(Sender: TObject);
    procedure NullClick(Sender: TObject);
    procedure kommaClick(Sender: TObject);
    procedure positivnegativClick(Sender: TObject);
    procedure ClearClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure plusClick(Sender: TObject);
    procedure minusClick(Sender: TObject);
    procedure malClick(Sender: TObject);
    procedure geteiltClick(Sender: TObject);
    procedure GleichzeichenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1; Speicher : real;    RechenOP : Integer;

implementation

{$R *.dfm}

procedure TForm1.siebenClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('7');
end;

procedure TForm1.achtClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('8');
end;

procedure TForm1.neunClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('9');
end;

procedure TForm1.vierClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('4');
end;

procedure TForm1.fuenfClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('5');
end;

procedure TForm1.sechsClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('6');
end;

procedure TForm1.einsClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('1');
end;

procedure TForm1.zweiClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('2');
end;

procedure TForm1.dreiClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('3');
end;

procedure TForm1.NullClick(Sender: TObject);
begin
edit1.Text:=edit1.Text+('0');
end;

procedure TForm1.kommaClick(Sender: TObject);
begin
 edit1.Text:=edit1.Text+(',');
end;

procedure TForm1.positivnegativClick(Sender: TObject);
begin
 edit1.Text:=edit1.Text+('-');
end;


procedure TForm1.ClearClick(Sender: TObject);
begin
edit1.clear;
speicher:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
Speicher := 0;
  Edit1.Text:=FloatToStr(Speicher);

end;

procedure TForm1.plusClick(Sender: TObject);
begin
Speicher :=Speicher +StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..
  RechenOP:=1;// beliebig, aber eindeutigend;
end;

procedure TForm1.minusClick(Sender: TObject);
begin
Speicher :=Speicher -StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..
  RechenOP:=2;// beliebig, aber eindeutigend;
  end;

procedure TForm1.malClick(Sender: TObject);
begin
Speicher :=Speicher *StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..
  RechenOP:=3;// beliebig, aber eindeutigend;
  end;

procedure TForm1.geteiltClick(Sender: TObject);
begin
Speicher :=Speicher /StrToFloat(Edit1.Text); // natürlich muß ein String vor der Berechnung wieder in eine Zahl gewandelt werden..
  Edit1.Text:=FloatToStr(Speicher); // Und den Wert aus Speicher wieder in das Editfeld
  Edit1.Setfocus;// und gleich wieder ein SetFocus für die nächste Eingabe..
   RechenOP:=4;// beliebig, aber eindeutigend;
  end;

procedure TForm1.GleichzeichenClick(Sender: TObject);
begin
Case RechenOP of 1: Speicher:=Speicher+StrToFloat(Edit1.Text);   
                 2: Speicher:=Speicher-StrToFloat(Edit1.Text);
                 3: Speicher:=Speicher*StrToFloat(Edit1.Text);
                 4: Speicher:=Speicher/StrToFloat(Edit1.Text);
          end;  
          edit1.Text:=FloatToStr(Speicher);


end;

end.