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?
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;