Zufallsbilder erstellen

[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)

[jacoj]

Äh ich bin gerade beim Forum durchforsten auf was gestoßen, könnte mir dies helfen??
(zumindest der Quellcode)

http://www.delphipraxis.net/142511-w...enproblem.html

[Sir Rufo]

Zitat:

Zitat von jacoj;

Äh ich bin gerade beim Forum durchforsten auf was gestoßen, könnte mir dies helfen??
(zumindest der Quellcode)

http://www.delphipraxis.net/142511-w...enproblem.html

Learning by Trial And Error so try

[Mithrandir]

Hach, unsere liebe CodeLibrary...

Zitat:

Zitat von jacoj (Beitrag 1060120)

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

Verzeichnisse nach Dateien durchsuchen

Zitat:

Zitat von jacoj (Beitrag 1060120)

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

Delphi-Quellcode:

Image1.LoadFromFile(StringList1.Items[i]);

[jacoj]

:-D:-D Juhu es funktioniert, vielen dank für die Hilfe!

Da wäre nur noch ein was, wie kann ich dem Programm sagen wenn dieses bild schon einmal aus
gewählt wurde dan nicht mehr benutzen bis wir einmal alle hatten ???

(bestimmt mit If und Then oder gehts auch anders)

[Matze]

Das musst du dir irgendwo merken (z.B. in einem Array) und dann z.B. mittels einer While-Schleife so lange eine neue Zufallszahl erzeugen, bis der generierte Index nicht im Array auftaucht. Diesen schriebst du dann in das Array.

[Progman]

Erstelle eine zweite Liste, fülle sie mit der ersten arbeite mit der zweiten. Ist ein Listeneintrag benutzt, wird er gelöscht. Natürlich musst du jetzt für Random Liste2.Count nehmen. Wenn Liste2 leer ist ( Liste2.count=0) dann wird sie neu gefüllt.

[mkinzler]

Oder einen eigene Typ der die gewünschten ( gelöscht, ...) Eigenschaften enthält

[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 :!:

[Sir Rufo]

Zitat:

Zitat von DelphiMini (Beitrag 1060245)

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 :!:

Und das funktioniert?

Erst die Referenz-Übergabe

Delphi-Quellcode:

Image1.Picture.Bitmap := Bitmap;

und dann die Referenz wieder wegschmeißen

Delphi-Quellcode:

FreeAndNil(Bitmap);

?