queltext kürzen mit schleifen

[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

[DeddyH]

Du meinst eine "reguläre" Prozedur? Ich weiß zwar nicht, wieso das unbedingt eine solche sein muss, aber lass Dir das Formular doch als Parameter übergeben.

[xxsasch4xx]

Delphi-Quellcode:

procedure bilderdeaktiveren(var form1);
var
  FEditArray: array[0..4] of TEdit;
  i: integer;
begin
  for i := 0 to 4 do
    FEditArray[i] := FindComponent('Image'+IntToStr(i)) as TEdit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   bilderdeaktiveren(form1);
end;

du meinst so?
dann kommt aber die selbe fehler meldung wieder
es liegt ja auch nicht am Image da könnte ich ja einfach Form1.image reinschreiben dann wäre das gelöst aber es liegt irgentwie an diesem findcomponent befehl

[DeddyH]

Nochmal die Frage: wieso eine reguläre Prozedur und keine Methode von TForm1? So macht das jedenfalls keinen Sinn, zumal das Array eine lokale Variable ist, nach Austritt aus der Prozedur also gar nicht mehr bekannt ist.

[Namenloser]

So geht das nicht. FindComponent ist eine Methode von TComponent, die kannst du nicht einfach außerhalb einer von TComponent abgeleiteten Klasse aufrufen.

Wenn schon, dann müsste es ei deinem Code form1.FindComponent('Image'+IntToStr(i)) as TEdit; heißen.
Besser wär's aber, die reguläre Procedure gleich zu einer Methode von TForm1 zu machen.

[xxsasch4xx]

das wird mir zu kompliziert ich mach einfach einen unsichtbaren button den ich immer ausführe

[DeddyH]

Was mich außerdem verwirrt: Du hast ein Edit mit Namen "Image0"?

[edit] Wieso kompliziert?

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ...
  private
    FImages: array[1..4] of TImage;  //ich denke mal, es sind Images
    procedure BilderDeaktivieren;
...

procedure TForm1.BilderDeaktivieren;
var
  i: integer;
begin
  //das gehört aber wohl eher ins FormCreate, hier sollten sie wohl unsichtbar werden
  for i := Low(FImages) to High(FImages) do
    FImages[i] := FindComponent('Image'+IntToStr(i)) as TImage;
end;

[/edit]