Frage : manipulierenbestandteile

Hallo lassen das
I morgens altes Delphi 7 code
I handhabend eine Form mit vielen TEdit
I den folgenden Code zu den freien Werten auf meinem form
My Problem verwenden ist ich kann nicht herausfinden, wie man bestimmte Werte vom clearing
Example
Edit1.text =' Hauptinformationen'
Edit2.text =' allgemeine Informationen'
Edit3.text =' allgemeine Informationen'
Edit4.text =' allgemeine Informationen'

When stoppt, das ich die meine folgende procedure
I Notwendigkeit verwende, Edit1.text =' Hauptinformationen' vom clearing

procedure TForm1.Clear_values
var
j zu stoppen: Ganze Zahl;
begin
for J: = 0 ComponentCount-1 zum do
begin
for J: = 0 ComponentCount-1 zum do
begin

if TEdit (Bestandteile [J]). Parent.Name = dann showmessage „edit2“ („TEST ");

, wenn (Bestandteile [J] ist TEdit), then
(Bestandteile [J] als TEdit). Text: = '';
, wenn (Bestandteile [J] ist Tcheckbox), then
(Bestandteile [J] als Tcheckbox) .checked: = falsch;
, wenn (Bestandteile [J] ist TRadioButton), then
(Bestandteile [J] als TRadioButton) .checked: = falsch;
, wenn (Bestandteile [J] ist TComboBox), then
(Bestandteile [J] als TComboBox). Itemindex: = -1;
, wenn (Bestandteile [J] ist Tmemo), then
(Bestandteile [J] als Tmemo) .text: = '';
end;

Thank you

Antwort : manipulierenbestandteile

Verfahren TForm1.Clear_values
var
  J: Ganze Zahl;
anfangen
  für J: = tun 0 zu ComponentCount-1
  anfangen
    für J: = tun 0 zu ComponentCount-1
    anfangen

     wenn (Bestandteile [J] ist TEdit) und (Bestandteile [i] <> Edit1) dann
       (Bestandteile [J] als TEdit). Text: = '';
     wenn (Bestandteile [J] ist Tcheckbox), dann
       (Bestandteile [J] als Tcheckbox) .checked: = falsch;
     wenn (Bestandteile [J] ist TRadioButton), dann
       (Bestandteile [J] als TRadioButton) .checked: = falsch;
     wenn (Bestandteile [J] ist TComboBox), dann
       (Bestandteile [J] als TComboBox). Itemindex: = -1;
     wenn (Bestandteile [J] ist Tmemo), dann
       (Bestandteile [J] als Tmemo) .text: = '';
Ende;
Weitere Lösungen  
 
programming4us programming4us