Hallo,
keine Ahnung, was du dir dabei gedacht hast, aber die Anzahl der Bilder ist wie sie ist - da darfst du nicht einfach eins abziehen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
fa: Integer;
begin
Randomize;
zaehl := 0;
filelistbox1.Directory := 'D:\Eigene Dateien\Eigene Bilder\';
filelistbox1.Mask := '*.bmp;*.jpg;*.jpeg';
SetLength(randoms, filelistbox1.Items.Count {- 1});
bildanzahl := filelistbox1.items.count {- 1};
ca := 0;
memo1.lines.add(inttostr(filelistbox1.Items.count));
for fa :=low(randoms) to high(randoms) do
randoms[fa] := fa;
end;
Freundliche Grüße