hm...stimmt...ich hab mal wohl wieder zu kompliziert gedacht und wollte jedes mit jedem vergleichen *g*
Ich bau den Code nur etwas um:
Delphi-Quellcode:
function TForm1.CheckPictureSize(): Boolean;
var
i: integer;
begin
Result := true;
for i:=1 to Form1.ComboBox1.ItemIndex do
begin
if(bitmaps[i].Width <> bitmaps[0].Width) OR (bitmaps[i].Height <> bitmaps[0].Height) then
begin
Result := false;
break;
end;
end;
end;
ich hab das length weggelassen, da das array IMMER 0..4 ist, unabhängig ob alle bilder existieren.
dürfte so funktionieren, jetzt teste ich es auch