Thema: Delphi Backup von eingabefelder

Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#6

Re: Backup von eingabefelder

  Alt 19. Okt 2005, 19:38
Hallo,

damit geht es unabhängig vom Namen der eingefügten Komponenten:
Delphi-Quellcode:
for z := 0 to GroupBox1.ControlCount-1 do
    begin
    if GroupBox1.Controls[z] is TEdit then
      showmessage(TEdit(GroupBox1.Controls[z]).Text);
    if GroupBox1.Controls[z] is TCheckBox then
      if TCheckBox(GroupBox1.Controls[z]).Checked then
      showmessage(TCheckBox(GroupBox1.Controls[z]).Name+' ist aktiviert');
    //was sonst noch enthalten sein kann
    end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat