Objekte zur Laufzeit erzeugen

[Sir Rufo]

So dann will ich auch noch mal einen zum Besten (bzgl. der Formatierung) geben.

3 Varianten

Delphi-Quellcode:

procedure Foo1;
begin
if Voraussetzung then begin
MeinCode1;
MeinCode2;
end else begin
MeinCode2;
MeinCode1;
end;
end;

procedure Foo2;
begin
  if Voraussetzung then
  begin
    MeinCode1;
    MeinCode2;
  end
  else
  begin
    MeinCode2;
    MeinCode1;
  end;
end;

procedure Foo3;
begin
  if Voraussetzung
  then
    begin
      MeinCode1;
      MeinCode2;
    end
  else
    begin
      MeinCode2;
      MeinCode1;
    end;
end;

und was CnPack daraus macht

Ja, aus dem Grund nehme ich Variante 3