Tabellen springen zum letzten Datensatz, warum?

[plautzer]

Ja, das steht alles in Formcreate.
Ich sehe auch ein, dass das was ich hier mache nicht viel sinn, rein vom lernen her macht, aber das ist eben Schule. Uns wurde vor gut 2 wochen gesagt, das wir ein programm programmieren sollen mit Beschreibung struktogramm etc... . Das wäre ja alles kein Thema, aber da es zum jahresende immer noch stressiger und jeder noch schnell was aufgeben will, das bremst den Elan und somit die Ausführung gewaltig..naja und bis morgn muss es fertsch sein.Nun aber zum programm:

Ich habe den Fehler fürs das springen des datensatzes gefunden:

Delphi-Quellcode:

procedure TMietverwaltung.brutto_summe;
var bru_su:currency;
a:integer;
begin
bru_su:=0.0;
  while Not Table1.EOF do
  begin
    bru_su := bru_su +Table1.FieldByName('Bruttomiete').AsFloat;
    table1.Next;
  end;
dbtext3.Caption := Format('%8.2f', [bru_su])+' €';
a:=table1.RecordCount;
dbtext2.Caption:=inttostr(a);
end

Es soll jeweils die summe einer Spalte (miete) ermittelt werden, ich weiss aber nicht wie ich das anders machen soll als oben. Habt ihr ne idee?

Wenn man eine doppelte ID eingibt, dann sagt der erst was beim speichern, ... d.h. bei mit zumindest, das ein fehlermeldung kommt und ab da an spinnt das programm, es wir eine datensatz ohne ID, also leer, erstellt und ab da hat man verloren, mann muss alle daten löschen bevor man das leere feld wegbekommt.

Plautzer