if...then

[MrSpock]

Hallo Privateer3000,

in deinem Fall sähe das Konstrukt dann wie folgt aus:

Code:

  if input = cons then
  begin
      Unterschied1Gleich;
      Unterschied2Gleich;
      Unterschied3Gleich
   end
   else 
   begin
      Unterschied1Ungleich;
      Unterschied2Ungleich;
   end;
    
    AbhierallesGleich;

du kannst aber bei nur einigen Unterschieden auch eine Procedure schreiben, die die Unterschiede in Abhängigkeit von deinem Vergleich setzt:

Code:

procedure Tform1.SetzteSchalter(Bedingung: Boolean);
begin
   if Bedingung then
   begin
       Button1.Enabled := True;
       ...
   end
   else
   begin
      Button1.Enabled := False;
      ...
   end
end;

Jetzt könnte die Steuerung so aussehen:

Code:

SetzeSchalter(input=cons);
AbhierallesGleich;

Dabei sind die Proceduren Unterschied..., AbhierallesGleich etc. nur Platzhalter für deinen echten Code.