TFont и Exception

← →
eLVik (2002-10-07 18:58) [0]

Добрый вечер, МАСТЕРА!!!
Помогите разобраться с проблемой!
Есть такой код (Сразу оговорюсь - Syntax Check не жалуется):

interface
...
var
MyFont: TFont;

implementation
...
procedure TForm1.FormCreate(Sender: TObject);
begin
MyFont := TFont.Create;
...//далее считываю параметры фонта из ini-файла (Color, Size etc.)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if FontDialog1.Execute then MyFont := FontDialog1.Font;
// здесь задаю новые параметры через диалог (!) ERROR
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
MyFont.Free; // Если убрать эту строку, ошибки НЕТ,но память то не освобждается 8(
...
end;

Теперь собственно зачем я пришёл...
1.Параметры фонта при загрузке формы считываются из ini нормально.
2.Если закрыть форму, не нажимая Button1, тоже всё OK.
3.Но, если нажать кнопку Button1, задать новые параметры, то при закрытии формы вылетает EExternalExeption (код ошибки непредопределён). Вопрос - ПОЧЕМУ!!!

Я выкрутился, объявив

var
MyFont: TFontDialog;

и внеся соответствующие изменения в конструктор Create и прочее. Затем использовал MyFont.Font, но всё-таки мне нужен "чистый" TFont.

ВСЕ, КТО СТАЛКИВАЛСЯ С ПОДОБНОЙ ПРОБЛЕМОЙ, ПОМОГИТЕ ПОЖАЙЛУЙСТА.
СПАСИБО ЗА ВНИМАНИЕ.

← →
Best Before 2024 (2002-10-07 19:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
if FontDialog1.Execute then MyFont.Assign(FontDialog1.Font);end;

← →
Юрий Зотов (2002-10-08 01:17) [2]

> Вопрос - ПОЧЕМУ!!!

Потому что в Button1Click Вы переопределяете ссылку, причем неверно. В итоге и память теряется, и MyFont ссылается в никуда - а отсюда и ошибка в FormDestroy. Используйте Assign, как уже было сказано Best Before 2024.

← →
eLVik (2002-10-08 17:09) [3]

ВСЁ ПОНЯЛ!!!
СПАСИБО

TFont и Exception Найти похожие ветки