Einzelnen Beitrag anzeigen

Benutzerbild von Fussel9
Fussel9

Registriert seit: 25. Mai 2009
322 Beiträge
 
Turbo Delphi für Win32
 
#1

mehrere fast gleichnahmige Jpg fast gl.namig. TImages zuweis

  Alt 29. Dez 2009, 21:04
Hi sorry aber mir ist echt kein passender Titel eingefallen

Ich möchte gerne das mein programm eine Zufallszahl erzeugt, diese soll dann an den LoadFromFile pfad angehengt werden...
KlarText: Zufällige Nr -> 6
........... -> Lade Bild KarteNr.G.jpg

Ich hab da schon mal was versucht, aber so klappts nicht, denn hier müsste ich als Parameter übergeben:

Austeilen([Image1],2); was ganz nebenbei auch noch zu ner fehlermeldung führt (zugriffsverletzung)...
Haben möchte ich: Austeilen([Image],2); hat jemand einen vorschlag?
Anbei mein Versuch...

Delphi-Quellcode:
procedure TFormMain.Austeilen(Card: array of TImage; prunde: Integer);
var
  i: Integer;
begin
for i := 1 to prunde do
  begin
    Card[i].Picture.LoadFromFile(X+'CardRED0'+IntToStr(i)+'.jpg');
  end;
end;
  Mit Zitat antworten Zitat