請問大大要如何利用for應用於DBText i 呢  i是參數
如
for(int i=1;i==17;i )
{
DBText i->Color=clWhite
}
利用for來減少寫入DBText1、DBText2、DBText3、．．．、DBText15
請問大大應該怎麼寫才能使用這種方法
或是有其他的方法呢
還是無法實現該功能呢
如果不行也麻煩大大告訴新手的我－謝謝大大你的回答實在太感謝你的回答

------
－謝謝大大熱心的回覆!謝謝!

編輯記錄

[code delphi]
for I := 0 to ComponentCount - 1 do // Iterate
begin
if Components[i] is TDBEdit then
begin
TDBEdit(Components[i]).Color := clRed;
end;
end; // for
[/code]

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDBText *sText;
for(int i=1;i<10;i )
{
String a = "DBText" IntToStr(i);
sText = ((TDBText*)FindComponent(a));
if(sText)
{
sText->Color=clWhite;
}
}
}
[/code]

或


[code cpp]
for(int i = 0; i < ComponentCount; i )
{
if (Components[i]->ClassNameIs("TDBText"))
{
((TDBText*)Components[i])->Color=clWhite;
}
}
[/code]

------
我是機器人,我不接受簡訊.

編輯記錄

===================引 用 couchpotato 文 章===================

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDBText *sText;
for(int i=1;i<10;i )
{
String a = "DBText" IntToStr(i);
sText = ((TDBText*)FindComponent(a));
if(sText)
{
sText->Color=clWhite;
}
}
}
[/code]

或


[code cpp]
for(int i = 0; i < ComponentCount; i )
{
if (Components[i]->ClassNameIs("TDBText"))
{
((TDBText*)Components[i])->Color=clWhite;
}
}
[/code]


--------------------------------------------------------------------------------
for (int i = 1; i <= 5; i)
{
((TDBText *)FindComponent("DBText" IntToStr(i)))->Color=clWhite;
}
其實這個和couchpotato 大大是一樣的道理後來才知道，實在很謝謝couchpotato大大熱心的回覆
小弟非常謝謝bighm、couchpotato大大 熱心的教導
－謝謝大大你的回答實在太感謝你的回答

------
－謝謝大大熱心的回覆!謝謝!

編輯記錄