Danke für die blumenLannes hat geschrieben:Endlich mal jemand der hier in diesem Thread den Code vernünftig formatiert.Maik81ftl hat geschrieben:also ich muß sagen, das ich mit dem "mehrere Anweisung in eine Zeile schreiben" kann seine Vorteile haben, Aber ich verwende diese if then wenn möglich immer soda weiß ich immer, ob ich alle "End;" drinne habe und wo der anfang bzw das ende ist.Code: Alles auswählen
Procedure Z1(bValue: Boolean; Farben: TProgSet); begin if bValue then begin with Form3.Image1 do begin . . end; end; end;
![]()
Hatte schon die Befürchtung das jemand so einen ähnlichen Vorschlag macht:so kann man viel Platz sparenCode: Alles auswählen
Procedure Z1(bValue: Boolean; Farben: TProgSet); begin if bValue then begin with Form3.Image1 do begin foo;foo2;foo3;x:=0;y:=0;end;end; end;

