do
Remonter à Liste alphabétique des mots clés - Index
Catégorie
Syntaxe
do <statement> while ( <condition> );
Description
L'instruction do s'exécute jusqu'à ce que la condition devienne fausse (false).
<instruction> est exécuté de façon répétitive aussi longtemps que la valeur de <condition> reste true.
Puisque la condition est testée après chaque exécution de <instruction>, la boucle s'exécute au moins une fois.
Exemple
Cet exemple illustre l'emploi du mot clé do.
void __fastcall TForm1::Button1Click(TObject *Sender) { TSearchRec sr; int iAttributes = 0; StringGrid1->RowCount = 1; iAttributes |= faReadOnly * CheckBox1->Checked; iAttributes |= faHidden * CheckBox2->Checked; iAttributes |= faSysFile * CheckBox3->Checked; iAttributes |= faVolumeID * CheckBox4->Checked; iAttributes |= faDirectory * CheckBox5->Checked; iAttributes |= faArchive * CheckBox6->Checked; iAttributes |= faAnyFile * CheckBox7->Checked; StringGrid1->RowCount = 0; if (FindFirst(Edit1->Text, iAttributes, sr) == 0) { do { if ((sr.Attr & iAttributes) == sr.Attr) { StringGrid1->RowCount = StringGrid1->RowCount + 1; StringGrid1->Cells[1][StringGrid1->RowCount-1] = sr.Name; StringGrid1->Cells[2][StringGrid1->RowCount-1] = IntToStr(sr.Size); } } while (FindNext(sr) == 0); FindClose(sr); } }