Anfängerfrage: Verknüpfungen

[sakura]

Höchstens mit:

Delphi-Quellcode:

procedure ABC;
var
  A,B,C: Integer;

  procedure Check();
  begin
    if A = 1 then
    begin
      B := 2;
      C := 3;
    end;
  end;
begin
  ...
  Check;
  ...
  ...
  Check;
  ...
  ...
  Check;
  ...
end;

......

[derseitzer]

ich suche eher sowas wie dieses "and" so klappt das leider nicht, weil der befehl nicht immer der gleiche ist.. (andere bedingungen andere Parameter etc.)

[sakura]

Zitat von derseitzer:

ich suche eher sowas wie dieses "and" so klappt das leider nicht, weil der befehl nicht immer der gleiche ist.. (andere bedingungen andere Parameter etc.)

Dann hätte ich Dir eine kompaktere Lösung genannt, geht aber nicht, und würde den Code auch nicht wirklich lesbarer machen.

......

[HolgerX]

oder ganz einfach in einer Zeile

if a=1 then begin b:=2; c:=3; end;
Nicht schön, aber geht

[DeddyH]

Oder in der Richtung:

Delphi-Quellcode:

procedure ValuesByCondition(ConditionValue: integer; var First, Second: integer);
begin
  if ConditionValue = 1 then
    begin
      First := 2;
      Second := 3;
    end;
end;

procedure TFormTest.ButtonTestClick(Sender: TObject);
var
  a, b, c: integer;
begin
  a := 0;
  b := 0;
  c := 0;
  ValuesByCondition(a, b, c);
  ShowMessage(Format('a: %d, b: %d, c: %d', [a, b, c]));
  a := 1;
  ValuesByCondition(a, b, c);
  ShowMessage(Format('a: %d, b: %d, c: %d', [a, b, c]));
end;