| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с динамическим массивом [Delphi, Windows]

Страницы:   < 1 2 >

Zeqfreed ©   (2003-12-14 13:28:00) 

Вот собственно код.

...
type
TSprite = class
 FRect : TRect;
 x,y,w,h : Integer;
 Visible : Boolean;
 procedure Show(const DestSurf,SourceSurf : IDirectDrawSurface7;
                      Params : Integer = DDBLTFAST_WAIT or
                      DDBLTFAST_SRCCOLORKEY);
end;

var
sprites : array of TSprite;
SpriteCount : Integer;...

...procedure AddSprite(Visible : Boolean;w,h,x,y : Integer;Rect : TRect);
begin
SetLength(sprites,SpriteCount);
sprites[SpriteCount] := TSprite.Create; //Здесь происходит ошибка
sprites[SpriteCount].x := x;
sprites[SpriteCount].y := y;
sprites[SpriteCount].w := w;
sprites[SpriteCount].h := h;
sprites[SpriteCount].FRect := Rect;
sprites[SpriteCount].Visible := Visible;
SpriteCount := SpriteCount + 1;
end;...

Пожалуйста, помогите выяснить в чём проблема? Может быть предложите свой вариант.

---

Zeqfreed   (2003-12-14 13:46:00) [21]

Справка-то есть! Но неужели трудно написать как надо!!!

---

Anatoly Podgoretsky   (2003-12-14 13:43:00) [22]

А справка у тебя есть?
И еще желательно также использовать и Length

---

Zeqfreed   (2003-12-14 13:40:00) [23]

А поподробней?..

---

Anatoly Podgoretsky   (2003-12-14 13:35:00) [24]

Лезешь за пределы выделенной памяти. Используй High

---

Страницы:   < 1 2 >

Наверх