Вопрос про TFont ?

[juan666777]

Я сделал динамический массив записи

type
Ttip=record
x,y:integer;
Font:Tfont
end
.....
var
mas:array of Ttip;
....
mas[i].x:=100;
mas[i].x:=200;
mas[i].Font:=TFont.Create;
mas[i].Font:=FontDialog1.Font;
...
for i:=0 to n
begin
image1.canvace.Font:=mas[i].Font;
image1.canvace.TextOut(mas[i].x,mas[i].y,'Text!!!');
end;

И при прохождение этого цикла периодически вызывает ошибку 'Cannot assign a nil to a TFont'

Что надо сделать что бы работало стабильно ?

[Stilet]

for i:=0 to n

Для начала замени на:

for i:=0 to high(mas)

[Lime]

Может конструктором шрифта по другому воспользоватся?

[juan666777]

Мне не понятно почему то нормально работает то ошибку выдаёт

[Stilet]

juan666777

Это весь код смотреть и отлаживать нужно.

[_Dmitry]

А размер массива где-то задаётся?
SetLength(mas,n+1);

[juan666777]

С самим массивом всё в порядке работает хорошо пока я не включаю работу с Font .То есть пока в mas[i].Font нечего не записываю то всё работает хорошо .Я предполагаю что mas[i].Font:=TFont.Create;
проблема возможно какие то ещё характеристике надо вводить.Я бы всю прогу скинул но там около 1500 строчек