CalcFields von Dataset funktioniert nicht

[Sir Rufo]

Zitat von Luckner:

Habe ich jetzt umgeschrieben.

Delphi-Quellcode:

procedure TDataModule8.IBDataSetAuswaertungGridCalcFields(DataSet: TDataSet);
begin
  IBDataSetAuswaertungGrid.FieldValues['NUMMER'] := IBDataSetAuswaertungGrid.RecNo;
end;

Kein Erfolg. Komisch, als ob diese Prozedur hier nicht angestossen wird. Bei den Anderen funktioniert es. Irgendwie sehe ich vor lauter Wald, die Bäume nicht.

Du hast da eine Methode mit einem Parameter:

procedure TDataModule8.IBDataSetAuswaertungGridCalcFields( DataSet : TDataSet);

dann benutze doch einfach den Parameter:

Delphi-Quellcode:

procedure TDataModule8.IBDataSetAuswaertungGridCalcFields(DataSet: TDataSet);
begin
  // !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  // Wir nehmen hier den Parameter DataSet
  // !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  DataSet.FieldValues['NUMMER'] := DataSet.RecNo;
end;