So Ich denke ich Habe Jetzt eine Lösung Gefunden
Zum laden aus der
XML
Geht der Code
Delphi-Quellcode:
var
FontWertAusXml: Byte;
FontStyle: TFontStyles;
begin
FontWertAusXml := StrToInt(clientdataset1.FieldByName('Fontstyle').Asstring);
Move(FontWertAusXml, FontStyle, SizeOf(FontStyle));
Schaltflaeche.Font.Style := FontStyle;
end;
Zum Speichern in die
XML
Geht der Code
Delphi-Quellcode:
var
FontWertInXml: Byte;
FontStyle: TFontStyles;
begin
FontStyle := Schaltflaeche.Font.Style;
Move(FontStyle, FontWertInXml, SizeOf(FontWertInXML));
Clientdataset1.FieldByName('Fontstyle').Asstring:= IntToStr(FontWertInXml);
end;
Der Tip mit den Bytes war Supi wieder etwas dazugelernt.
Ihr Seid die Besten