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

....
Procedure myForm.MyEditKeyDown(Sender: TObject;Var Key:Word; Shift: TShiftState);
Begin
  MyEdit.Text:='';           // Editfeld für neue Eingaben leeren
  MyEdit.OnKeyDown:=Nil;     // diese Routine für weitere Eingaben entfernen
  MyEdit.Text:=Chr$(Key);    // das Zeichen dem textfeld zuweisen
end;
.....					

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

....
Procedure myForm.Buttonxclick(Sender: TObject); // angenommen Plus
Begin
  Calcwert:=Calcwert+StrToInt(MyEdit.Text); // angenommen, Calcwert ist eine globale Integer-Variable
  MyEdit.Text:=IntToStr(Calcwert);          // Ergebnis dem Editfeld zuweisen
  MyEdit.OnKeyDown:=MyEditKeyDown;          // und die OnKeyMethode zuweisen
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:

private
    { Private-Deklarationen }
     Zahl : integer;
     public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

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

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


procedure TForm1.btplusClick(Sender: TObject);
begin
Zahl := StrToInt(Edit1.text);
end;

end.					

1:
2:

if Rechenart = 1 then Summe := Summe + FloatToStr(Editfeld.text);
if Rechenart = 2 then					

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

case Rechenart of
  1 : Summe := Summe + FloatToStr(Editfeld.text);
  2 : Summe := Summe - FloatToStr(Editfeld.text);
  3 :
  4 :  
end;					

1:
2:
3:
4:

....
Wert:=0; // bei Strichrechnen
Wert:=1; // bei Punktrechnen
.....					

1:

Wert:=0;					

1:

If Wert=0 then Wert:=1;					

1:
2:
3:

Wert:=Wert*StrToInt(Edit1.Text); 
// oder 
Wert:=Wert/StrToInt(Edit1.Text);					

1:
2:
3:

Wert:=Wert+StrToInt(Edit1.Text);
// oder 
Wert:=Wert-StrToInt(Edit1.Text);					

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

Procedure MyForm.ButtonCClick(Sender : TObject); // diese doppel"C" ist kein Schreibfehler, sondern der Name des Clear-Buttons

Begin
  Wert:=0;            // Rechenvariable auf 0 setzen
  Anfang:=True;       // Zeichen, das erste Rechenoperation folgt auf Wahr
  MyEdit.Text:='0';   // Ach ja, dem Eingabefeld einen Wert geben, natürlich 0

end;					

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

Procedure MyForm.FormCreate(Sender : TObject); // Hier startet dein Programm....
Begin
  Wert:=0;            // Rechenvariable auf 0 setzen
  Anfang:=True;       // Zeichen, das erste Rechenoperation folgt auf Wahr
  MyEdit.Text:='0';   // Ach ja, dem Eingabefeld einen Wert geben, natürlich 0

end;					

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

Procedure MyForm.ButtonMulClick(Sender : TObject); 
Begin
  If Anfang and ( Wert=0) then Wert:=1;  // auch bei der Division. Das sichert die einmalige Umsetzung auf 1
   ....                                  // in diesen Zeilen steht dein weiterer Code
   ....
   Anfang:=False;                        // und nun setzt du dein Anfang-Zeichen auf falsch

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:
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:
230:
231:
232:
233:
234:
235:
236:
237:

...

  private
    procedure variablen_uebergabe;//selbst definierte procedure
    procedure rechenarten;//selbst definierte procedure
    procedure zahl_neu;//selbst definierte procedure

...

var
  Form1: TForm1;
  zahl1,zahl2,ergebnis:real; //3 komma zahlen
  zahl1_eingegeben,istgleich,zahl2_eingegeben,zahl_loeschen,rechenoperation_gewaehlt:bool; //5 werte die richtig udn falsch enthalten können
  rechenart:integer; //eine variable die ganze zahlen enthält
implementation

{$R *.DFM}

procedure tform1.zahl_neu;  //selbst definierte procedure : Schaut ob sich die Zahl wechselt (zB wenn man "+" geklickt hat und ne neue Zahl eingeben will)
begin
rechenoperation_gewaehlt:=false;
istgleich:=false; //istgelich wurde nich gedrückt
if zahl_loeschen=true then  //prüft ob er die zahl im feld löschen darf
   begin
   edit1.text:='';         //wenn ja lösche sie,
   zahl_loeschen:=false;   //und hebe den lösch befehl auf
   end;
end;

procedure tform1.variablen_uebergabe;  //selbst definierte procedure: Zahlen aus dem Edit Feld werden an die Variablen übergeben
begin
istgleich:=false; //istgleich wurde nicht gedrückt
if (zahl2_eingegeben=false)and(zahl1_eingegeben=true) then // wenn die erste zahl eingegeben aba die zweite nicht dann
   begin
   zahl2:=strtofloat(edit1.text);  //übernehme sie
   zahl2_eingegeben:=true;         //notiere das sie übernommen wurde
   zahl_loeschen:=true;            //kann gelöscht werden
   end;                                  //dient zur zahlen übernahme
if (zahl1_eingegeben=false) then    //wenn die erste zahl nicht eingegeben ist dann
   begin
   zahl1:=strtofloat(edit1.text);   //übernehme sie
   zahl1_eingegeben:=true;          //notiere das sie übernommen wurde
   zahl_loeschen:=true;             //kann aus dem fled nun gelöscht werden
   end;
if (zahl2_eingegeben=true)and(zahl1_eingegeben=true) then //sind beide zahlen eingegeben dann
   begin
        rechenarten;               //rechne aus; in selbst erstellter procedure
        zahl1:=strtofloat(edit1.text);  //übernehme ergebnis als erste zahl
        zahl2_eingegeben:=false;     //zweite zahl muss noch eingegeben werden also, 2.zahl ist nicht eingegeben
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);// Taste für 7
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'7'; //fügt dem edit feld die 7 zu
end;

procedure TForm1.Button2Click(Sender: TObject);// Taste für 8
begin
zahl_neu; //aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'8';  //fügt dem edit feld die 8 zu
end;

procedure TForm1.Button3Click(Sender: TObject); // Taste für 9
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'9';  //fügt dem edit feld die 9 zu
end;

procedure TForm1.Button4Click(Sender: TObject); // Taste für 4
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'4';   //fügt dem edit feld die 4 zu
end;

procedure TForm1.Button5Click(Sender: TObject); // Taste für 5
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'5';   //fügt dem edit feld die 5 zu
end;

procedure TForm1.Button6Click(Sender: TObject); // Taste für 6
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'6';   //fügt dem edit feld die 6 zu
end;

procedure TForm1.Button7Click(Sender: TObject);   // Taste für 1
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'1';   //fügt dem edit feld die 1 zu
end;

procedure TForm1.Button8Click(Sender: TObject);   // Taste für 2
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'2';   //fügt dem edit feld die 2 zu
end;

procedure TForm1.Button9Click(Sender: TObject);  // Taste für 3
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'3';   //fügt dem edit feld die 3 zu
end;

procedure TForm1.Button10Click(Sender: TObject);   // Taste für 0
begin
zahl_neu;//aufruf eigene procedure, schaut ob er die zahl löschen darf
edit1.text:=edit1.text+'0';   //fügt dem edit feld die 0 zu
end;

procedure TForm1.Button11Click(Sender: TObject);  // Taste für +/-, damit kann man die Zahl im Edit Feld negativ machen (- davorsetzen)
var zeile:string;   // Eine Variable die nur für diese Procedure
                    // existiert und text aufnehmen kann
begin
zeile:=edit1.text; // inhalt des edit´s feldes an die variable übergeben
if zeile='' then exit;  //testen ob variable leer ist, wenn ja Procedure beenden
if zeile[1]='-' then delete(zeile,1,1) else insert('-',zeile,1); //testen ob das erste Zeichen ein '-' ist, wenn ja lösche es, wenn nein setze es
edit1.text:=zeile; // der inhalt der Variable wird dem edit feld übergeben
end;

procedure TForm1.Button12Click(Sender: TObject); //Komma einfügen
var zeile:string; // Eine Variable die nur für diese Procedure
                    // existiert und text aufnehmen kann
begin
zeile:=edit1.text; // inhalt des edit´s feldes an die variable übergeben
if pos(',',zeile)=0 then zeile:=zeile+','; //suchen ob es schon ein komma gibt, pos() liefert 0 wenn keins da is
edit1.text:=zeile; // der inhalt der Variable wird dem edit feld übergeben
end;

procedure TForm1.Button18Click(Sender: TObject);  //Taste um eine Stelle zurückzusetzen
var zeile:string; // Eine Variable die nur für diese Procedure
                    // existiert und text aufnehmen kann
begin
zeile:=edit1.text; // inhalt des edit´s feldes an die variable übergeben
delete(zeile,length(zeile),1); //letztes zeichen der variablen löschen
edit1.text:=zeile; // der inhalt der Variable wird dem edit feld übergeben
end;


procedure TForm1.Button19Click(Sender: TObject); //voller reset
begin
edit1.text:='';//edit feld leeren
zahl1:=0;   //zahl1 0 setzten
zahl2:=0;   //zahl2 0 setzen
zahl1_eingegeben:=false;  //zahl1 ist nicht eingegeben
zahl2_eingegeben:=false;  //zahl2 ist nicht eingegeben
rechenart:=0;   //rechenart ist 0
end;

procedure TForm1.Button15Click(Sender: TObject);// Taste * gedrückt
begin
if rechenoperation_gewaehlt=true then   //ist schon eine rechenoperation gewählt dann:
   begin
   rechenart:=1; //übernehme zwar die garde gewählte rechnart aba
   exit;         //rechnet nicht gleich damit sondern springt aus der schleife
   end;
rechenoperation_gewaehlt:=true;
variablen_uebergabe; //übernehme zahl aus edit feld in eigener procedure
rechenart:=1;        //stellvertettend für "*"
end;

procedure TForm1.Button16Click(Sender: TObject); // Taste / gedrückt
begin
if rechenoperation_gewaehlt=true then //ist schon eine rechenoperation gewählt dann:
   begin
   rechenart:=2; ///übernehme zwar die garde gewählte rechnart aba
   exit;         //rechnet nicht gleich damit sondern springt aus der schleife
   end;
rechenoperation_gewaehlt:=true;
variablen_uebergabe; //übernehme zahl aus edit feld in eigener procedure
rechenart:=2;        //stellvertettend für "/"
end;

procedure TForm1.Button14Click(Sender: TObject); // Taste + gedrückt
begin
if rechenoperation_gewaehlt=true then //ist schon eine rechenoperation gewählt dann:
   begin
   rechenart:=3;//übernehme zwar die garde gewählte rechnart aba
   exit;         //rechnet nicht gleich damit sondern springt aus der schleife
   end;
rechenoperation_gewaehlt:=true;
variablen_uebergabe;   //übernehme zahl aus edit feld in eigener procedure
rechenart:=3;          //stellvertettend für "+"
end;

procedure TForm1.Button13Click(Sender: TObject); // Taste - gedrückt
begin
if rechenoperation_gewaehlt=true then //ist schon eine rechenoperation gewählt dann:
   begin
   rechenart:=4;//übernehme zwar die garde gewählte rechnart aba
   exit;         //rechnet nicht gleich damit sondern springt aus der schleife
   end;
rechenoperation_gewaehlt:=true;
variablen_uebergabe;  //übernehme zahl aus edit feld in eigener procedure
rechenart:=4;         //stellvertettend für "-"
end;

procedure TForm1.FormCreate(Sender: TObject);//Werten den Variablen zuweisen
begin
zahl1_eingegeben:=false; //zahl 1is nicht eingegeben
zahl2_eingegeben:=false; //zahl2 au nich
zahl_loeschen:=false;  //und es wird auch keine zahl gelöscht
istgleich:=false; // istgleich wurde noch nich gedrückt
rechenoperation_gewaehlt:=false;// es wurde noch keine gewählt
end;

procedure tform1.rechenarten; //selbst definierte Prozedure: sorgt für die Berechnung der Werte+Ausgabe
begin
case rechenart of    //case..of..end isses gleiche wie mehrere if..then..else
        1:edit1.text:=floattostr(zahl1*zahl2);  //rechne mal wenn rechenart=1 und gibs gleich aus
        2:edit1.text:=floattostr(zahl1/zahl2);  //rechne durch wenn rechenart=2 und gibs gleich aus; hier muss ev noch ne Fehlerbehandlung hin... da zZ er ne Fehlermedlung ausgibt und nur mit Reset es weiter geht 
        3:edit1.text:=floattostr(zahl1+zahl2);  //rechne plus wenn rechenart=3 und gibs gleich aus
        4:edit1.text:=floattostr(zahl1-zahl2);  //rechne minus wenn rechenart=4 und gibs gleich aus
        end;
end;

procedure TForm1.Button17Click(Sender: TObject); // Taste fürs "="
begin
if istgleich=true then    //sollte "=" vorher schon gedrückt worden sein, dann:
   begin
   zahl1:=strtofloat(edit1.text);//edit1 inhalt wird zur zahl 1
   rechenarten;                  //und wird mit zahl 2 verrechnet
   end;
if zahl1_eingegeben=true then   //wenn zahl1 schon eingegegeben ist dann
   begin
   zahl2:=strtofloat(edit1.text); //wird edit inhalt zur zahl 2
   rechenarten;                   //es wird gerechnet
   zahl1_eingegeben:=false;       //zahl1 ist nun nicht mehr vorhanden
   zahl2_eingegeben:=false;       //zahl2 mus auch neu eingegegeben werden
   zahl_loeschen:=true;           //zahl darf gelöscht werden
   istgleich:=true;               //es wurde auf "=" geklickt
   end;

end;					

1:
2:
3:
4:

If 3 < 5 then // keine Klammer nötig
begin
  ....
end;					

1:
2:
3:
4:
5:

If (Wert>KleinerWert) and (Wert<GrosserWert) then 
// Klammern erforderlich, sonst Mecker vom Compiler
begin
...
end;					

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

if Wert>KleinerWert then MyFlag1:=True else MyFlag1:=False;
if Wert<GrosserWert then MyFlag2:=True else MyFlag2:=False;
If MyFlag1 and Myflag2 then // keine Klammern nötig, weil schon Boolean
begin
....
end;					

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

.....
MyFlag1:=Wert>KleinerWert;  // denn Ergebnis ist entweder Wahr oder Falsch
MyFlag2:=Wert<GrosserWert ;
.....

end;					

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

Procedure Form1.Button1click(Sender : TObject);
Begin
  if Edit2.Text>Edit1.Text then MyFlag1:=True else MyFlag1:=False;
  if Edit2.Text>Edit3.Text then MyFlag2:=True else MyFlag2:=False;
  Panel1.Visible:=MyFlag1;
  Panel1.Visible:=MyFlag1;

end;