Sorry aber das verstehe ich gerade nicht.
Delphi-Quellcode:
// Felder ermitteln
//==============================
if CheckBox2.Checked then
Begin
for Fld := 0 to q.Fields.Count -1 do
Begin
if Fld > 0 then FeldListe := FeldListe + ',';
FeldListe := FeldListe + q.Fields[Fld].FieldName;
end;
end; // End zu if CheckBox2.Checked then
// Alle Datensätze durcharbeiten
//==============================
for DS := 1 to 30000 do
Begin
if not CheckBox2.Checked then FeldListe := '';
WertListe := '';
INC(GesGearb);
for Fld := 0 to q.Fields.Count -1 do
Begin
FeldName := q.Fields[Fld].FieldName;
if not CheckBox2.Checked then if FeldListe <> '' then FeldListe := FeldListe + ',';
if WertListe <> '' then WertListe := WertListe + ',';
if ((FeldName = 'ZAEHLER') or (FeldName = 'LO'))
....
then Wert := IntToStr(DS)