Lannes hat geschrieben: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;
Endlich mal jemand der hier in diesem Thread den Code vernünftig formatiert.
Hatte schon die Befürchtung das jemand so einen ähnlichen Vorschlag macht:Code: 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;
so kann man viel Platz sparen
Danke für die blumen