Delphi Tips 
-----------------------------

0297  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    作成: 2000/03/24 濱野 rev 1.3
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  更新: 2000/03/28 濱野 編集
C++Builder でwith文の代用

BCBには(というかC++には)Pascalのwith文に相当するものが
無い為、クラスのメンバの階層が深いとコード1行あたりの文字数
が無茶苦茶長くなってしまいます。

こんな時はポインタか参照変数を使えば、コード量を減らす事が
出来ます。

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, long Col, long Row,
    TRect &Rect, TGridDrawState State)
{   char *s;
    TCanvas &cv = *StringGrid1->Canvas;

    s = StringGrid1->Cells[Col][Row].c_str();
    if (strchr(s, '?') != NULL)
        cv.Font->Color = clRed;
    else
        cv.Font->Color = clBlack;
    cv.TextOut(Rect.Left + 2, Rect.Top + 2,
            StringGrid1->Cells[Col][Row]);

}
参照: <C++>

[新規作成] [最新の情報に更新]

How To
Lounge
KeyWords


Tips
Delphi
Home
Osamu Takeuchi osamu@big.or.jp