Vraag : manipulerende componenten

Hallo
I am die is oud Delphi 7 leiden code
I een vorm met vele TEdit
I hebben de volgende code gebruiken om waarden op mijn form
My probleem te ontruimen ik kan niet berekenen hoe te om bepaalde waarden van clearing
Example
Edit1.text =' HoofdInformatie'
Edit2.text =' Algemene Informatie'
Edit3.text =' Algemene Informatie'
Edit4.text het gebruik/>
When I = van de' Algemene Informatie'
I behoefte op te houden Edit1.text =' HoofdInformatie' van clearing

procedure TForm1.Clear_values
var
j: Geheel;
begin
for j: = 0 tot componentCount-1 do
begin
for j: = 0 tot componentCount-1 do
begin

if TEdit (Componenten [j]). Parent.Name = toen showmessage „edit2“ („TEST“);

als (de Componenten [j] is TEdit) then
(Componenten [j] als TEdit). Tekst: = '';
als (de Componenten [j] is Tcheckbox) then
(Componenten [j] als Tcheckbox) .checked: = vals;
als (de Componenten [j] is TRadioButton) then
(Componenten [j] als TRadioButton) .checked: = vals;
als (de Componenten [j] is TComboBox) then
(Componenten [j] als TComboBox). Itemindex: = -1;
als (de Componenten [j] is Tmemo) then
(Componenten [j] als Tmemo) .text: = '';
end;

Thank you

Antwoord : manipulerende componenten

procedure TForm1.Clear_values
var
  j: Geheel;
begin
  voor j: = 0 tot componentCount-1
  begin
    voor j: = 0 tot componentCount-1
    begin

     als (de Componenten [j] is TEdit) en (Componenten [I] <> Edit1) toen
       (Componenten [j] als TEdit). Tekst: = '';
     als (de Componenten [j] is Tcheckbox) toen
       (Componenten [j] als Tcheckbox) .checked: = vals;
     als (de Componenten [j] is TRadioButton) toen
       (Componenten [j] als TRadioButton) .checked: = vals;
     als (de Componenten [j] is TComboBox) toen
       (Componenten [j] als TComboBox). Itemindex: = -1;
     als (de Componenten [j] is Tmemo) toen
       (Componenten [j] als Tmemo) .text: = '';
eind;
Andere oplossingen  
 
programming4us programming4us