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

[MarcusB]

Hallo!

Ich mal wieder mit einer laienhaften Frage ;)

Ich suche eine Möglichkeit um verschiedene Komponenten (hier: TEdits) komfortabel anzusprechen.
Bisher habe ich das so gelöst, dass ich mir ein globales Array mit den Namen meiner Felder erstelle und dieses dann immer in einer Schleife durchlaufen lasse.
Gibt es eine Möglichkeit das auch eleganter zu machen?

Hier mal ein Beispiel, wobei angenommen wird, dass auf dem Formular 4 Editfelder sind:

Delphi-Quellcode:

editFelder := Array[0..3] of String;

editFelder[0] := 'Name';
editFelder[1] := 'Strasse';
editFelder[2] := 'Ort';
editFelder[3] := 'Telefon';

...

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

for i := 0 to high(editFelder) do
begin
  TEdit(FindComponent(editFelder[i]).Text := '';
end;

...

//jetzt z.Bsp. alle Felder unsichtbar machen


for i := 0 to high(editFelder) do
begin
  TEdit(FindComponent(editFelder[i]).Visible := False;
end;

Ich hoffe ihr versteht was ich meine und freue mich auf Verbesserungsvorschläge :)

[Sharky]

Hai MarcusB,

Du kannst es z.B auch so machen:

Delphi-Quellcode:

// Alle Editfelder löschen
procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to Self.ComponentCount-1 do  //Schleife durch alle Componenten
  begin
    if (self.Components[ndx] is TEdit) then  //ist es ein TEdit?
    begin
      (self.Components[ndx] As TEdit).Clear; //lösche den Inhalt
    end;
  end;
end;

// Alle Editfelder Anzeigen / Verstecken
procedure TForm1.Button2Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to Self.ComponentCount-1 do
  begin
    if (self.Components[ndx] is TEdit) then
    begin
      (self.Components[ndx] As TEdit).Visible := not (self.Components[ndx] As TEdit).Visible
    end;
  end;
end;

[MarcusB]

Hui, danke erstmal für die superschnelle Antwort :)

Dein Vorschlag ist prima, allerdings vergaß ich zu sagen, dass sich auf dem Formular durchaus noch ander Editfelder befinden können. D.h. mit dem Array spreche ich eine bestimmte Gruppe von Felder an. Z.Bsp. bei einer Adressverwaltung gibt es die Gruppen "Adresse", "Kommunikation", "Zusatzinfos",... und ich möchte immer einen "Block" ansprechen.
Ist es sinnvoll, gleich ein

Delphi-Quellcode:

editFelder := Array[0..3] of TEdit;

zu machen?

[Sharky]

Du müsstest die Editfelder auf irgendeine Art und Weise "gruppieren". Z.B. Dadurch das zusammengehörige Edits auf einem Panel oder einer Groupbox liegen oder alle zusammengehörigen den selben Wert in der Eigenschaft Tag haben.

Delphi-Quellcode:

// Alle Editfelder löschen die auf GroupBox1 liegen
procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to self.ComponentCount-1 do
  begin
    if (self.Components[ndx] is TEdit) and
    ((self.Components[ndx] as TEdit).Parent = GroupBox1) then
    begin
      (self.Components[ndx] As TEdit).Clear;
    end;
  end;
end;

// Alle Editfelder löschen die bei der Eigenschaft Tag = 1 haben
procedure TForm1.Button2Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to self.ComponentCount-1 do
  begin
    if (self.Components[ndx] is TEdit) and
    ((self.Components[ndx] as TEdit).Tag = 1) then
    begin
      (self.Components[ndx] As TEdit).Clear;
    end;
  end;
end;

[maximov]

Zitat:

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

[Delphi_Fanatic]

@maximov:

Wow... das ist ja 'ne richtig elegante Lösung !

(Ich muß zugeben - Ich hätt's sonst auch eher mit dem FindComponent gemacht.)

[MarcusB]

Jau super, danke @Sharky & @maximov :)

Da hat man doch wieder dazugelernt!

Ich denke ich werde maximovs Variante mal ausprobieren, das scheint mir sehr übersichtlich und ich bin das FindComponent los :)

Greetz

MarcusB :idea: