queltext kürzen mit schleifen

[xxsasch4xx]

hallo, ich habe eine frage wie man einen queltext kürzen kann in dem auf einmal 30 edit felder deaktivert werden die durchgehend nummeriert sind also von 1 - 30

ich würde das mit meinem jetztigen wissen jetzt so machen:

Delphi-Quellcode:

edit1.enabled:=false;
...
bis
...
edit30.enabled:=false;

kann man nicht irgentwie eine zähergesteuerte schleife machen die man jedes mal eins hochzählt und dann neben da neben dem edit einfügt?
also so ungefähr

Delphi-Quellcode:

for i:=1 to 30 do 
        begin
           edit[i].enabled:=false;
        end;

der syntax ist warscheinlich falsch aber nur vom prinzip her würde ich das lieber so in 4 zeilen machen als 30 mal edit felder zu deaktiveren.

Vielen Dank im Voraus!

[Luckie]

Das Zauberwort heißt FindComponent.

[stahli]

schau mal hier

[Namenloser]

Du kannst entweder FindComponent benutzen, oder du musst selbst ein Array erstellen, das du entsprechend initialisierst:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
   private
     EditArray: array[0..30] of TEdit;
   end;
...

procedure TForm1.FormCreate(...);
begin
  FEditArray[0] := Edit0;
  FEditArray[1] := Edit1;
  FEditArray[2] := Edit2;
  ...
  FEditArray[30] := Edit30;
end;

...

  for i := 0 to 30 do
    FEditArray[i].Enabled := False;

Kannst es natürlich auch kombinieren:

Delphi-Quellcode:

procedure TForm1.FormCreate(...);
var
  i: integer;
begin
  for i := 0 to 30 do
   FEditArray[i] := FindComponent('Edit'+IntToStr(i)) as TEdit;
end;

Generell ist ein Array vorzuziehen, da bei jedem Aufruf von FindComponent alle Komponenten durchiteriert werden, bis die gesuchte gefunden wird.

[Luckie]

Dann würde ich aber OOP konform eine ObjetList nehmen.

[Namenloser]

Naja, wenn man ein neues Delphi mit generischen Listen hat, vielleicht. Ansonsten hätte ich keine Lust nur für sowas extra eine typensichere Liste abzuleiten. Natürlich könnte man stattdessen jedes mal einen Typecast machen, aber sehr sauber ist das auch nicht gerade...

[xxsasch4xx]

wenn ich das so mache:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
   private
     EditArray: array[0..30] of TEdit;
   end;
...

procedure TForm1.FormCreate(...);
begin
  FEditArray[0] := Edit0;
  FEditArray[1] := Edit1;
  FEditArray[2] := Edit2;
  ...
  FEditArray[30] := Edit30;
end;

...

  for i := 0 to 30 do
    FEditArray[i].Enabled := False;

dann habe ich ja trotzdem 30 Zeilen wo ich dem Array die Edit Felder zuweise und dann ist es keine Verkürzung des Quelltextes.

und bei der zweiten Möglichkeit kommt bei mir folgende Fehlermeldung:
undefenierter Bezeichner FEditArray

[Namenloser]

Ja, ich habe in der Deklaration das F vergessen... diente ja aber auch eh nur zu Anschauung. Und ja, du hast in der Version auch 30 Zeilen, aber wenn du an mehreren Stellen drauf zugreifst, ist es trotzdem noch eine Verkürzung (und übersichtlicher). Wenn du noch mehr einsparen willst, kannst du ja die abgewandelte Variante benutzen.

[DeddyH]

Das war ja auch ein Tippfehler. In der private-Deklaration fehlt nur das führende F.

[xxsasch4xx]

wenn ich den queltext in einen button mache dann geht es. Aber wenn ich es in meine eigene angelegte procedure reinfügen will dann gibt er mir 2 fehlermeldungen aus:

Undefinierter Bezeichner 'Find compenent' und operator ist auf diesen operandentyp nicht anwendbar.
Geht das nicht in einer Procedure oder funktion?
ich brauch das nämlich in mehreren buttons deswegn wär eine procedure sinnvoll