Spiel programmieren, Hilfe benötigt.

[DeddyH]

Gibt es unter Delphi 3 bereits TStrings.AddObject?

[Connor Temple]

Ich weiß nicht, wo ich das finde, momentan bin ich sowas von verwirrt, vom Lehrer und von allem.
Ich bin echt kurz vorm Aufgeben...

[DeddyH]

Schau doch einfach in die mitgelieferte Hilfe. Ggf. musst Du allerdings erst ein MS-Tool installieren, damit *.hlp-Dateien auch angezeigt werden.

[Deep-Sea]

Zitat von DeddyH:

Gibt es unter Delphi 3 bereits TStrings.AddObject?

Und selbst wenn nicht: Es reicht, wenn man die Zahlen in der Liste speichert anstatt die kompletten Dateinamen. Dann kann man diese direkt dem Tag zuweisen und den Dateinamen kann man sich zusammensetzen.

[DeddyH]

Solange die Dateinamen mit der Zahl übereinstimmen hast Du Recht (zumindest, solange man bei TStringlist bleibt, was ich empfehlen würde, um nicht noch mehr Verwirrung zu stiften). Dafür muss man dann halt sorgen.

[edit] Also müsste das dann so funktionieren:

Delphi-Quellcode:

const AnzahlProBild = 4; //ursprünglich waren das mal 3, aber was solls
for i := -4 to 4 do
  if i <> 0 then
    for j := 1 to AnzahlProBild do  
      DateinamenListe.Add(IntToStr(i));

Nun sollte jede Zahl von -4 bis 4 (exklusive der 0) 4 mal als String in der Liste stehen. Den String selbst kann man nun für den Dateinamen verwenden, mittels Rückumwandlung in die Zahl dann für den Tag des TImage.[/edit]

[Connor Temple]

Ich kann meine Gedanken momentan echt nicht mehr ordnen...
Ich weiß nicht, wo dieser Text jetzt in das Programm soll...

[DeddyH]

Mal alles zusammengefasst (aus dem Kopf, daher ungetestet):

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
const 
  AnzahlProBild = 4;
  Dateipfad = 'H:\Informatik-Bilder\';
var
  ListeVonDateinamen:TStringlist;
  DateinameIndex:Integer;
  i, j:Integer;
begin
  for i := 1 to 24 do
    TImage(FindComponent('Image' + IntToStr(i))).Visible := true;
  
  Randomize; //das gehört ins FormCreate oder so, jedenfalls nur einmal im Programm aufrufen

  ListeVonDateinamen:=TStringList.Create;
  try
    //Stringliste füllen
    for i := -4 to 4 do
      if i <> 0 then
        for j := 1 to AnzahlProBild do
          ListeVonDateinamen.Add(IntToStr(i)); 
    //Images mit Bildern belegen      
    for i:=0 to ComponentCount-1 do
      if Components[i] is TImage then
        begin
          DateinameIndex:=Random(ListeVonDateinamen.count);
          TImage(Components[i]).Picture.LoadFromFile(Dateipfad + ListeVonDateinamen[DateinameIndex] + '.bmp');
          //Tag setzen
          TImage(Components[i]).Tag := StrToInt(ListeVonDateinamen[DateinameIndex]);
          ListeVonDateinamen.Delete(DateinameIndex);
        end;
  finally
    ListeVonDateinamen.Free;
  end;

end;

[Deep-Sea]

Zitat von DeddyH:

Delphi-Quellcode:

for i := 1 to 24 do
  TImage(FindComponent('Image' + IntToStr(i))).Visible := true;

[...]

Delphi-Quellcode:

for i:=0 to ComponentCount-1 do
  if Components[i] is TImage then

Wieso einmal mit FindComponent und einmal anders? Das könnte man doch auch gleich halten

[DeddyH]

Ich hab' s doch nur kopiert