Spiel programmieren, Hilfe benötigt.

[Connor Temple]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  ListeVonDateinamen:TStringlist;
  DateinameIndex:Integer;
  i:Integer;
begin
  Randomize;

  ListeVonDateinamen:=TStringList.Create;
  try
    ListeVonDateinamen.add('H:\Informatik-Bilder\1.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\2.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\3.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\4.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-1.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-2.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-3.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-4.bmp');
    for i:=0 to Form1.ComponentCount-1 do
      if Components[i] is TImage then
      begin
        DateinameIndex:=Random(ListeVonDateinamen.count);
        TImage(Components[i]).Picture.LoadFromFile(ListeVonDateinamen[DateinameIndex]);
        ListeVonDateinamen.Delete(DateinameIndex);
      end;
      finally
    Free(ListeVonDateinamen);
  end;
  end;

end.

Jetzt hab ich zu viele Parameter bei dem Free.
Mit .Free hat es nicht geklappt.