Hallo leute ;)
bin noch ein ziemlicher newbie, was das programmieren angeht, werde also aller vorraussicht nach, viele Dinge, die verbesserungswürdig wären in meinen Programmen drin, allerdings komme ich damit klar, will schließlich kein profi, sondern nur hobbyprogrammierer werden.
hatte folgende idee:
für die schule wollte ich bei einem projekt ein minigame, wie mario, also 2-d und von der seite, programmieren. nach recherchen stellte sich dann heraus, dass das wohl komplizierter werden würde, als ich gedacht hab. deswegen bin ich darauf umgestiegen, nur einen level-editor zu programmieren.
dafür hab ich eine klasse wie folgt erstellt:
Code:
type Objekttyp = (Leer, SW, WS, Voll);
type TObjekt = class(TObject)
private
// private Deklarationen
zTyp : Objekttyp;
zNummer: integer;
zStartX: integer;
zStartY: integer;
zBild : TBitmap;
public
// öffentliche Deklarationen
constructor create(pTyp: Objekttyp; pNr, pX, pY : integer);
procedure reset(pTyp: Objekttyp; pNr, pX, pY : integer);
procedure draw;
function Typ: Objekttyp;
function Nummer: integer;
function StartX: integer;
function StartY: integer;
function Bild: TBitmap;
end;
habe dann auf uControl-ebene abgesehen von der Form erstmal folgende dinge im interface:
Code:
const Max = 100;
type Datentyp = record
Typ : Objekttyp;
Nummer: integer;
StartX: integer;
StartY: integer;
end;
type Dateityp = file of Datentyp;
var Datensatz: Datentyp;
Datei: Dateityp;
type TRaster = class(TObject)
private
// private Deklarationen
rCanvas : TCanvas;
public
// öffentliche Deklarationen
property Canvas : TCanvas read rCanvas write rCanvas;
procedure Render();
end;
type Welttyp = array[1..Max] of TObjekt;
mein create befehl sieht so aus:
Code:
procedure TForm1.FormCreate(Sender: TObject);
// Das Raster wird erschaffen
var i : integer;
begin
NummerAktuell := 0;
Raster := TRaster.Create;
Raster.Canvas := Self.Canvas;
zBild := TBitmap.Create;
zBild.HandleType := bmDIB;
self.DoubleBuffered := true;
for i := 1 to Max do
Welt[i] := TObjekt.create(Leer,i,(-11),(-11));
end;
sooo... wenn ich nun durch agieren auf der form, objekte verändert habe, und speichere, und dann laden möchte...
Code:
procedure TForm1.Speichern;
var Datum: Datentyp;
x: Datentyp;
i: integer;
Datenarray: array [1..Max] of TObjekt;
begin
if SaveDialog.Execute then
assignfile(Datei, SaveDialog.FileName);
rewrite(Datei);
for i := 1 to Max do Datenarray[i] := Welt[i];
Blockwrite(Datei, Datenarray, Max);
closefile(Datei);
end;
Code:
procedure TForm1.Laden1Click(Sender: TObject);
var Datum: Datentyp;
i: integer;
x : Datentyp;
Datenarray: array [1..Max] of TObjekt;
count: integer;
begin
if MessageDlg('Wollen sie vorher speichern?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes
then Speichern;
if OpenDialog.Execute then
begin
assignfile(Datei, OpenDialog.FileName);
reset(Datei);
Blockread(Datei, Datenarray, Max, count);
for i := 1 to count
do Welt[i].reset(Datenarray[i].Typ, Datenarray[i].Nummer,
Datenarray[i].StartX, Datenarray[i].StartY);
closefile(Datei);
Raster.Render;
BtStart.Visible := true;
end;
end;
... scheint bis dahin alles zu funktionieren (zumindest wird irgendwas gespeichert und wohl auch geladen...) allerdings bekomme ich eine fehler meldung in meiner Raster.Render procedure(Davor läuft die fehlerfrei):
Code:
begin
rCanvas.Pen.Color := clWhite;
rCanvas.Rectangle(0, 0, 720, 480);
Form1.Image1.Picture.LoadFromFile('Ressources\Bitmaps\Stickman_Ruhe.bmp');
rCanvas.Pen.Color := clGray;
for i := 1 to 60 do
begin
rCanvas.MoveTo(12*i,0);
rCanvas.LineTo(12*i,480);
end;
for i := 1 to 40 do
begin
rCanvas.MoveTo(0,12*i);
rCanvas.LineTo(720,12*i);
end;
for i := 1 to Max do Welt[i].draw;
end;
gleich in der ersten Zeile:
Code:
rCanvas.Pen.Color := clWhite;
und zwar eine "
access violation at 0x00457679 read of adress 0x98004108" falls das irgendwem hilft...
Ich hoffe es ist noch nicht alles zu spät...
wenn ihr noch irgendwo code braucht oder so, einfach melden...
Danke schonmal im vorraus,
mfg
KG