Einzelnen Beitrag anzeigen

Natcree

Registriert seit: 5. Mär 2013
502 Beiträge
 
Delphi 7 Enterprise
 
#16

AW: Font.Style ins Clientdataset Laden

  Alt 8. Dez 2013, 01:01
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

  Mit Zitat antworten Zitat