Вопрос : манипулируя компоненты

Hi
I am управляя старым code
I Делфи 7 имеет форму с много TEdit
I использовать следующий Кодего к ясным значениям на моей проблеме form
My будет я не может давать в численном выражении как остановить некоторые значения от clearing
Example
Edit1.text ='
Edit2.text ='
Edit3.text ='
Edit4.text ='

When, котор общей информации' я использую мою следуя за потребность procedure
I остановить Edit1.text =' главная информация' от clearing

procedure TForm1.Clear_values
var
j: Интежер;
begin
for j: = 0 к ComponentCount-1 do
begin
for j: = 0 к ComponentCount-1 do
begin

if TEdit (компоненты [j]). Parent.Name = после этого showmessage «edit2» («ИСПЫТАНИЕ ");

если (компонентами [j] будут TEdit) then
, то (компоненты [j] как TEdit). Текст: = '';
если (компонентами [j] будут Tcheckbox) then
(компоненты [j] как Tcheckbox) .checked:, то= ложно;
если (компонентами [j] будут TRadioButton) then
(компоненты [j] как TRadioButton) .checked:, то= ложно;
если (компонентами [j] будут TComboBox) then
, то (компоненты [j] как TComboBox). Itemindex: = -1;
если (компонентами [j] будут Tmemo) then
(компоненты [j] как Tmemo) .text:, то= '';
end;

Thank you class=

Ответ : манипулируя компоненты

процедура TForm1.Clear_values
var
  j: Интежер;
начните
  для j: = 0 к ComponentCount-1 делает
  начните
    для j: = 0 к ComponentCount-1 делает
    начните

     если (компонентами [j] будут TEdit) и (компоненты [I] <> Edit1) после этого
       (Компоненты [j] как TEdit). Текст: = '';
     если (компонентами [j] будут Tcheckbox) после этого
       (Компоненты [j] как Tcheckbox) .checked: = ложно;
     если (компонентами [j] будут TRadioButton) после этого
       (Компоненты [j] как TRadioButton) .checked: = ложно;
     если (компонентами [j] будут TComboBox) после этого
       (Компоненты [j] как TComboBox). Itemindex: = -1;
     если (компонентами [j] будут Tmemo) после этого
       (Компоненты [j] как Tmemo) .text: = '';
конец;