Einzelnen Beitrag anzeigen

Cancer

Registriert seit: 31. Mai 2004
17 Beiträge
 
#1

Summieren von Datensätzen!!

  Alt 7. Sep 2004, 12:08
Also Leutz HI
Und zwar habe ich folgenden Code gefunden.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var gesamtzahl: integer;
begin
  // Verhindern, dass die Anzeige ständig aktualisiert wird:
  Table1.DisableControls;
  Table1.first;
  gesamtzahl:=0;
  while not Table1.eof do begin
    if Table1.FieldByName('Artikel').AsString='Radiergummithen
      gesamtzahl:=gesamtzahl+Table1.FieldByName('Anzahl').AsInteger;
    Table1.next;
  end;
  Table1.EnableControls;
  Label1.Caption:='Radiergummis: '+IntToStr(gesamtzahl);
end;
Wie kann ich diesen Code jetzt so ändern das, das Programm mir eine Ausgabe macht wie oft jetzt das Wort Radiergummi in der DB vorkommt??
  Mit Zitat antworten Zitat