Größe(Breite und Höhe) dynamischer Anzahl von Bildern vergl.

[Dani]

Hi!

Delphi-Quellcode:

 Result := true;
 If Length(BilderArray) > 1 then
  for i:=1 to High(BilderArray) do
   begin
    If  (BilderArray[i].Width <> BilderArray[0].Width)
    OR (BilderArray[i].Height <> BilderArray[0].Height) then
     begin
      //Die Bilder sind nicht gleich groß
      Result := false;
      break;
     end;
   end;
 Case Result of
  true: //Alle Bilder gleich groß;
  false: //Nicht alle Bilder gleich groß;
 end;