file of TFont

[hardcorehorst]

Hi

wollte wissen wie man TFont einfach abspeichern kann!!!

erinner mich dunkel an file of TFont oder so aber da ich mit inifiles arbeite hab ich keine ahnung mehr davon

danke für eure aufmerksamkeit !!!

[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.

[marabu]

Hi Catbytes,

du schreibst einen arg kurzlebigen Zeigerwert in eine Datei - das kann es einfach nicht sein.

Der thread owner sollte mal etwas genauer beschreiben, was er erreichen will.

Freundliche Grüße vom marabu

[Catbytes]

Zitat von marabu:

du schreibst einen arg kurzlebigen Zeigerwert in eine Datei - das kann es einfach nicht sein.

Klar - in meinem Beispiel wird es gespeichert und sofort wieder geladen - irgendwie sinnfrei

Aber ich denke, beim Threadschreiber wird das wohl an unterschiedlichen Stellen im Programm vorkommen (Speichern bei Programmende, laden bei Programmstart oder so).

Obwohl ich den Code letzt selbst gebraucht habe, bin ich letztendlich doch wieder auf die gute alte INI-Datei zurückgegangen.

Zitat von marabu:

Der thread owner sollte mal etwas genauer beschreiben, was er erreichen will.

Wahre Worte

[Flocke]

Zitat von Catbytes:

Speichern bei Programmende, laden bei Programmstart oder so

... und das wird gerade eben nicht gehen, weil du ja nicht die eigentlichen Daten sondern nur einen Zeiger in der Datei ablegst.

[arbu man]

Das Orkel hilft eigentlich immer es sagt

[hardcorehorst]

werde mich nächstes mal deutlicher ausdrücken...


danke leute !

hat hingehauen (mithilfe des orakels)

[pszopp]

Nochmal eine kleine Erklärung für hardcorehorst:

TFont ist ein Objekt und kein Record.
Wenn man sich eine Variable xy:TFont deklariert, so ist diese Variable
ein 4Byte-Zeiger auf das Objekt. Um Objekte zu speichern, ist es meistens
notwendig deren Eigenschaften einzeln abzuspeichern.
z.B.:

Delphi-Quellcode:

BlockWrite(AFile, xy.Color, SizeOf(xy.Color);
BlockWrite(AFile, xy.Size, SizeOf(xy.Size);

Wäre TFont ein Record, so könnte man einfach
BlockWrite(AFile, xy, SizeOf(xy)); schreiben.

Viel Spass beim Testen...

[Catbytes]

Zitat von Flocke:

Zitat von Catbytes:

Speichern bei Programmende, laden bei Programmstart oder so

... und das wird gerade eben nicht gehen, weil du ja nicht die eigentlichen Daten sondern nur einen Zeiger in der Datei ablegst.

Yep - jetzt fällt es mir wieder wie Schuppen von den Augen.

Deshalb bin ich damals auch wieder auf die INI-Datei zurückgekehrt.

[hardcorehorst]

dann bleib ich auch bei der INI