Kód: Vybrať všetko

type Tdata = record
             {Nastavenia vzhladu}
             pismo : TFont;
             pozadie : TColor;
             end;

var
  Form1: TForm1;
  data : Tdata;
  subor : file of Tdata;


procedure TForm1.FormCreate(Sender: TObject);
begin
    AssignFile(subor,'Data\data.sub');
    reset(subor);

    seek(subor,0);
    read(Subor, data);

    Form1.Font := data.pismo;  // TU HLASI PREKLADAC CHYBU EAccessViolation

   end;
end;



procedure TForm1.Skonci_A_UlozClick(Sender: TObject);
begin
   data.pismo := Form1.Font;
   data.pozadie := Form1.Color;

   AssignFile(subor,'Data\data.sub');
   reset(subor);
   Write(Subor, data);
 
   Application.Terminate;
end;