Oh, sorry. Muss ich irgendwie überlesen haben.
Also ich habe mir jetzt die Klassen mal schnell in ein Projekt kopiert und dass kompiliert, aber bei mir tritt da kein Fehler auf. Ich habe aber auch nicht Delphi 7.
Du könntest ja mal folgendes versuchen:
Delphi-Quellcode:
tsnake = class
x:array[1..100] of integer;
y:array[1..100] of integer;
vx,vy,r,laenge:integer;
farbe:tcolor;
richtung:trichtung;
procedure init(fneu:tcolor; xneu, yneu, vxneu, vyneu, rneu:integer);
procedure zeigedich;
procedure bewegedich;
procedure wachsen;
end;
tapfel = class
x:integer;
y:integer;
r:integer;
score:integer;
farbe:tcolor;
procedure ini; overload;
procedure ini(fneu:tcolor; xneu, yneu, rneu:integer); overload;
procedure zeigediche;
procedure fressen;
end;
auch wenn ich kaum glaube das es daran liegt.
Edit:
Nur mal so nebenbei bemerkt, der jenige, der diesen Code geschrieben hat, hat nicht so wirklich Ahnung von
OOP.