| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохранить TFont в INI - файл как Data

Страницы:   < 1 2 >

koha! ©   (2008-09-19 06:03:00) 

как сохранять в ини-файлы структуры это понятно, а как можно из свойства Tfont скопировать структуру TFontData с минимальными усилиями не распарсивая.

Var
 INI  : TIniFile;
 Strm : TStringStream;
 Buff : String;
 SizeBuff: Integer;
 FD: TFontData;
begin
 Result := False;
 try
   try
     INI:=TIniFile.Create(CurPath+ConfigFile);

     With INI do begin
       
       SizeBuff:=SizeOf(FD);
       SetLength(buff,SizeBuff);
       FillChar(Buff[1],SizeBuff,0);
       Strm := TStringStream.Create(Buff);
       
        //примерно так можно сохранить одним разом все свойста,
       WriteBinaryStream(FontSection,'FontConfig',Strm);
     
   

     end;
     Result := true;
   finally
     INI.Free;
   end;
 except
   on E: Exception do
      MessageBox(0,PChar(E.ClassName+' ????????? ??????, ? ?????????? : '+E.Message),
      PChar('MSGLoger'),MB_ICONERROR);
 end;

Но вот как TFontData скопировать ее из Тfont?

---

koha!   (2008-09-19 10:09:00) [21]

TFontData - структура содержащая свойства шрифта в VCL
WriteBinaryStream чтобы сохранить БИНАРНУЮ сериализацию структуры в файл INI
Вопрс как получить из переменной типа TFont стуктуру TFontData

---

Сергей М.   (2008-09-19 08:45:00) [22]

Что такое "TFontData" ?

И почему Write BinaryStream, в товремя как стрим заведомо текстовый?

---

Страницы:   < 1 2 >

Наверх