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ではうまくいかない。
とりあえず Embarcadero RAD Studio/Delphi/C++Builder 関係のあれやこれや。コードのハイライトは現在行われていません。
uses Graphics; var Color: TColor; begin Color := StringToColor('clRed'); // Color <- clRed end; var ColorName: String; begin ColorName := ColorToString(clBlue); // ColorName <- 'clBlue' end;
0 件のコメント:
コメントを投稿