Autor Beitrag
Danf
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 27



BeitragVerfasst: Mo 21.09.09 16:32 
Hallo,

Ich muss einen "Taschen"rechner programmieren und ich hab ine problem:
Ich hab keinen Schimmer wie ich durch klicken eines buttons oben etwas reinschreiben kann:

Angenommen ich drück btfuenf (für die zahl 5) dann soll diese zahl oben in dem edit feld erscheinen (edeingabe)

bitte um hilfe
LG
Danf


Moderiert von user profile iconNarses: Topic aus Sonstiges (Delphi) verschoben am Mo 21.09.2009 um 16:33
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8548
Erhaltene Danke: 477

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Mo 21.09.09 16:34 
Das geht so:
ausblenden Delphi-Quelltext
1:
2:
Edit1.Text := '5'// nur 5
Edit1.Text := Edit1.Text + '4'// 4 anhängen

_________________
We are, we were and will not be.
ffgorcky
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 573

WIN XP/2000 & 7Prof (Familie:Win95,Win98)

BeitragVerfasst: Mo 21.09.09 19:29 
Und wenn Du nach Möglichkeit auch gleich den Wert so in Deinem Programm weiternutzen möchtest, könntest Du es auch so machen:
mit der Formular-weiten Deklaration der Variable:
ausblenden Delphi-Quelltext
1:
2:
var 
   zahl:integer;//wenn Du denn erst mal nur ganzzahlig rechnen möchtest

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
procedure ButtonNr4_OnClick(Sender: TObject);
begin
zahl:=zahl*10{hier jetzt die ausgewählte Zahl:}+4;
Edit1.Text := IntToStr(Zahl);
end;


...wobei es natürlich immer schöner ist, wenn man sämtlichen Konstanten und Variablen sprechende Namen gibt - sprich:
such Dir besser gleich einen passenden Namen für Dein Edit-Feld aus.

---Moderiert von user profile iconNarses: Beiträge zusammengefasst---

Wobei Du das ganze natürlich auch so machen könntest, dass Du nur eine Prozedur für alle Deine Zahlenwerte schreibst, und diese dann halt bei allen Button_OnClick-Ereignissen verwendest:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
procedure ButtonNr_OnClick(Sender: TObject);
begin
zahl:=zahl*10+{hier jetzt die ausgewählte Zahl:}StrToInt((Sender as TButton).Caption));
Edit1.Text := IntToStr(Zahl);
end;


Aber fang lieber erst mal langsam an.
Sonst kommt man zu schnell an einen Punkt, wo man nicht mehr so wirklich weiterkommt und am liebsten alles hinschmeißen möchte.
- Den hatte ich auch schon öfter...