Summe

[Traugott]

Hallo,

mit nachfolgendem Code möchte ich die Datensätze aus meinem DSBeispiel (Betrag) addieren. Geht aber nicht .

Code: Alles auswählen

var
    i:=integer;
    Summe : double;
begin
    i := DSKasse.RecordCount;
    k := DSKasse.
    summe := 0;
    DSKasse.RecNo:=0;
 repeat
    DSKasse.RecNo := DSKasse.RecNo +1;
    Summe := Summe + DSKasse.FieldByName('BBetrag').AsFloat;
 
 
 until i >= 2;

was mache ich falsch ??

[theo]

Geht aber nicht .

Das ist eine der informativsten Fehlerbeschreibungen.

was mache ich falsch ??

Ich glaube dein Hirn ist nicht eingeschaltet.
Wo ändert sich dein "i" in der repeat-Schleife?

[Traugott]

mein Zähler soll sein:
///Rec.No +1

er soll also den ersten und zweiten Datensatz im Feld Betrag zusammenzählen

[theo]

Egal, dein "i" ändert sich nie in der Schleife, also wird i>=2 niemals wahr, es sei denn es ist von Anfang an >=2, dann hat die Schleife aber keinen Sinn.

[Linkat]

Hallo Traugott,
dein Programmausschnitt ist nur schwer leserlich und auch unvollständig. Ich kenne deine typen bzw. records nicht.

Zunächst mal den Quellcode in Highlighter: (das ist die linke ComboBox über dem Textfeld, hier kannst du Freepascak/Lazarus auswählen, und schon wird der Code übersichtlicher dargestellt.

Code: Alles auswählen

var
i:=integer;
Summe : double;
begin
i := DSKasse.RecordCount;
k := DSKasse.
summe := 0;
DSKasse.RecNo:=0;
repeat
DSKasse.RecNo := DSKasse.RecNo +1;
Summe := Summe + DSKasse.FieldByName('BBetrag').AsFloat;
 
 
until i >= 2;

dann den Text noch ein bischen einrücken:

Code: Alles auswählen

var
  i:=integer;
  Summe : double;
  begin
    i := DSKasse.RecordCount;
    k := DSKasse.
    summe := 0;
    DSKasse.RecNo:=0;
    repeat
      DSKasse.RecNo := DSKasse.RecNo +1;
      Summe := Summe + DSKasse.FieldByName('BBetrag').AsFloat;
 
 
    until i >= 2;

So jetzt zu deinen Problemen:

k wird nichts vernünftiges zugewiesen, i wird nicht erhöht.
Du musst uns schon erklären was du überhaupt vorhast was ist DSKasse. ....?

Bitte genaue Angaben und genaue Fehlerbeschreibung.

Gruß, Linkat

[Traugott]

Hi

DSKasse ist ein TDBF und wird in ein DBGrid geladen. Hier gibt es dann das Feld Betrag dessen Beträge ich als Summe in einem Label anzeigen möchte.
Mit
FloatToStrF(Summe, ffCurrency, 15, 2);
soll mein Betrag angezeigt werden.

[MmVisual]

Was sagt denn der Compiler für eine Fehlermeldung?

[Traugott]

das ist es ja
keine Fehlermeldung
in meinem Label wird der Betrag des 2 Satzes angzeigt

[theo]

das ist es ja
keine Fehlermeldung
in meinem Label wird der Betrag des 2 Satzes angzeigt

Sag mal, hast du heute zu warm gebadet?
Was soll man denn zu deinen Meldungen sagen?

Ich kann doch nicht schreiben:

Code: Alles auswählen

asdfads asldf asdfa dfas
dafdsfasdf * asdfdsafads;
asdfasdfadsf
writeln(x);

und dann fragen: Warum geht das nicht?

So kann man dir nicht helfen.

[Traugott]

Hallo,

wenn man in einem Forum um Hilfe bittet, stelle ich mir
andere Antworten vor wie
hast du heute zu warm gebadet
sachlich und respektvoll sollte man meiner Meinung nach bleiben
auch wenn der Wissensunterschied gross ist.

Ich verabschiede mich für heute und wünsche noch einen schönen Abend.

mfg

[MmVisual]

Poste doch bitte mal gezippt das gesamte Projekt.

Wie Du ja siehst kann mit dem Codeschnipsel niemand was anfangen und somit kann auch niemand helfen.

[theo]

sachlich und respektvoll sollte man meiner Meinung nach bleiben
auch wenn der Wissensunterschied gross ist.

Wie man in den Wald ruft...
Zum Respekt gehört auch, das man die Frage anständig stellt.
Sowas:
k := DSKasse.
ist schludrig und nicht respektvoll.
Mit Wissen hat das nichts zu tun, nur mit Sorgfalt.
Anständige Fragen werden von mir immer anständig beantwortet.
Ich wollte dich aber nicht verletzen.

[creed steiger]

ums kurz zu machen:
(und das wurde schon mehrfach gepostet)

Code: Alles auswählen

repeat
DSKasse.RecNo := DSKasse.RecNo +1;
Summe := Summe + DSKasse.FieldByName('BBetrag').AsFloat;
until i >= 2;

wie sollte in dieser Schleife sich i verändern oder jemals 2 erreichen?