Bilder zur Laufzeit generieren -> Fehler: EOutOfResources

**fuisch**

In meinem Programm sollen zu jeder Bilddatei, deren Adressen in der Stringliste Dateien gespeichert sind Vorschaubilder erzeugt werden. Bei wenigen Bildern geht das so wie es untem im Quellcode steht auch gut, wenn es jetzt aber mehr Bilder werden, bleibt das Programm irgendwann mit der Fehlermeldung "Project Project1.exe raised exception class EOutOfResources with message 'Der Parameter stimmt nicht.'.". hängen. Wie muss ich das mit den Bildern machen damit es funktioniert?

zusammenfalten · markieren

Delphi-Quellcode:

			for n:= 0 to Dateien.Count - 1 do begin

      listbox1.items.add(extractfilename(Dateien[n]));

      if (n MOD 8 = 0) AND (n<>0) then begin

        reihe:=reihe+1;

        bildnummer:=0;

      end;

      Image[n]              := TImage.Create(Frame21); 

      Image[n].Left         := bildnummer*95+8;

      Image[n].Top          := reihe*90+8;

      Image[n].Height       := 72;

      Image[n].width        := 87;

      Image[n].Parent       := Frame21;

      Image[n].Stretch      := true;

      Image[n].Proportional := true;

      Image[n].Picture.LoadFromFile(Dateien[n]);

      bildnummer:=bildnummer+1;

end;

Bilder zur Laufzeit generieren -> Fehler: EOutOfResources

Bilder zur Laufzeit generieren -> Fehler: EOutOfResources

Forumregeln