Der code ist fürn Ar***
Zumindest so, wie ich ihn umgeschrieben habe.
Und irgendwie kann mir auch niemand helfen...
Hier ist der Code, den ich nicht selbst geschrieben habe, sondern nur verändert habe:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
ListeVonDateinamen:TStringlist;
DateinameIndex:Integer;
i:Integer;
Image : Integer;
begin
Randomize;
ListeVonDateinamen:=TStringList.Create;
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\1.bmp');
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\2.bmp');
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\3.bmp');
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\4.bmp');
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\-1.bmp');
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\-2.bmp');
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\-3.bmp');
ListeVonDateinamen.add('H:\Mathematik-Informatik\Delphi\ClickForest\Informatik-Bilder\-4.bmp');
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components[i] is TImage then
begin
DateinameIndex:=Random(ListeVonDateinamen.count);
Image.Picture.LoadFromFile(ListeVonDateinamen[DateinameIndex];
ListeVonDateinamen.Delete(DateinameIndex);
end;
end;
finally
FreeAndNil(ListeVonDateinamen);
end;
end;
end.