Forum: Programmieren allgemein
by Natcree,
9. Dez 2013
Wie machen ich das am besten?
Diese Procedure wird ja nur einmal im jahr ausgeführt. Hier werden die Daten ausen einem Kassenbuch nach Kostenstellen aufgelistet und in die entsprechenden Fenster zur Einnahmen/Ausgaben Überschussrechnung fürs Finanzamt zum Druck vorbereitet.
Daher Frag ich mich ob es Sinn macht und wenn ja Warum?
Forum: Programmieren allgemein
by Natcree,
9. Dez 2013
So Habe den Code Jetzt wie folgt geändert:
procedure TForm1.LMDSpeedButton2Click(Sender: TObject);
var
Gesamtzahl:double;
Gesamtzahlen: array of double;
i:integer;
s : String;
begin
Forum: Programmieren allgemein
by Natcree,
9. Dez 2013
Ich zeigt dir mal nen beispielcode aus meinem "Prog"
Aber nicht erschrecken lol
procedure TForm1.LMDSpeedButton2Click(Sender: TObject);
var
gesamtzahl,gesamtzahl1,gesamtzahl2,gesamtzahl3,gesamtzahl4,
gesamtzahl5,gesamtzahl6,gesamtzahl7,gesamtzahl8,
gesamtzahl9,gesamtzahl12,gesamtzahl13,gesamtzahl14,gesamtzahl15,
Forum: Programmieren allgemein
by Natcree,
9. Dez 2013
Hallo Zusammen Wiedereinmal
Ich habe 49 variablen einen arry of double draus machen ist kein Problem. Nun will ich aber jeder Variablen den 0 zuweisen
Habe es schon mit Versucht Gibt aber ne klare Fehlermeldung zurück
var
d: double;
Zahl: array of double;
begin