Meherer Spalten glechzeitig anzeigen

[Panschi]

danke für die Hilfe
jetzt wird der Zeiger auf QrySlave nicht mehr geändert und siehe da... es klappt

Delphi-Quellcode:

procedure TFMain.QrySlaveCalcFields(DataSet: TDataSet);
begin
  if ersterDurchgang = 0 then
  begin
    Inc(ersterDurchgang);
    QryMaster.First;
  end;

  if QryMaster.FieldByName('Description').Value <> QrySlave.FieldByName('Description').Value then
  begin
    if QryMaster.FieldByName('Description').Value = '' then
    begin
      QrySlaveVeraendert.Value := 2;
    end
    else begin
      QrySlaveVeraendert.Value := 1;
    end;
  end
  else begin
    QrySlaveVeraendert.Value := 0;
  end;

  if QryMaster.Eof = false then
  begin
    QryMaster.Next;
  end
end;