Bildershow funktioniert nicht

Hallo Experten/innen,

ich habe ein kleines Programm erstellt, mit dem man Bilder in einer zufälligen Reihenfolge anzeigen lassen kann.
HIer ist der Quellcode, der leider nicht funktioniert:

//---------------------------------------------------------------------------
#include 
#pragma hdrstop

#include "Slide.h"
//---------------------------------------------------------------------------
#pragma resource "\*.dfm"
TForm1 \*Form1;
String Bild;
const int Max = 100;
String Bilder[Max];
int Dauer,BildNummer,Anzahl;
//---------------------------------------------------------------------------
\_\_fastcall TForm1::TForm1(TComponent\* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void \_\_fastcall LoadImg(AnsiString FILENAME)
{
Form1-\>Image1-&gt:stuck\_out\_tongue\_winking\_eye:icture-\>LoadFromFile(Bild);
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::open\_mouth:effnenClick(TObject \*Sender)
{
try
 {
 OpenDialog1-\>Execute();
 OpenDialog1-\>Title = "Bilder öffnen";
 Anzahl=OpenDialog1-\>ComponentCount;
 for (int i=0; i FileName[i];
 }
 }
catch(...)
 {
 Application-\>MessageBox("Dateien konnten nicht geladen werden","Fehler beim Öffnen der Datei",16);
 }
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::FormCreate(TObject \*Sender)
{
Oeffnen-\>Top = ClientHeight-35;
Oeffnen-\>Left = ClientWidth/2-40;
Start-\>Top = ClientHeight-65;
Start-\>Left = ClientWidth/2-40;
Randomize();
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::FormResize(TObject \*Sender)
{
Oeffnen-\>Top = ClientHeight-35;
Oeffnen-\>Left = ClientWidth/2-40;
Start-\>Top = ClientHeight-65;
Start-\>Left = ClientWidth/2-40;
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::StartClick(TObject \*Sender)
{
Dauer = StrToInt(InputBox("Dauer der Anzeige:", "Bitte die Dauer der Anzeige der Bilder eingeben!", "3"));
Timer1-\>Interval=Dauer\*1000;
Timer1-\>Enabled=true;
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::Timer1Timer(TObject \*Sender)
{
try
 {
 BildNummer=random(Max);
 Bild=Bilder[BildNummer];
 LoadImg(Bild);
 }
catch(...)
 {
 Application-\>MessageBox("Dateien konnten nicht angezeigt werden","Fehler beim Anzeigen der Datei",16);
 }
}
//---------------------------------------------------------------------------

Nun möchte ich wissen, was nicht funktioniert.
Danke im Voraus
Philip

Nun möchte ich wissen, was nicht funktioniert.

Hi Philip, das kannst du uns besser sagen, als wir dir :smile:
Woher sollen wir das wissen.
Bitte stelle doch eine konkrete Frage!

Bringt er Fehler beim kompilieren?
Zeigt er nix an?
Stürzt das Programm ab?
Mit welcher Library wird implementiert?

Fragen über Fragen…

Ciao, Bill