hintereinanderschreiben

Stinke · Hält's aus hier Beiträge: 7

hi ich bins mal wieder

ähm und zwar

sagen wir mal ich hab buttons...
einmal den closebutton (der ist aber egal)
und 2 button mit zahlen ähm sagen wir mal eine 2 und eine 1
ich habe ein editfeld...

wie mache ich, dass wenn ich auf einen button klicke ähm der im editfeld hinter der anderen zahl angezeigt wird und nicht dazugezählt??

geht das eventuell mit localen variableN?

stifflersmom · Beiträge: 194 XP /XP PRO/ SuSE div. D1 - D7, BDS 2006

Wenn ich Dich richtig verstanden habe (und das ist nicht sicher),
dann willst Du den Wert der auf Deinem Button steht zum wert der
im editFeld steht hinzuaddieren (komisches Deutsch).

Versuchs mal so,

Im Onclick-Ereignis Deines Buttons nimmst Du den Text Deines
Edit-Feldes, wandelst ihn in einen Integer wert um und erhöhst ihn dann
um die Zahl, die auf deinem Button steht, und wandlest diese Summe in einen Text um
und gibst ihn dann in Deinem edit-feld wieder aus.

Das war's dann schon.
Schau mal in der OH nach StrToInt und IntToStr,
da findest Du schon alles was Du brauchst.

Moin

Amateur · Verfasst: Do 08.12.05 20:37

Crashkurs Delphi
und
Delphi Source
und
Delphi Basics für diverse Befehle

da findest du sehr viele informationen die du dir mal durchlesen solltest

_________________
"Kein dummes Gerede. Kein Rumrätseln. Denkt an nichts anderes mehr, nur noch an das, was vor euch liegt. Das ist die wahre Herausforderung. Ihr müßt euch vor euch selbst schützen, Leute." (Rennes in "Cube")
Beiträge: >700

Stinke · Hält's aus hier Beiträge: 7

nein so will ich das nicht!!!
ich will eine art taschenrechner machen
und naja wenn man auf den button 1 klickt soll eine 1 in dem editfeld erscheinen
wenn ich danach auf die 2 drück soll im editfeld stehen: 12 <--- also eine 12
die sollen nicht addiert werden sondern nur hintereinander stehen
(localvariable wäre hilfreich)

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

zb. So

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=Edit1.Text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit1.Text:=Edit1.Text+'2';
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme