[gelöst] Alle Werte einer Spalte addieren

[l0lhaxx]

Hallo,

ich versuche einer bestimmten Spalte (Distanz [km]) alle Zeilen zu Addieren (DBase). Ich komme aber immer den Wert Null ausgegeben, egal welche Werte in das DBGrid eingegeben werden. Jemand eine Idee warum?

Code: Alles auswählen

 
procedure TForm1.MenuItem3Click(Sender: TObject);
var
  Distanz: Integer;
 
begin
 
 Distanz:=0;
 Edit1.Caption:= inttostr (Distanz);
 Dbf1.First;
 
 while not Dbf1.EOF do
 begin
 Distanz:= Distanz+Dbf1.FieldByName('Distanz [KM]').AsInteger;
 Dbf1.Next;
 end;
 
end; 
 

[baumina]

Wenn deine Ausgabe nur Edit1.Caption ist, dann liegt das daran, dass du die Variable "Distanz" ausgibst, bevor sie berechnet wurde.

[l0lhaxx]

So ein dummer Fehler.

Danke, klappt jetzt!!!

[l0lhaxx]

hat jemand eine Ahnung wie ich bei Dbase den letzten Eintrag auswählen?

Mit

Code: Alles auswählen

 Form1.Dbf1.Last

funktioniert das ganze leider nicht....

[Michl]

Mit

Code: Alles auswählen

 Form1.Dbf1.Last

funktioniert das ganze leider nicht....

Hier schon. Warum bei dir nicht?