この発言に対し以下のコメントが寄せられています

#00054　瑠瓏            さん　RE:RGB表記の色の表示





　RGB値で入力、表示された色を表示します。
FormにEditBox,Button,Shapeを置きます。
EditBoxにRGB値(FF0000とか）を入力するとその色をShapeに表示します。
0〜9,A〜Fの範囲チェックをしてね。でないと落ちます。
16進表示の$を忘れずに
　あまりに「石」でしたでしょうか・・。
 超初心者が添削を期待して・・。


procedure TForm1.Button1Click(Sender: TObject);
var
        H1,H2,H3,H4,H5,H6:Integer;
        RGB:String;
begin
        if Edit1.Text <> '' then
        begin
        RGB:=Edit1.Text;
        H6:=StrToInt('$'+Copy(RGB,1,1));   
        H5:=StrToInt('$'+Copy(RGB,2,1));
        H4:=StrToInt('$'+Copy(RGB,3,1));
        H3:=StrToInt('$'+Copy(RGB,4,1));
        H2:=StrToInt('$'+Copy(RGB,5,1));
        H1:=StrToInt('$'+Copy(RGB,6,1));
        Shape1.Brush.Color:=H2*16*16*16*16*16+H1*16*16*16*16+H4*16*16*16+H3*16*16+H6*16+H5;
        end;
end;

                                     97/10/19(日) 多摩の岳夫(GFA03144)
                                http://www.asahi-net.or.jp/~ij7t-snhr/

Original document by 篠原岳夫　　　　氏 ID:(GFA03144)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。