Einzelnen Beitrag anzeigen

Benutzerbild von Connor Temple
Connor Temple

Registriert seit: 16. Nov 2010
89 Beiträge
 
#22

AW: Spiel programmieren, Hilfe benötigt.

  Alt 25. Jan 2011, 09:14
Der code ist fürn Ar***
Zumindest so, wie ich ihn umgeschrieben habe.
Und irgendwie kann mir auch niemand helfen...
Hier ist der Code, den ich nicht selbst geschrieben habe, sondern nur verändert habe:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  ListeVonDateinamen:TStringlist;
  DateinameIndex:Integer;
  i:Integer;
  Image : Integer;
begin
  Randomize;

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

end.
  Mit Zitat antworten Zitat