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!!