Summieren von Datensätzen!!

[Cancer]

Ist Okeh Leute habe es eben selber zufällig rausbekommen.

Hier der geänderte Code

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var gesamtzahl: integer;
begin
  // Verhindern, dass die Anzeige ständig aktualisiert wird:
  DataModule2.TableVideo.DisableControls;
  DataModule2.TableVideo.First;
  gesamtzahl:=0;
  while not DataModule2.TableVideo.Eof do begin
    if DataModule2.TableVideo.FieldByName('Genre').AsString = LabeledEdit1.Text then
      gesamtzahl:=gesamtzahl+DataModule2.TableVideo.IndexFieldCount;
    DataModule2.TableVideo.Next;
  end;
  DataModule2.TableVideo.EnableControls;
  Label1.Caption:=LabeledEdit1.Text+': '+IntToStr(gesamtzahl);

end;

Ist zwar an mein Programm angepasst, aber ihr werdet den Unterschied bestimmt sehen!!