do
Nach oben zu Schlüsselwörter alphabetisch - Index
Kategorie
Anweisungen
Syntax
do <anweisung> while ( <bedingung> );
Beschreibung
Die Anweisung do wird solange ausgeführt, bis die <bedingung> zu false ausgewertet wird.
<anweisung> wird solange wiederholt ausgeführt, wie der Wert von <bedingung> gleich true bleibt.
Da die Bedingung nach jeder Ausführung von <anweisung> geprüft wird, wird die Schleife mindestens einmal durchlaufen.
Beispiel
This example illustrates the use of the keyword 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);
}
}