Komponenten ansprechen... wie kann man's besser machen?

[maximov]

Zitat von MarcusB:

...
Gibt es eine Möglichkeit das auch eleganter zu machen?
...

Da ich nicht so auf findComponent stehe mach ichs auch mit nem array, aber eleganter:

Delphi-Quellcode:

type
  TEditEnum = (eeName, eeStrasse, eeOrt, eeTelefon);

  TForm1 = class(...);
    ...
    editFelder : Array[TEditEnum ] of TEdit; 
  end;

...

constructor TForm1.OnCreate(sender...); 
begin
  editFelder[eeName]    := NameEdit; // edit-kompos direkt zu weisen
  editFelder[eeStrasse] := StrasseEdit; 
  editFelder[eeOrt]     := OrtEdit;  
  editFelder[eeTelefon] := TelefonEdit;  
end;

... 

//jetzt z.Bsp. alle Felder löschen 

var i:TEditEnum;

for i := low(i) to high(i) do 
begin 
  editFelder[i].Text := ''; 
end; 
...
editFelder[eeStrasse].text := 'muku strasse';
... 

//jetzt z.Bsp. alle Felder unsichtbar machen 


for i := low(i) to high(i) do 
begin 
  editFelder[eeStrasse].Visible := False; 
end;

da spart man sich das zeit-intensive findComponent gesuche und hat mit TEditEnum einen typ-sicheren index!


// edit: code fehler korrigiert