Auf Komponenten zugreifen

[skunker]

Hallo,

habe eine kurze Frage. Wie kann ich, wenn ich über eine Variable vom Typ TEdit zur Laufzeit mehrere Editfelder mit einem Button erstelle auf zum Beispiel das dritte Editfeld zugreifen ?

Danke!

mfg
skunker

[_frank_]

wenn du dir die referenz zu dem 3. TEdit nicht gemerkt hast, nur noch über TForm.components/controls
ist aber besser sich die referenzen zu merken (z.B. in nem array of TEdit oder in ner TList)
HTH

[skunker]

Ok, und wie mach ich das genau ?
Hab sowas noch nie zuvor gemacht.

[_frank_]

das sollte es veranschaulichen...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to controlcount -1 do
  begin
    if (controls[i] is TEdit) then
      TEdit(controls[i]).Text:='blah';
  end;
end;

[skunker]

ja aber schon das erstellen bricht bei mir ab, bzw. ich bekomme ExceesViolation beimklick auf den Button.

Delphi-Quellcode:

editlist[i] := TEdit.Create(self);
editlist[i].Parent := self;
editlist[i].Align := alTop;
Inc(i);

oben natürlich editlist: array of TEdit;

[pacman1986]

Delphi-Quellcode:

i := 0;
...
inc(i);
setlength(editlist,i);
...

[skunker]

ok in formreate i:= 0 und in der procedur:

Delphi-Quellcode:

Inc(i);
setlength(editlist,i);
editlist[i] := TEdit.Create(self);
editlist[i].Parent := self;
editlist[i].Align := alTop;

funzt. Ich kann edits erstellen.
Wenn ich jetzt mit

editlist[3].text= 'Holla';

was in das 3 Feld machen will passiert nichts.

[pacman1986]

dynamische arrays fangen bei 0 an ? kann es daran liegen ?

[skunker]

nein ich hab 10 edits.

[pacman1986]

sicher das 10 edits auf dem Formular sind eigentlich muss man die doch sichtbar schalten