Aufrechnen von Integer-Werten in ein neues Ergebnis

[EdAdvokat]

Danke Delphi.Narium für Deine Hinweise. Im Stillen hatte ich selbst diese Vermutung, dass mit FreeAndNil tatsächlich die erste
Summe wieder ins Nirwana geht und ein "Aufaddieren" somit nicht klappt.
Mit dem btn1Click ist also alles futsch. Mit dieser Konstruktion ist es also nicht möglich, das Ergebnis der Summenbildung in die neue
Instanz zu überführen.

Zitat:

Du müsstest dann zumindest das Ergebnis der Aufrechnung wieder aus der Anzeige in die beim Klick erstellte Instanz übernehmen.

Wie sollte dies geschehen?
Es ist doch wohl so, dass ich das ganze völlig neu umschreiben sollte oder?
Fritzew, vielen Dank für den Hinweis, doch auch so geht es nicht, denn es ist wohl tatsächlich so wie es Delphi.Narium geschrieben hat, dass das Ergebnis er ersten Addition mit dem btnClick in den Datenhimmel geschickt wurde und für ein neuerliches Aufrechnen somit nicht mehr zur Verfügung steht. Habe ich das so richtig verstanden?
Die Hinweise von Zacherl muss ich mir nochmals gründlich durchdenken, denn mit (class) Function habe ich mich lediglich theoretisch beschäftigt mit der mühseeligen Übersetzung von Marco Cantù, Object Pascal Handbook.
Die ganze Aktion dient wirklich nur meinem eigenen Verständnis für die Problematik. (ich wollte die Anzahl von Stücken die gedachter Maßen verkauft wurden addieren und dann die Gesamtzahl der Stücke und die Gesamtsumme des Erlöses ausgeben)
Erst einmal glaube ich, nicht auf dem richtigen Weg zu sein mit meinem Versuch.

[Delphi.Narium]

Wenn Du Zahl1 und Zahl2 aus 'nem Edit übernehmen kannst, kannst Du doch wohl auch Aufrechnung aus der Caption des Labels übernehmen.

Add.Zahl1 := StrToIntDef(edtZahl1.text,0);

angepasst für die Aufrechnung

Add.Ergebnisaufrechnen := StrToIntDef(lblAufrechnung.caption,0);

Und nein, die Lösung ist weder optimal noch irgendwie objektorientiert.

In dem Fall ist eine eigene Klasse für die Addition und die Aufrechnung überflüssig.

Überleg Dir bitte nochmal, was Du genau erreichen willst und ob es nicht eventuell sinnvoller ist, die Instanz von TAddition im Create des Formulares zu erstellen und beim Schließen des Formulares wieder freizugeben.
Dann bleiben die Zwischenergebnisse erhalten und die Klasse ließe sich auch um weitere Berechnungsmodalitäten erweitern. Die Anzeigemöglichkeiten im Formular müssen dann nicht als Zwischenspeicher für die Datenhaltung dienen.

[LTE5]

Zitat:

An LTE5: Was ändert das? Und wie hilft es dem TE?

Das ändert, dass das hier verständlicher ist

Delphi-Quellcode:

FZahl1 : integer;
    FZahl2 : integer;
    FErgebnis: Integer;
    FAufrechnung: int32;

Er sagt er ist am üben. Dann kann man doch wohl auch in den Raum werfen, dass int32 exakt dasselbe wie Integer ist und man es umschreiben sollte.
Sollte nur ein nett gemeinter Hinweis sein bevor er sich irgendwann fragt was zur hölle ist int32 ?

[EdAdvokat]

Danke Zacherl

Zitat:

Wenn du willst, kann ich dir gerne beschreiben oder zeigen, wie ich so etwas umsetzen würde. Dazu müsste ich allerdings wissen, was genau deine Zielstellung ist?

Ich will ganz für mich als Beispiel die Anzahl von Stücken und deren Preis ausgeben und dann als Ergebnis die Gesamtzahl der Stücke und deren Erlös
ausgeben zu können. Dazu habe ich mir zum Test das Additionsprogramm geschrieben, doch kam ich ersichtlich zwar zur Addition von Zahl1 und Zahl2, doch
eine Addition von weiteren Werten zum bisherigen Ergebnis scheiterte.
Sicher muss ich das mit Geter und Seter nochmals versuchen, ohne die Klasse sofort wieder zu vernichten. Das mit der class function habe ich noch nicht
verstanden.

Danke Delphi.Narium, ich glaube es ist wirklich zweckmäßig die Instanz von TAddition im create des Formulars zu erstellen, wie Du es vorgeschlagen hast.
Wenn ich das so hinbekommen habe melde ich mich erneut

LTE5 die Variablen integer und int32 sind gleich. Das ist mir durchaus klar und ich habe mich nach dem Studium von Marco Cantu entschlossen im konkreten Beispiel int32 zu verwenden.

[LTE5]

Zitat:

die Variablen integer und int32 sind gleich. Das ist mir durchaus klar und ich habe mich nach dem Studium von Marco Cantu entschlossen im konkreten Beispiel int32 zu verwenden.

Hat das einen bestimmten Grund? Ich würde nur gerne verstehen, welcher Gedankengang dahinter steckt.

[EdAdvokat]

Zitat:

Hat das einen bestimmten Grund? Ich würde nur gerne verstehen, welcher Gedankengang dahinter steckt.

Ich will da keine Grundsatzdiskussion beginnen. Ich denke man kann beide Bezeichnungen wählen.

http://docwiki.embarcadero.com/RADSt...ormate_(Delphi)

[LTE5]

Das soll doch keine Grundsatzdiskussion werden. Ich interessiere mich nur dafür, was du dir für Gedanken machst int32 zu wählen? Bessere Lesbarkeit etc?

[EdAdvokat]

nochmals zum Thema Integer oder int32: Marco Cantù, Object Pascal Handbook:

Zitat:

If you have a hard time remembering the difference between a ShortInt and a
SmallInt (including which one is effectively smaller), rather than the actual type
you can use one of the predefined aliases declared in the System unit:
type
Int8 = ShortInt;
Int16 = SmallInt;
Int32 = Integer;
UInt8 = Byte;
UInt16 = Word;
UInt32 = Cardinal;
Again, these types don't add anything new, but are probably easier to use, as it is
simple to remember the actual implementation of an Int16 rather than that of a
SmallInt. These type aliases are also easier to use for developers coming from C and
other languages that use similar type names.

Man kann es halten wie ein Gartenschlauch, nur nass werden darf man dabei nicht.