The way I do it is as follows
TMonsterRec = Record
Name, Type : Stirng;
End;
TMonster = Class
Data : TMonster;
End;
Load monsters
While not File.eof do
Begin
Monster := TMonster.Create;
Read(File,Monster.TMonster);
End;
The way I do it is as follows
TMonsterRec = Record
Name, Type : Stirng;
End;
TMonster = Class
Data : TMonster;
End;
Load monsters
While not File.eof do
Begin
Monster := TMonster.Create;
Read(File,Monster.TMonster);
End;
William Cairns
My Games: http://www.cairnsgames.co.za (Currently very inactive)
MyOnline Games: http://TheGameDeveloper.co.za (Currently very inactive)
Bookmarks