Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
ВнизПомогите, люди! Глюк в мей проге! Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c