Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
Re: Brauche ein "Map-System" oder sowas für ein sp
16. Feb 2005, 18:04
So mal was ganz einfaches
Delphi-Quellcode:
Var
Felder : Array[1..100,1..100] of TFeld;
x,y : Integer;
Begin
xstart:=1; //StartWert wenn nach Rechts dann +1
xende:=xstart+10; //10=Breite Bild/TileBreite;
ystart:=1; //StartWert wenn nach Unten dann +1
yende:=ystart+10; //10=Hoch Bild/TileHöhe
For x:=xstart to xende do
Begin
For y:=ystart to yende do
Begin
ImageList1.Draw(Canvas,x,y,Felder[x,y].ImgIndex);
End;
End;
End;
Frank Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|