Hi,
Delphi-Quellcode:
if (datamod.DataModule1.CoesCountQuery.FieldValues['avskey_pad'] = Null) then
TypCountmitPad[1] := datamod.DataModule1.CoesCountQuery.FieldValues['anzahl']
else
TypCountohnePad[1] := datamod.DataModule1.CoesCountQuery.FieldValues['anzahl']
Du überschreibst immer wieder das erste Element im Array. Ist das so gewollt?
Übrigends: das hier ist direkt nach einem
Query.Open überflüssig, es ist immer der erste Datensatz aktiv:
Delphi-Quellcode:
if datamod.DataModule1.CoesCountQuery.Eof then
begin
datamod.DataModule1.CoesCountQuery.First;
end;
und: evtl. musst du die
Query schließen, bevor sie erneut geöffnet wird.