Spara Font

Skapa ett record som innehåller all information. Sedan skriver du ner recorden i en binär fil.

type
  TMyTextFile=record
     Font: String[20];
     Text: String[??]; <<--- Vet inte riktigt hur man ska lagra texten
  end;

procedure save();
var
  Stream : TFileSTream;
begin
  Stream := TFileSTream.Create('fil.xxx', fmCreate);
  try
    Stream.WriteBuffer(MyTextFile, sizeof(MyTextFile));
  finally
    Stream.Destroy;
  end;
end;