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

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: = '';
конец;
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us