Problem bei Zufallsbildern

[kean]

Ich habe eine kleine Funktion geschrieben welche mit Zufallsbilder anzeigen soll

Delphi-Quellcode:

function Zufallsfeld:TImage;
var name:string;
begin
name := 'Image'+Inttostr(RandomRange(14,1))+'_'+inttostr(RandomRange(15,1));
result := TImage(name);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Imagelist1.GetBitmap(1,Zufallsfeld.Picture.Bitmap);
end;

Leider funktioniert das nicht. Kann mir jemand erklären wieso?

Die Namen meiner Bilder sind natürlich im Format Image1_1 usw aufgebaut.

[jfheins]

FindComponent

[kean]

Zitat von jfheins:

FindComponent

Delphi-Quellcode:

function Zufallsfeld:TImage;
var name:string;
begin
name := 'Image'+Inttostr(RandomRange(14,1))+'_'+inttostr(RandomRange(15,1));
result := FindComponent(name);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Imagelist1.GetBitmap(1,Zufallsfeld.Picture.Bitmap);
end;

Er bringt die Fehlermeldung "Undefinierter Bezeichner: 'FindComponent'".
Muss ich da noch irgendetwas einbinden? In der Delphi Hilfe steht mal nichts dabei.

[jfheins]

Ist in der Unit Classes ...

[kean]

Zitat von jfheins:

Ist in der Unit Classes ...

Die habe ich eingebunden bzw wird standardmäßig eingebunden. Wie kann es dann zu der Meldung kommen?

[tommie-lie]

Zitat von kean:

Die habe ich eingebunden bzw wird standardmäßig eingebunden. Wie kann es dann zu der Meldung kommen?

Der Sichtbarkeitsbereich stimmt nicht, FindComponent ist eine Methode von TForm, deine Funktion Zufallsfeld ist aber außerhalb dieses Namensbereiches und findet deswegen Form1.FindComponent nicht. Wenn du die globale Variable Form1 verwenden willst, sollte es mit Form1.Findcomponent(Parameter) funktionieren, eleganter wäre es aber, die Funktion Zufallsfeld() in die TForm1-Klasse zu packen oder der Funktion gleich eine Instanz von TForm als Parameter mitzuschicken.