Zufallsbilder erstellen

[aurikel_Max]

Zitat von jacoj:

Naja ich weis nur dies mit dem randomize und dem random

Du kannst doch zB. mit random einen Integerwert ermitteln, welcher dann der Indexwert aus einer TImageList ist (geht das?)

[DeddyH]

Zitat von aurikel_Max:

Du kannst doch zB. mit random einen Integerwert ermitteln, welcher dann der Indexwert aus einer TImageList ist (geht das?)

Index := Random(Liste.Count); In welchem Bereich liegt nun Index?

[mkinzler]

Besser
Index := Random(Liste.Count-1);

[DeddyH]

Wieso?

[Satty67]

besser nicht, wenn das letzte Bild auch angezeigt werden soll

Ich glaube über Range des Random-Parameter ist inzwischen schon jeder gestolpert.

[DeddyH]

Ja eben.

Zitat:

In Delphi gibt Random eine Zufallszahl im Bereich 0 <= X < Range zurück.

[Satty67]

...oder aus der C Hilfe, die etwas verständlicher ist:

Random(num) gibt eine Zahl von 0 bis num-1

[jacoj]

Erst einmal danke das ihr euch zeit für mein Problem nehmt,
nur werd ich aus euren Ratschlägen nicht ganz schlau?

Hier noch ma die Probleme wo ich nicht weis wie:

1. Die Bilder sind in einem Ordner (ergeben den Bilderpool), d.h. die müssten ja vorher ihrendwie dem Programm bekannt gegeben werden, so das die dann auch der Zufallsgenerator benutzen kann

2.Wenn der Generator dann eins hat muss das in einem bestimmten Bereich auf der Formdatei draufgeladen werden


Also das beste wäre wenn ihr ein Quelltextauszug hättet (da versteh ich das glaubich am besten)

[DelphiMini]

Erstelle doch einfach eine ImageList und mach die Bilder da rein.
(Doppelklick auf die TImageList)

Schreib dann zum zufälligen auswählen einfach:

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    ImageList1.GetBitmap(random({Maximalanzahl der Bilder}), Bitmap);
    Image1.Picture.Bitmap := Bitmap;
  finally
    FreeAndNil(Bitmap);
  end;

Bis Bald