file of TFont

[Catbytes]

Hi,

das habe ich letztens mal verwendet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file of TFont;
  t: TFont;
begin
  //Speichern
  AssignFile(f, 'myfont.f');
  Rewrite(f);
  t := Label1.Font;
  BlockWrite(f, t, 1);
  CloseFile(f);

  //Laden
  AssignFile(f, 'myfont.f');
  Reset(f);
  BlockRead(f, t, 1);
  Label2.Font := t;
  CloseFile(f);
end;

Label2 mal mit anderem Font ausstatten, wie Label1. Nach Tastendruck nimmt Label2 dann den Font von Label1 an.