Witam mam pewien problem który może wydać się trywialny ale nie mogę sobie z nim poradzić proszę o sugestie. A mianowicie potrzebuję zapisać do pliku wszystkie informacje o czcionce robię to w następujący sposób
Procedure ZapiszFont;
var plik: File Of TFont;
zm : TFont;
begin
AssignFile(plik,'font.dat');
zm:=RichEdit1.Font;
Rewrite(plik);
Write(plik,zm);
CloseFile(plik);
end;
I niby wszystko jest ok plik się zapisuje nie ma błędów jednak gdy próbuję wczytać plik
Procedure WczytajFont;
var plik: File Of TFont;
zm : TFont;
begin
AssignFile(plik,'font.dat');
Reset(plik);
Read(plik,zm);
CloseFile(plik);
RichEdit1.Font:=zm;
end;
Po wywołaniu procedury WczytajFont wyskakuje mia AccesViolation czy ktoś mógłby mi pomóc ewentualnie naprowadzić na dobry trop