tfont in record speichern und record in datei speichern

[markus lemcke]

tagchen,

bei meinem visitenkartenprogramm möchte ich die einstellungen speichern.
ein freund hat mir geraten alles in einen record und dann mit folgenden
prozeduren speichern:

procedure Save(Dateiname: String; Infos: TInfo);
var Stream: TFileStream;
begin
if FileExists(Dateiname) then
begin
if MessageDlg('Datei '+Dateiname+' existiert bereits. Überschreiben?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Stream := TFileStream.Create(Dateiname, fmOpenReadWrite);
Stream.Write(Infos, sizeof(TInfo));
Stream.Free;
end;
end else
begin
Stream := TFileStream.Create(Dateiname, fmCreate);
Stream.Write(Infos, sizeof(TInfo));
Stream.Free;
end;
end;

das klappt ganz gut, nur wenn ich dem record tinfo ein feld vom typ
tfont hinzufüge, klappt das speichern/laden nicht, warum????

mfg

markus

[Thomas Melchert]

<p>Hallo Markus<br>
<br>
TFont ist ein Objekt, das von TGraphicsObject abgeleitet ist. Dein Problem liegt (wahrscheinlich) daran,<br>
dass bei Deiner Speicherroutine keine Objektinformationen gespeichert werden sondern nur der Objektzeiger.<br>
Da ein Font durch seinen Namen, Schriftgrad und -größe definiert wird, ist es meines Erachtens auch<br>
nicht notwendig, alle Font-Informationen abzuspeichern.<br>
Definiere Dir einen Record, der o.g. Informationen aufnimmt. z.B.:<br>
<b>type</b><br>
tMyFontInfoRec=<b>record</b><br>
name:<b>string</b>;<br>
size:Integer;<br>
style:TFontStyles;<br>
<b>end</b><br>
<br>
Gruß Thomas<br></p&gt

[markus lemcke]

so schlau war ich schon, aber der record wird riesen groß!!!!!!!
font.color brauche ich eben auch!!!!!!!!!!

mfg

marku