Verfahren TForm1.Clear_values
var
J: Ganze Zahl;
anfangen
für J: = tun 0 zu ComponentCount-1
anfangen
für J: = tun 0 zu ComponentCount-1
anfangen
wenn (Bestandteile [J] ist TEdit) und (Bestandteile [i] <> Edit1) dann
(Bestandteile [J] als TEdit). Text: = '';
wenn (Bestandteile [J] ist Tcheckbox), dann
(Bestandteile [J] als Tcheckbox) .checked: = falsch;
wenn (Bestandteile [J] ist TRadioButton), dann
(Bestandteile [J] als TRadioButton) .checked: = falsch;
wenn (Bestandteile [J] ist TComboBox), dann
(Bestandteile [J] als TComboBox). Itemindex: = -1;
wenn (Bestandteile [J] ist Tmemo), dann
(Bestandteile [J] als Tmemo) .text: = '';
Ende;