Komponenten zur Laufzeit oder Entwicklungszeit

[Bernhard Geyer]

Folgende Idee:

Delphi-Quellcode:

type
  TSystemzustand = (Zustand1=1, Zustand2=23, ... Zustandz);

type
  TmeinForm = class(TForm);
  var
    zustandEdits: array[Low(TSystemZustand)..High(TSystemzustand)];
  ...

procedure TMeinForm.FormCreate()
  for i := Low(TSystemZustand) to High(TSystemzustand) do
  begin
    zustandEdits[i] := TEdit.Create(self);
    ...
  end;
end;

procedure TMeinForm.DoWithEdit(zustand: TSystemzustand);
begin
   zustandEdits[zustand].Text := 'text';
end;