Zugriff auf Public nur wenn Bedingung erfüllt ist

[himitsu]

Zitat von stOrM:

Hehe nun ist die Verwirrung perfekt

Delphi-Quellcode:

TUpdateEngine = class
  property isWin7: Boolean ...;
  procedure NurFürWin7;
  procedure NurFürWin7oderXP;
end;

procedure TUpdateEngine.NurFürWin7;
begin
  if not isWin7 then 
    raise Exception.Create('ist nicht erlaubst');
  ...
end;

procedure TUpdateEngine.NurFürWin7oderXP;
begin
  if not (isWin7 or isWinXP) then 
    raise Exception.Create('ist nicht erlaubst');
  ...
end;