Was hat das mit dem Bitmap zu tun? Für die Bewegungen usw. greifst du auf deine TFeld-Variable zu:
Delphi-Quellcode:
if Key=VK_Left then
if (Spieler.x>0) and Feld[Spieler.x-1,Spieler.y].Begehbar then
begin
Spieler.x:=Spieler.x-1;
//usw.
end
else
//Bewegung nicht möglich
end;
[EDIT]
Jetzt versteh ich es, du hast dich
die Bitmap-Datei von Jens Schumann bezogen
. In der Bitmap hast du jedes Texturviereck einmal vorhanden, die Positionen der Texturen stehen aber in der TFeld-Variable.
Tipp: Du kannst den Record ganz einfach mit
var FeldFile: File of TFeld
speichern und laden (auch mehrere in derselben Datei).