Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Динамическое создание TFont, TPen   Найти похожие ветки 

← →
konstantinov ©   (2003-06-11 19:55) [0]

Как правильно это сделать?
Пишу:
var Pen: array of TPen;
begin
Setlength(Pen,5);
for i:=0 to 4 do
begin
Pen[i].Create;
Pen[i].Assign(Image1.Canvas.Pen);
end;
Вылетает нарушение прав доступа....

end;

---

← →
clickmaker ©   (2003-06-11 19:58) [1]

Pen[i].Create;

А за такое можно и партбилет на стол положить...

Pen[i] := TPen.Create;

---

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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх

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