Sep 30

Каким образом возможно сохранить обьект под названием TFont в таблице БД?

Сегодня мы будем разбирать вопрос, который звучит следующим образом: «Как представляеться возможным сам обьект сохранить с именем TFont в нужном реестре, файле либо же таблице БД?..

В том случае, если Вы обожаете смотреть Онлайн телевидение и слушать интернет радио, заходите на Луганский портал - rebiznes.ru, где находиться большой каталог радио- и телестанций!

Ответ на представленную задачу не такой уже и простой, как может Вам показатся на первый взгляд…

Необходимо сохранять все нужные атрибуты

шрифта (как, к примеру имя, размер и т.д.), а не отнюдь не сам обьект под именем TFont. Именно после того, когда происходит считывания необходимой информации обязатеьно

следует провести проверку того факта, имеется ли шрифт такой, перед тем как использовать его.

С целью того, чтобы вовсе

голословными перед собственными читателями не показаться, добавим мы сейчас также еще и ответ Borland’а собственным примером сохранения либо же чтения

самого шрифта из надобного реестра…

Вот небольшой пример необходимой для Вас кодировки Дельфи:

Uses ... Registry;

procedure SaveFontToRegistry(Font : TFont; SubKey : String);

Var

R : TRegistry;

FontStyleInt : byte;

FS : TFontStyles;

begin

R:=TRegistry.Create;

try

FS:=Font.Style;

Move(FS,FontStyleInt,1);

R.OpenKey(SubKey,True);

R.WriteString('Font Name',Font.Name);

R.WriteInteger('Color',Font.Color);

R.WriteInteger('CharSet',Font.Charset);

R.WriteInteger('Size',Font.Size);

R.WriteInteger('Style',FontStyleInt);

finally

R.Free;

end;

end;

Это все…

Несмотря на то, что кодик небольшой, он являеться очень действенным, именно в этом случае и с его помощью легко решить поставленную перед нами в первом предложении, и кстати не такую уж и легкую задачу.

Успешного программирования Вам!


Поделитесь вашими мыслями



Ссылки в комментариях будут свободны от nofollow.

Поддерживаемые теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> 

Ссылки в комментариях будут свободны от nofollow.