Mini-Wettbewerb: Bedingter Vergleichs-Algo

[Dax]

Da, büdde

Delphi-Quellcode:

type
  TBspField = (bfA, bfB, bfC);
  TBspFieldSet = set of TBspField;

function Compare(A, B: TBsp; Fields: TBspFieldSet): Boolean;
begin
  Result := True;
  if bfA in Fields then Result := Result and (A.A = B.A);
  if bfB in Fields then Result := Result and (A.B = B.B);
  if bfC in Fields then Result := Result and (A.C = B.C);
end;

Ich hoffe es hilft dir