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:

unit Tr_u; { Projekt TR * Helmut Achleitner / Herwig Reidlinger }

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Buttons, StdCtrls;

type
  TFormTR = class(TForm)
    Sp7: TSpeedButton;
    Sp8: TSpeedButton;
    Sp9: TSpeedButton;
    Sp4: TSpeedButton;
    Sp5: TSpeedButton;
    Sp6: TSpeedButton;
    Sp1: TSpeedButton;
    Sp2: TSpeedButton;
    Sp3: TSpeedButton;
    Sp0: TSpeedButton;
    SpKomma: TSpeedButton;
    SpErgebnis: TSpeedButton;
    SpPlus: TSpeedButton;
    SpMinus: TSpeedButton;
    SpMal: TSpeedButton;
    SpDurch: TSpeedButton;
    LabelAnzeige: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpZahlClick(Sender: TObject);
    procedure SpZeichenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    zahl,zahl2 : real;
    op : char;
    SpArray : ARRAY[0..9] OF TSpeedButton;
  public
    { Public-Deklarationen }
  end;

var
  FormTR: TFormTR;

implementation

{$R *.DFM}

procedure TFormTR.FormCreate(Sender: TObject);
begin
   SpArray [0] := Sp0;
   SpArray [1] := Sp1;
   SpArray [2] := Sp2;
   SpArray [3] := Sp3;
   SpArray [4] := Sp4;
   SpArray [5] := Sp5;
   SpArray [6] := Sp6;
   SpArray [7] := Sp7;
   SpArray [8] := Sp8;
   SpArray [9] := Sp9;
end;        

procedure TFormTR.SpZahlClick(Sender: TObject);
VAR Nr : INTEGER;      
begin
   if LabelAnzeige.caption='0' then LabelAnzeige.caption:='';
   if LabelAnzeige.caption='Error' then LabelAnzeige.caption:='';
   FOR Nr := 0 TO 9 DO
       if Sender = SpArray[Nr]
          then LabelAnzeige.caption:=LabelAnzeige.caption+chr(Nr+ord('0'));
   if sender = spKomma then LabelAnzeige.caption:=LabelAnzeige.caption+',';
end;

procedure TFormTR.SPZeichenClick(Sender: TObject);
begin
if LabelAnzeige.caption='Error' then LabelAnzeige.caption:='0';
if sender = spPlus then
  begin
    zahl:=StrToFloat(LabelAnzeige.caption);
    LabelAnzeige.caption:='0';
    op:='+'
  end;
if sender = spMinus then
  begin
    zahl:=StrToFloat(LabelAnzeige.caption);
    LabelAnzeige.caption:='0';
    op:='-'
  end;
if sender = spMal then
  begin
    zahl:=StrToFloat(LabelAnzeige.caption);
    LabelAnzeige.caption:='0';
    op:='x'
  end;
if sender = spDurch then
  begin
    zahl:=StrToFloat(LabelAnzeige.caption);
    LabelAnzeige.caption:='0';
    op:='/'
  end;
if sender = spErgebnis then
  begin
    zahl2:=StrToFloat(LabelAnzeige.Caption);
    case op of
    '+':LabelAnzeige.caption:=FloatToStr(zahl+zahl2);
    '-':LabelAnzeige.caption:=FloatToStr(zahl-zahl2);
    'x':LabelAnzeige.caption:=FloatToStr(zahl*zahl2);
    '/':if zahl2 <> 0 then
           LabelAnzeige.caption:=FloatToStr(zahl/zahl2)
        else
           LabelAnzeige.caption:='Error'
    end
  end
end;

end.                    

1:

VAR Nr : INTEGER;      // Die Variable soll dem Typ Integer entsprechen