file of TFont

[hardcorehorst]

Hi

wollte wissen wie man TFont einfach abspeichern kann!!!

erinner mich dunkel an

Delphi-Quellcode:

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:

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:

Zitat von marabu

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

Wahre Worte :wink:

[Flocke]

Zitat:

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

Delphi-Quellcode:

BlockWrite(AFile, xy, SizeOf(xy));

schreiben.

Viel Spass beim Testen...

[Catbytes]

Zitat:

Zitat von Flocke

Zitat:

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 :hello: