| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TFont и Exception [D5, Win95/98]
eLVik © (2002-10-07 18:58:00)Добрый вечер, МАСТЕРА!!!
Помогите разобраться с проблемой!
Есть такой код (Сразу оговорюсь - Syntax Check не жалуется):
interface
...
var
MyFont: TFont;
implementation
...
procedureTForm1.FormCreate(Sender: TObject);
begin
MyFont := TFont.Create;
...//далее считываю параметры фонта из ini-файла (Color, Size etc.)
end;
procedureTForm1.Button1Click(Sender: TObject);
begin
if FontDialog1.Execute then MyFont := FontDialog1.Font;
// здесь задаю новые параметры через диалог (!) ERROR
end;
procedureTForm1.FormDestroy(Sender: TObject);
begin
MyFont.Free; // Если убрать эту строку, ошибки НЕТ,но память то не освобждается 8(
...
end;
Теперь собственно зачем я пришёл...
1.Параметры фонта при загрузке формы считываются из ini нормально.
2.Если закрыть форму, не нажимая Button1, тоже всё OK.
3.Но, если нажать кнопку Button1, задать новые параметры, то при закрытии формы вылетает EExternalExeption (код ошибки непредопределён). Вопрос - ПОЧЕМУ!!!
Я выкрутился, объявив
var
MyFont: TFontDialog;
и внеся соответствующие изменения в конструктор Create и прочее. Затем использовал MyFont.Font, но всё-таки мне нужен "чистый" TFont.
ВСЕ, КТО СТАЛКИВАЛСЯ С ПОДОБНОЙ ПРОБЛЕМОЙ, ПОМОГИТЕ ПОЖАЙЛУЙСТА.
СПАСИБО ЗА ВНИМАНИЕ.
eLVik (2002-10-08 17:09:00) [1]ВСЁ ПОНЯЛ!!!
СПАСИБО
Юрий Зотов (2002-10-08 01:17:00) [2]> Вопрос - ПОЧЕМУ!!!
Потому что в Button1Click Вы переопределяете ссылку, причем неверно. В итоге и память теряется, и MyFont ссылается в никуда - а отсюда и ошибка в FormDestroy. Используйте Assign, как уже было сказано Best Before 2024.
Best Before 2024 (2002-10-07 19:00:00) [3]procedure TForm1.Button1Click(Sender: TObject);
begin
if FontDialog1.Execute then MyFont.Assign(FontDialog1.Font);end;
| |
