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 :zwinker:

'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;

[globetrotter77]

@himitsu:

Da hast du natürlich recht!
Ich bin im ersten Ansatz einfach davon ausgegangen, dass bei dieser Art von Programm nachträglich keine Components hinzukommen oder wegfallen.

Egal, wie man's realisiert, würde ich aber immer empfehlen, alles, aber wirklich alles, was irgendwie mit den zweidimensional angeordneten Editfeldern zu tun hat, auch in der Form blabla(i,j) abrufbar zu machen, weil man sich sonst einfach hoffnungslos in den Indizes verheddert.

Die Zeiger sind natürlich besser, weil für jede Situation geeignet.

[Z4ppy]

Super, viiiiiielen Danke euch allen :thumb:

MfG Z4ppy