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;

......