Begrenzte Anzahl TEdit-Komponenten??

[himitsu]

Zitat von eXOs:

Zitat von Stanlay Hanks:

Parent := Form1;

Für was geanu ist diese Zeile?

Patent ist das übergeordnete Objekt des Edits. Also das, welches für das Edit verantwortlich ist und an welchen das Edit ausgerichtet wird.

In deinem Fall währe das dann BeispielsweiseEdit.Parent := TabSheet1; Ein kleiner Unterschied liegt nur in der Art des Zugriffs.
Über eine Variable:

Delphi-Quellcode:

Var Edit; TEdit;
Edit := TEdit.Create(Form1);
Edit.Parent := Form1;

Und mit With

Delphi-Quellcode:

With TEdit.Create(Form1) do
  Parent := Form1;

Die Variable hat aber auch noch einen Vorteil. In den vielen Beispielen wird sie nur temporär verwendet. Man könnte sie aber auch gespeichert lassen.
Zum Beispiel in einem globalen Array:Var Edits: Array of TEdit; In meinem Beispiel ist zu sehen, das jedes mal das Edit mit FindComponent gesucht wird. Über eine feste Variable hätte man gleich den direkten Zuriff auf ein bestimmtes Edit und muss es nicht erst suchen.

Delphi-Quellcode:

Edit[2] := TEdit.Create(Form1);
Edit[2].Parent := Form1;
Edit[2].Left   := 2;
Edit[2].Top    := 9;
Edit[2].Text   := 'Text bei der Erstellung';

...

Edit[2].Text  := 'spätere Zuweisung';
S := Edit[2].Text;  {oder Abrage}