Delphi-Quellcode:
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Button10: TButton;
Button12: TButton;
Label3: TLabel;
Panel3: TPanel;
Button4: TButton;
Button1: TButton;
Button7: TButton;
Button8: TButton;
Button5: TButton;
Button2: TButton;
Button3: TButton;
Button6: TButton;
Button9: TButton;
Panel4: TPanel;
Plus: TButton;
Ergebnis: TButton;
Label4: TLabel;
Label5: TLabel;
Button11: TButton;
procedure ErgebnisClick(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
private
{ Private-Deklarationen }
FErsteZahl: Integer;
public
{ Public-Deklarationen }
end;
So siehts aus. (Hab noch einige Panels+Labels hinzugefügt aber nur fürs Aussehen.)
Allerdings, kommt immernoch:
[Hinweis] Taschenrechnerunit.pas(57): Auf 'Zahl1' zugewiesener Wert wird niemals benutzt
[Hinweis] Taschenrechnerunit.pas(54): Variable 'Plus' wurde deklariert aber in 'TForm1.ErgebnisClick' nicht verwendet
[Fehler] Taschenrechnerunit.pas(66): 'END' erwartet, aber ',' gefunden
[Hinweis] Taschenrechnerunit.pas(40): Das private Symbol 'FErsteZahl' wurde deklariert, aber nie verwendet
[Fataler Fehler] Taschenrechnerprojekt.dpr(5): Verwendete
Unit 'Taschenrechnerunit.pas' kann nicht compiliert werden
und
Ergebnis:= Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Za hl9+Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl 8,Zahl9;
ist dabei rot markiert.