queltext kürzen mit schleifen

[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]