Forum: Object-Pascal / Delphi-Language
by Ghostleader,
22. Aug 2009
Hm das mit dem kleinen Rechner Tutorial kenne ich schon. Ich will allerdings Buttons kein Edits :)
Ich werd wohl erstmal aufhören mit dem Rechner. Nur diese Editierboxen find ich zu stupide und die Buttons krieg ich nicht auf die Reihe :).
Vielen Dank für deine große Hilfe ;).
Mit freundlichen Grüßen Ghostleader
Forum: Object-Pascal / Delphi-Language
by Ghostleader,
22. Aug 2009
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Button10: TButton;
Button12: TButton;
Label3: TLabel;
Panel3: TPanel;
Forum: Object-Pascal / Delphi-Language
by Ghostleader,
22. Aug 2009
Nein also = + usw sind alles Buttons.
Reihenfolge:
1.)User drückt einen Button1-9 (so oft wie er will - also das er auch zweimal Button1 drücken kann.)
2.)User drückt Button +.
3.)User drückt einen Button1-9 (so oft wie er will - also das er auch zweimal Button1 drücken kann.)
4.)User drückt Button =.
5.)Das Ergebnis wird in Label1 (Caption: Anzeige), angezeigt.
Forum: Object-Pascal / Delphi-Language
by Ghostleader,
22. Aug 2009
Wie meinst du das:
"Label1.Caption und Label2.Caption abgreifen und addieren." ?
Ich hab nur den Label1:
Anzeige
Und dann noch einen Label2 den ich aber nur zum Design benötige :D.
Forum: Object-Pascal / Delphi-Language
by Ghostleader,
22. Aug 2009
So nächstes Problem.
Ich hatte erst ein wenig selber versuchen wollen es zu lösen aber ich schaff es einfach nicht. (Zu wenig Vorkentnisse?)
procedure TForm1.ErgebnisClick(Sender: TObject);
var
Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Zahl9,Plus,Ergebnis: integer;
begin
Zahl1 := StrToInt(Button1.Caption);
Forum: Object-Pascal / Delphi-Language
by Ghostleader,
22. Aug 2009
Danke es funktioniert. :)
Ich hatte dich also falsch verstanden :D
Mfg Ghostleader
Forum: Object-Pascal / Delphi-Language
by Ghostleader,
22. Aug 2009
Also wenn ich jetzt eingebe:
procedure TForm1.ErgebnisClick(Sender: TObject);
var
Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Zahl9,Plus,Ergebnis: integer;
begin
Zahl1:= StrtoInt (Self.Zahl1.text);
Zahl2:= StrToInt (Self.Zahl2.text);
Bleibt das Problem dasselbe. Ich hoffe ich hab dich falsch verstanden :D.