Zitat von
Jarmen_Kell:
@Khabarakh:
Naja das mit dem "begin" geht schon, er schließsts ja auch später wieder. Das ganze macht er danach noch einmal, allerdings frage ich mich auch sehr nach dem Sinngehalt
Delphi-Quellcode:
for I := 1 to strtoint(lbl1.Caption) do
biertest[I].top := biertest[I].Top + 20;
begin
if (biertest[I].Top + biertest[I].Height >= img1.Top) AND (biertest[I].Left <= img1.Left + img1.Width) AND (biertest[I].Left + biertest[I].Width >= img1.Left) then
begin
biertest[I].Visible := false;
lblres.Caption := inttostr(strtoint(lblres.Caption)+50);
end;
if biertest[I].Top > form1.ClientHeight then
biertest[I].Visible := false;
end;
Es geht natürlich so, aber es ist wohl offensichtlich, dass der Code-Block eigentlich zur Schleife gehört.