Anfängerfrage: Verknüpfungen

[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;