Einzelnen Beitrag anzeigen

Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
659 Beiträge
 
Delphi 12 Athens
 
#2

AW: Aufzählungstyp-Variablen vergleichen

  Alt 10. Jul 2018, 10:16
Etwa so?
Mit der entscheidenden einen Zeile.

Delphi-Quellcode:
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TFeld = (A, B, C, D, E, F, G, H, I, J, K);
  TFelder = set of TFeld;

var
  FPflichtfelder: TFelder = [A, B, C, D];
  FVar1: TFelder = [A, C, E];
  FVar2: TFelder = [A, B, C, D, E];

function Pruefe(Var1, Var2: TFelder): Boolean;
begin
  Result:=(Var1*Var2)=Var1;
end;

begin
  try
    if Pruefe(FPflichtfelder,FVar1) then
      writeln('alles drin')
    else
      writeln('da fehlt was');
    if Pruefe(FPflichtfelder,FVar2) then
      writeln('alles drin')
    else
      writeln('da fehlt was');
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Jetzt so implementiert, wie du es beschrieben hast in deinem Text (also var1 muss komplett in var2 enthalten sein), das heißt, die Pflichtfelder müssten dann der erste Parameter sein - genau anders herum als in deinem Codebeispiel.

Oder habe ich jetzt zu einfach gedacht?
  Mit Zitat antworten Zitat