Spiel programmieren, Hilfe benötigt.

[Connor Temple]

Was ist das Kiss-Prinzip jetzt schon wieder?

[Deep-Sea]

KISS-Prinzip @ Wikipedia.
Sonst kopieren Schüler doch auch alles aus der Wikipedia?! :roll:

[Connor Temple]

Ich bin nicht so ein Wikipedia-Typi...

[DeddyH]

Kann denn Dein Lehrer jetzt damit leben, oder sollst Du die Dateien immer noch umbenennen, damit es wieder komplizierter wird?

[Connor Temple]

Ich lass sie jetzt einfach so...
Ist mir egal was er sagt, er meinte nur, damit es einfacher wird wenn man das mit length ausliest...

[DeddyH]

Was will er denn jetzt mit Length? In der momentanen Lösung ist es doch so: je Zahl wird ein String, der den Wert dieser Zahl darstellt, 4 Mal in der Stringliste hinterlegt. Anschließend wird ein zufällig gewähltes Element dieser Liste ermittelt. Der String wird dann als Dateiname herangezogen, die entsprechende Grafik in das aktuelle TImage geladen, die ursprüngliche Zahl in der Tag-Eigenschaft hinterlegt und das Element dann aus der Liste gelöscht. Somit sollte sichergestellt sein, dass z.B. im 3. TImage die Grafik mit der -1 erscheint und -1 als Tag eingetragen ist. Du kannst also Tag analog zur dargestellten Grafik auswerten. Das ist zwar nicht die Königslösung, sollte aber m.E.n. recht zuverlässig funktionieren.

[Connor Temple]

Er kann mit Tag nicht umgehen -.-
Er weiß absolut nichts über Tag gewusst, bis ich ihm das eben mal gezeigt hab.

[DeddyH]

Ohne Worte :roll:

[Bummi]

So, jetzt kannst Du Dich um die Logik bzgl. der tags kümmern.....

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  ListeVonDateinamen:TStringlist;
  DateinameIndex:Integer;
  i,j:Integer;
  Path:String;
begin
   begin
   Path := ExtractFilePath(paramstr(0)) + 'Informatik-Bilder\';
   for i := 1 to 24 do
     TImage(FindComponent('Image' + IntToStr(i))).Visible := true;
   end;
  Randomize;
  ListeVonDateinamen:=TStringList.Create;
  try
    for I := 1 to 4 do
        begin
         For j := 1 to 4 do
          begin
          ListeVonDateinamen.Add(Path + '+' + IntToStr(i) + '.bmp');
          ListeVonDateinamen.Add(Path + '-' + IntToStr(i) + '.bmp');
          end;
        end;
    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]);
        TImage(Components[i]).Tag := StrToInt(ChangeFileExt(ExtractFileName(ListeVonDateinamen[DateinameIndex]),''));
        ListeVonDateinamen.Delete(DateinameIndex);
      end;
      finally
   ListeVonDateinamen.Free;
  end;
end;

[Connor Temple]

Und wie bekomme ich die Bilder dann in Zahlen umgewandelt und ausgegeben?