queltext kürzen mit schleifen

[Bomberbb]

Hallo,

nun auch mal was von mir. Dann darfst Du das Array nicht lokal definieren, sonst nusst du jedes mal, wenn Du in die Procedure eintrittst die Edits wieder zuweisen, da die Werte der lokalen Variablen nach dem verlassen der Procedure verloren gehen.
Dann würde ich die Procedure auch als Methode des Formulars definieren, dann hast Du keine Probleme mit der sichtbarkeit von Formularkomponenten. Letzt endlich brauchst Du auch FindComponentnicht, du kennst ja die Editfelder.

Gruß

BBB

Code:

Tform1: Class (Tobject)
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Edit4 : TEdit;
  Edit5 : TEdit;
  Private
    FEditArray : Array[0..4] of TEdit;
    procedure bilderdeaktiveren;
    procedure Formcreate(Sender:TObject);
  Public
end;

procedure TForm1.bilderdeaktiveren;
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.FormCreate(Sender: TObject);
begin
  FEditArray[1] := Edit1;
  FEditArray[2] := Edit2;
  FEditArray[3] := Edit3;
  FEditArray[4] := Edit4;
  FEditArray[5] := Edit5;
end; 

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