Question : composants de manipulation

Salut le
I AM contrôlant le vieux code
I de Delphes 7 font employer une forme avec des beaucoup TEdit
I le code suivant aux valeurs claires sur mon problème du form
My est moi ne peut pas figurer dehors comment arrêter certaines valeurs du clearing
Example
Edit1.text = Edit2.text = Edit3.text = Edit4.text = le

When' d'informations générales' que j'emploie la ma nécessité suivante du procedure
I de s'arrêter Edit1.text =' l'information principale' du clearing

procedure TForm1.Clear_values
var
j : Nombre entier ;
begin
for j : = 0 ComponentCount-1 au do
begin
for j : = 0 ComponentCount-1 au do
begin

if TEdit (composants [j]). Parent.Name = puis showmessage « edit2 » (« ESSAI ") ;

si (les composants [j] est TEdit) then
(composants [j] comme TEdit). Texte : = '' ;
si (les composants [j] est Tcheckbox) then
(composants [j] comme Tcheckbox) .checked : = faux ;
si (les composants [j] est TRadioButton) then
(composants [j] comme TRadioButton) .checked : = faux ;
si (les composants [j] est TComboBox) then
(composants [j] comme TComboBox). Itemindex : = -1 ;
si (les composants [j] est Tmemo) then
(composants [j] comme Tmemo) .text : = '' ;
end ;

Thank you class= de

Réponse : composants de manipulation

procédé TForm1.Clear_values
variété
  j : Nombre entier ;
commencer
  pour j : = 0 à ComponentCount-1 font
  commencer
    pour j : = 0 à ComponentCount-1 font
    commencer

     si (les composants [j] est TEdit) et (composants [I] <> Edit1) puis
       (Composants [j] comme TEdit). Texte : = '' ;
     si (les composants [j] est Tcheckbox) puis
       (Composants [j] comme Tcheckbox) .checked : = faux ;
     si (les composants [j] est TRadioButton) puis
       (Composants [j] comme TRadioButton) .checked : = faux ;
     si (les composants [j] est TComboBox) puis
       (Composants [j] comme TComboBox). Itemindex : = -1 ;
     si (les composants [j] est Tmemo) puis
       (Composants [j] comme Tmemo) .text : = '' ;
extrémité ;