Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Bilder Tauschen Mischen? (https://www.delphipraxis.net/149156-bilder-tauschen-mischen.html)

Korg PA 2x Pro 15. Mär 2010 17:13


Bilder Tauschen Mischen?
 
Hallo Leute,

ich habe folgendes Problem: Ich soll ein Schiebepuzzle programmieren, z.B.(http://www.zimberfamily.de/thomas/puzzle_03.html) was auch soweit schon funktioniert bis auf das Mischen/Tauschen der Bilder per klick auf einen Button damit der Spieler auch sortieren muss.

Ich lese die Bilder in ein Image mit dem Befehl Image1.picture.loadfromfile() ein diese sind mit einem zweidimensionalen Array verknüpft.

Habt ihr eine Idee, wie ich den Code schreiben könnte, der mir das mischen der Bilder per klick auf einen Button ermöglicht.

Vielen Dank im vorruas!

MFG Korg PA 2x Pro

Korg PA 2x Pro 15. Mär 2010 17:16

Re: Bilder Tauschen Mischen?
 
Ich habe folgendes schon versucht in einer eigen Procedure zuzuweisen, bekomme allerdings folgenden Fehler angezeigt: Undeclared Identifier 'image1' und für die weiteren Images auch. Haber auch schon versucht mit TForm1.image1 dann kommt folgender Fehler Methode Identifier expected.

Hoffe von euch kann mir einer Helfen Danke!

Gruß Korg PA 2x Pro


Delphi-Quellcode:
procedure tauschen;
var image: array[1..16] of Timage;
    x,y,q,r,s,d:integer;
    h:string;
begin

image[1]:= image1;
image[2]:= image2;
image[3]:= image3;
image[4]:= image4;
image[5]:= image5;
image[6]:= image6;
image[7]:= image7;
image[8]:= image8;
image[9]:= image9;
image[10]:= image10;
image[11]:= image11;
image[12]:= image12;
image[13]:= image13;
image[14]:= image14;
image[15]:= image15;
image[16]:= image16;

DeddyH 15. Mär 2010 17:52

Re: Bilder Tauschen Mischen?
 
Entweder Form1.Image1 (ohne T davor) oder gleich eine Methode von Form1 daraus machen.
Delphi-Quellcode:
type
  TForm1 = class(TForm)
  ...
    procedure tauschen;
  ...
end;

...

procedure TForm1.tauschen;
var image: array[1..16] of Timage;
    x,y,q,r,s,d:integer;
    h:string;
begin
  image[1]:= image1;
  //usw. usf.

Blup 16. Mär 2010 15:45

Re: Bilder Tauschen Mischen?
 
Wir wissen nicht wie du dir speicherst, an welcher Position welche Karte liegt.
Also können wir dir auch nicht sagen wie du die Positionen tauschen kannst.
Zeig uns deinen bisherigen Quelltext bzw. häng das Projekt an den Beitrag an.

Es hilft auch nicht, wenn du hier mehrere Beiträge zum selben Thema erstellst.


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:03 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz