AW: Delphi Rechnung mit Label
Wenn grundlegendste Sprachbestandteile gerade erst verstanden werden, gleich mit Zeigern und Sichtbarkeitsmodifikatoren zu kommen finde ich ehrlich gesagt ein bisschen hart, aber das sieht wohl jeder anders.
|
Off Topic
Zitat:
|
AW: Delphi Rechnung mit Label
Zitat:
|
AW: Off Topic
Zitat:
Gruß K-H |
AW: Off Topic
Zitat:
Zitat:
Zitat:
Aufgrund der unnötigen und unqualifizierten Angriffe einiger User hier werde ich diesen Thread weder weiterverfolgen noch weiter kommentieren. Ich laß mir doch von euch nicht vorschreiben, wie detailliert ich posten darf! Also bitte! Man kann's auch übertreiben ... |
AW: Delphi Rechnung mit Label
Zitat:
|
AW: Delphi Rechnung mit Label
Markus (mkinzler) hat es ja bereits angedeutet: Du solltest es vermeiden, Anzeigekomponenten als Datenspeicher zu missbrauchen. Da Du ja etwas berechnen willst/musst, brauchst Du auch Variablen bzw. Felder von entsprechenden Zahlentypen (z.B. Integer für ganze Zahlen oder double für Gleitkommazahlen). Die Komponenten dienen dann als Schnittstelle zwischen Benutzer und diesen Variablen/Feldern. In größeren Projekten würde ich dazu raten, den ganzen "Berechnungsskram" in eine eigene Klasse auszulagern, aber das ist in diesem Fall wohl etwas oversized, und außerdem ist der "gemeine Delphi-Anfänger" (das ist nicht wertend gemeint) damit aller Wahrscheinlichkeit hoffnungslos überfordert. Ein einfaches Beispiel: ein Formular mit 2 Edits, einem Button und einem Label. In die Edits sollen jeweils Zahlen eingegeben werden, auf Button-Click soll die Summe dieser Zahlen im Label ausgegeben werden. Achtung: der folgende Code ist im Editor getippt und daher ungetestet. Außerdem habe ich auf jegliche Fehlerbehandlung verzichtet:
Delphi-Quellcode:
Dass da die Fehlerbehandlung fehlt, wirst Du merken, wenn Du die Edits leer lässt oder etwas anderes als Ziffern eingibst und dann auf den Button klickst. Ich hoffe, es hilft Dir trotzdem etwas weiter.
type
TRechenForm = class(TForm) (* Edits für die Eingabe *) edtZahl1: TEdit; edtZahl2: TEdit; (* Button, der die Berechnung anstoßen soll *) btnRechne: TButton; (* Ausgabelabel *) lblErgebnis: TLabel; (* Ereignis, das bei Click des Buttons ausgelöst werden soll *) procedure btnRechneClick(Sender: TObject); private (* private Felder, mit denen gerechnet werden soll *) FZahl1: integer; FZahl2: integer; FErgebnis: integer; (* Deklaration der Rechenroutine *) procedure Rechne; end; ... procedure TRechenForm.Rechne; begin (* Berechnung *) Ergebnis := FZahl1 + FZahl2; end; procedure TRechenForm.btnRechneClick(Sender: TObject); begin (* Umwandlung der Eingaben in Zahlen und Zuweisung an die Felder *) FZahl1 := StrToInt(edtZahl1.Text); FZahl2 := StrToInt(edtZahl2.Text); (* Berechnung aufrufen *) Rechne; (* Ausgabe des Ergebnisses, dabei Umwandlung von Zahl -> String *) lblErgebnis.Caption := IntToStr(FErgebnis); end; |
AW: Delphi Rechnung mit Label
Zitat:
|
AW: Delphi Rechnung mit Label
Zitat:
Gruß K-H |
AW: Delphi Rechnung mit Label
Richtig, aber das kann nur die Klasse, zu der die Felder gehören. Es gibt zwar delphi-spezifische Ausnahmen, aber wir wollen das hier noch nicht näher vertiefen.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz