Zugriff auf gemeinsame Eigenschaft in unterschiedlichen Klassen

[norwegen60]

Zitat von norwegen60:

Delphi-Quellcode:

TBaseList = class(TObjectList<TBase>)
  privat
    FParentObject: TObject;
  public
    property ParentObject: TObject read FParentObject write FParentObject;
  end;

TMessData1List = class(TBaseList)
  privat
  public
  end;

Auch dieses Konstrukt hat einen großen Nachteil. Was vorher so aussah

Delphi-Quellcode:

var
  lBaseSample: TBaseSample;
begin
  Result := false;
  for lBaseSample in FSamplingList do
    if (lBaseSample.StatusSample <> assFilled) and (lBaseSample.StatusSample <> assProcessed) then
      exit;
  Result := true;
end;

sieht jetzt so aus:

Delphi-Quellcode:

var
  i: Integer;
  lBaseSample: TBaseSample;

begin
  Result := true;
  for i := 0 to Pred(FSamplingList.count) do
  begin
    lBaseSample := TBaseSample(FSamplingList[i]);
    if (lBaseSample.StatusSample <> assFilled) and (lBaseSample.StatusSample <> assProcessed) then
      exit;
  end;
  Result := true;
end;

Was mich am meisten daran stört ist dass ich jetzt überall ein Typwandlung lBaseSample := TBaseSample(FSamplingList[i]); statt lBaseSample := FSamplingList[i]; machen muss.

Jetzt wäre ich doch froh, wenn mir noch mal einer einen Tipp geben könnte

Grüße
Gerd