Questione : componenti di manipolazione

Ciao il
I che dirige il vecchio code
I di Delfi 7 fa usare una forma con i molti TEdit
I il seguente codice ai valori liberi sul mio problema del form
My è io non può calcolare fuori come arrestare determinati valori da clearing
Example
Edit1.text ='
Edit2.text ='
Edit3.text ='
Edit4.text ='

When che di generalità' uso la mia necessità seguente del procedure
I di arrestarmi Edit1.text =' informazioni principali' da clearing

procedure TForm1.Clear_values
var
j: Numero intero;
begin
for J: = 0 ComponentCount-1 a do
begin
for J: = 0 ComponentCount-1 a do
begin

if TEdit (componenti [J]). Parent.Name = “edit2„ allora showmessage (“PROVA ");

se (componenti [J] è TEdit) then
(componenti [J] come TEdit). Testo: = '';
se (componenti [J] è Tcheckbox) then
(componenti [J] come Tcheckbox) .checked: = falso;
se (componenti [J] è TRadioButton) then
(componenti [J] come TRadioButton) .checked: = falso;
se (componenti [J] è TComboBox) then
(componenti [J] come TComboBox). Itemindex: = -1;
se (componenti [J] è Tmemo) then
(componenti [J] come Tmemo) .text: = '';
end;

Thank you
class= del

Risposta : componenti di manipolazione

procedura TForm1.Clear_values
varietà
  J: Numero intero;
cominciare
  per J: = 0 a ComponentCount-1 fa
  cominciare
    per J: = 0 a ComponentCount-1 fa
    cominciare

     se (componenti [J] è TEdit) e (componenti [i] <> Edit1) allora
       (Componenti [J] come TEdit). Testo: = '';
     se (componenti [J] è Tcheckbox) allora
       (Componenti [J] come Tcheckbox) .checked: = falso;
     se (componenti [J] è TRadioButton) allora
       (Componenti [J] come TRadioButton) .checked: = falso;
     se (componenti [J] è TComboBox) allora
       (Componenti [J] come TComboBox). Itemindex: = -1;
     se (componenti [J] è Tmemo) allora
       (Componenti [J] come Tmemo) .text: = '';
estremità;
Altre soluzioni  
 
programming4us programming4us