Entwickler-Ecke

Algorithmen, Optimierung und Assembler - hintereinanderschreiben


Stinke - Do 08.12.05 20:21
Titel: hintereinanderschreiben
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 - Do 08.12.05 20:33

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 - Do 08.12.05 20:37

Crashkurs Delphi [http://www.christian-stelzmann.de/artikel/crashkurs.htm]
und
Delphi Source [http://dsdt.info]
und
Delphi Basics für diverse Befehle [http://www.delphibasics.co.uk/index.html]

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


Stinke - Fr 09.12.05 19:46

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 - Fr 09.12.05 19:53

zb. So

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;