uses
Graphics;
var
Color: TColor;
begin
Color := StringToColor('clRed'); // Color <- clRed
end;
var
ColorName: String;
begin
ColorName := ColorToString(clBlue); // ColorName <- 'clBlue'
end;
TColorは列挙型ではないのでGetEnumName/GetEnumValueではうまくいかない。
2008年7月10日
TColor型と色名(文字列)の相互変換
TColor型と色名の文字列の相互変換にはGraphicsネームスペースのStringToColor/ColorToStringを使用します。
登録:
コメントの投稿 (Atom)
0 件のコメント:
コメントを投稿