ein String einem TFont zuweisen

[Jens Schumann]

Hallo,

Zitat von Airblader:

FontToString()
oder
FontToStr()

weiss es nicht mehr genau

Delphi bringt diese Funktionen nicht mit.

Ich habe es vor langer Zeit mal so gelöst:

Delphi-Quellcode:

function FontToString(Value: TFont) : String;
begin
  Result:='';
  If Assigned(Value) then
    begin
    Result:='Name='+Value.Name+';';
    Result:=Result+'Color='+IntToStr(Value.Color)+';';
    FValue:=Result+'Size='+IntToStr(Value.Size)+';';
    Result:=Result+'Style=[';
    If fsBold in Value.Style then
      Result:=Result+'B';
    If fsItalic in Value.Style then
      Result:=Result+'I';
    If fsUnderLine in Value.Style then
      Result:=Result+'U';
    If fsStrikeOut in Value.Style then
      Result:=Result+'S';
    Result:=Result+']';
    end;
end;