Edit-Felder => array of integer

[himitsu]

ich würde nicht über ComponentIndex gehen ... denn dieser ändert sich eventuell, wenn mal eine Komponente erstellt/gelöscht wird

'nen Zeiger auf die Objektinstanz ist da wohl besser geeignet. (hier also 'ne Variable vom Typ TEdit)

Delphi-Quellcode:

const maxidx = 9;

type
  TForm1 = class(TForm)
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    ...
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    ...
    Edit91: TEdit;
    Edit92: TEdit;
    Edit93: TEdit;
    ...
    Edit99: TEdit;

    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    EditComp: array[1..maxidx, 1..maxidx] of TEdit;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,j: Integer;
begin
  for i := 1 to maxidx do
    for j := 1 to maxidx do
      EditComp[i, j] := FindComponent(Format('Edit%d%d', [i, j]));
end;

procedure TForm1.FormShow(Sender: TObject);
var i,j: Integer;
begin
  for i:=1 to maxidx do
    for j:=1 to maxidx do
      EditComp[i, j].Text := IntToStr(i) + IntToStr(j);
end;