Скачать: CL | DM;

Помогите, люди! Глюк в мей проге!   Найти похожие ветки 

← →
LaResistance   (2002-10-12 00:46) [0]

Создал я свой собственный класс:
type
TBaseSprite = class
PosX, PosY : Integer;
SpriteWidth : Integer;
SpriteHeight : Integer;
procedure Show(var FDDSurfBack, FDDSurfImages : IDirectDrawSurface7); virtual; abstract;
private
rcRect : TRect;
end;
TCollideInfo = record
X, Y : Integer;
end;

TSprite = class(TBaseSprite)
Delay : DWORD;
.............// Здесь ещё куча переменных
constructor Create (const SprDelay : DWord; FrmCount, SprWidth, SprHeight : integer);
function GetCenterX : Integer;
function GetCenterY : Integer;
.............// И здесь
procedure Show (var FDDSurfBack, FDDSurfImages : IDirectDrawSurface7); override;
private
Xinc : Integer;
Yinc : Integer;
CollideInfo : TCollideInfo;
ThisTickCount : DWORD;
LastTickCount : DWORD;
end;

...........

var
Spr : TSprite;

Это я работаю с DirectDraw. Но дело не в нём.
Короче, процедура доходит до определённой строчки, где я присваиваю значение (допустим Spr.PosX := 10;) или сравниваю
(if Spr.Delay > 100 then beep;) и дальше - процедура невтемно заканчивается!!! Строчка beep; уже не выполняется! Почему?
Если вы заинтересовались этим вопросом, то лучше оставьте мыло и я скину вам исходник (Без EXE и тупых приколов). Если у вас нету библиотек DirectDraw - то скажите, тоже скину. Единственное - DirectDraw под D6 вроде бы не пашет. Хотя наверное глюк в моей проге далеко не от DirectDraw (работаю под D5). Руки такие :) !!!!
Спасибо.

---

← →
Юрий Зотов ©   (2002-10-12 01:04) [1]

Прежде, чем работать с объектом, создать его не забыли?

---

← →
LaResistance   (2002-10-12 19:22) [2]

В том то и дело, создаёшь его (Spr.Create(.....);) - тоже дальше ничерта не пашет!!!

---

← →
ZrenBy ©   (2002-10-12 19:26) [3]

Spr := TSprite.Create(...)

---

← →
Anatoly Podgoretsky ©   (2002-10-12 19:43) [4]

Приведи больше кода с ошибкой, обязательно создание

---

← →
Юрий Зотов ©   (2002-10-12 22:59) [5]

Spr.Create(.....) - это где же Вы видели такое "создание"?

См.: ZrenBy © (12.10.02 19:26)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c