Delphi 將字型樣式轉成字串

[pascal]
// 字串轉成字型樣式
Function StringToStyle(s:String):TFontStyles;
var ft:TFontStyles;
begin
if pos(‘B’,s) >0 then
ft := ft + [fsBold];
if pos(‘I’,s) >0 then
ft := ft + [fsItalic];
if pos(‘U’,s) >0 then
ft := ft + [fsUnderline];
if pos(‘S’,s) >0 then
ft := ft + [fsStrikeOut];
Result := ft;
end;

// 字型樣式轉成文字
Function StyleToString(ft:TFontStyles):String;
var s:String;
begin
s:= ”;
if fsBold in ft then
s := s + ‘B’;
if fsItalic in ft then
s := s + ‘I’;
if fsUnderline in ft then
s := s + ‘U’;
if fsStrikeOut in ft then
s := s + ‘S’;
Result := s;
end
[/pascal]

作者: 林壽山

林壽山 軟體公司專案經理,第三方支付設計,金流設計,行動支付設計,支付寶,微信,街口支付,信用卡機,擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。

這個網站採用 Akismet 服務減少垃圾留言。進一步瞭解 Akismet 如何處理網站訪客的留言資料