Привет!
Помогите плиз, я ваще ничего не понимаю....

Пишу в FormShow

...

var FF: file of TFont;
    F: TFont;

...

   AssignFile(FF,FontName);
   Reset(FF);
   Read(FF, F);
   Memo1.Font:=F;
   CloseFile(FF);

....

Пишу в FormClose
...

    FF: File of TFont;

...

  AssignFile(FF, FontName);
  Rewrite(FF);
  write(FF, Memo1.Font );
  CloseFile(FF);

...

И почему оно не сохраняет шрифт после закрытия?

Здравствуйте, Syrota, Вы писали:

S> FF: File of TFont;
S>...
S> write(FF, Memo1.Font );

S>И почему оно не сохраняет шрифт после закрытия?
S>

А почему оно должно сохранять?

Здравствуйте, Syrota, Вы писали:


S>Привет!
S>Помогите плиз, я ваще ничего не понимаю....

S>Пишу в FormShow

S>...
S>

S>var FF: file of TFont;
S>    F: TFont;
S>

S>...
S>

S>   AssignFile(FF,FontName);
S>   Reset(FF);
S>   Read(FF, F);
S>   Memo1.Font:=F;
S>   CloseFile(FF);
S>

S>....

S>Пишу в FormClose
S>...
S>

S>    FF: File of TFont;
S>

S>...
S>

S>  AssignFile(FF, FontName);
S>  Rewrite(FF);
S>  write(FF, Memo1.Font );
S>  CloseFile(FF);
S>

S>...

S>И почему оно не сохраняет шрифт после закрытия?
S>

TFont — ссылка на объект типа TFont, а не его содержимое (sizeof(TFont)=4).

так что придется все поля поотдельности сохранять или, если нужны только published, то можно воспользоваться rtti

Hello, Syrota!

S> Помогите плиз, я ваще ничего не понимаю....

Я тоже ничего не понимаю.

S> AssignFile(FF,FontName);
S> Reset(FF);
S> Read(FF, F);

А что вы такое читаете, что это за файл такой?

S> И почему оно не сохраняет шрифт после закрытия?

Думаю олно честно сохраняет pointer который ты ей передал.
Даже 2 пойнтера.

Хотя я *такого* не пробовал.

Что ты вообще хочешь сделать то?
Временной подклбючение TTF-файлов делается через Win32 Api (описано в FAQах)
--
[tip] Fix for Outlook Express quoting: http://Arioch.nm.ru/FL/Fidolook_SL.png
E-mail is faked because of spam. the_Arioch@NM.falseDomain.ru