Inhalte aus LaufzeitEdits in ein Array schreiben

[Kytrix]

Hi ich habe ein Programm bei dem zur Laufzeit M mal N Editfelder erzeugt werden jedes Editfeld erhählt bei der Erzeugung einen Namen
z.B. -> Feld_12_25 (12te Zeile 25te Spalte)

Ich suche nun nach einer Möglichkeit bzw einer Schleife die alle meine Editfelder in ein 2 dimensionales (N*M) Array schreibt

[Dunkel]

Hallo!

Wie erstellst Du denn die Edit-Felder zur Laufzeit?

Ich würde es so machen:

Delphi-Quellcode:

var
  EditArray: array[1..8, 1..8] of TEdit; {globale Deklaration bzw. Klassen-Deklaration}

procedure MyClass.CreateEdits;
var
  i, j: byte;
begin
  for i:= 1 to 8 do
    for j:= 1 to 8 do 
      with EditArray[i,j]:= TEdit.Create do
        begin
          // Parent setzen, Position setzen, Größe setzen, initialisieren, etc.
          Left:= 10 + i * 50;
          Width:= 40;
          Top:= 10 + j * 25;
          Height:= 20;
          { ... } 
        end;
end;

(blind runtergetippt)

Dann kannst Du ohne weiteres über das EditArray auf alle Edits zugreifen.
Bei Programmende das EditArray und sein Inhalt freigeben nicht vergessen!