Spiel programmieren, Hilfe benötigt.

[DeddyH]

Wie soll ich Dir helfen, wenn Du nicht mit dem Code herausrückst?

[Connor Temple]

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.

[DeddyH]

Wozu die lokale Image-Variable vom Typ integer? Du musst das Bild in das gerade ermittelte Image laden.

Delphi-Quellcode:

if Components[i] is TImage then
      begin
        DateinameIndex:=Random(ListeVonDateinamen.count);
        TImage(Components[i]).Picture.LoadFromFile(ListeVonDateinamen[DateinameIndex]);
        ListeVonDateinamen.Delete(DateinameIndex);

[Connor Temple]

Jetzt hat er bei dem Finally noch was zu meckern, dass er eine Deklaration erwartet, aber Finally findet.

[DeddyH]

Delphi-Quellcode:

ListeVonDateinamen:=TStringList.Create;
try //das hast Du unterschlagen bzw. nicht mitkopiert

[Blup]

Da fehlt auch noch ein begin:

Delphi-Quellcode:

for i:=0 to Form1.ComponentCount-1 do
begin

[DeddyH]

Wenn schon C&P, dann aber bitte vollständig.

[Deep-Sea]

Zitat:

Zitat von Blup (Beitrag 1077110)

Da fehlt auch noch ein begin

Oder das end ist zu viel :-D Wie man's sieht ...

[Connor Temple]

Trotzdem hab ich jetzt noch einen undefinierten Bezeichner nach dem Finally, das FreeAndNil.

[Deep-Sea]

FreeAndNil ist in der Unit SysUtils definiert. Aber an dieser Stelle reicht auch ein einfaches .Free :wink: