Скачать: CL | DM;

Почему шрифт не сохраняется в запись?   Найти похожие ветки 

← →
Jiura32d   (2003-09-22 13:08) [0]

Беру форму.Ставлю 5 кнопок, TLabel, и TFontDialog;
Делаю запись:

UserOptions=Record
PPF:TFont;
End;

var
Form1: TForm1;
usop:UserOptions;
datafile:File of Useroptions;

Исходниый код:

procedure TForm1.Button5Click(Sender: TObject);
begin
FontDialog1.Execute;
Label1.Font:=FontDialog1.Font;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
usop.PPF:=Label1.Font;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
assignFile(datafile,"123.ddd");
Rewrite(datafile);
Write(datafile,usop);
CloseFile(datafile);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
assignFile(datafile,"123.ddd");
Reset(datafile);
Read(datafile,usop);
CloseFile(datafile);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Font:=usop.PPF;
end;

В чем суть:Т.е.при нажатии на кнопку 5 в запись заносятся шрифт Label-а.Затем он сохраняется в файл.Перегружаем форму и пытаемся загрузить файл и запись из файла.Затем пытаемся присвоить шрифту то что было в записи.Не присваивается!!!!Почему?Ошибки не возникают,но шрифт (имя,размер цвет) не меняется.

---

← →
Skier ©   (2003-09-22 13:21) [1]

в файл ты пишешь указатель на эк-ляр класса TFont и не более того.
Кстати, не видно чтобы ты этот эк-ляр создавал

---

← →
mike.dld ©   (2003-09-22 13:24) [2]

Если хочешь сохранить шрифт, сохраняй его поля, а не, как правильно сказал Skier, указатель на него.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c