Mehreren TEdit Feldern einen Wert zuweisen.

[youuu]

Hallo,

wie kann ich mehreren TEdit Feldern einen Wert zuweisen, ohne jedes per hand anzuspechen? (Per Schleife)

[mkinzler]

Edits in Array legen, Schleife über Form.Components[] und Typ überprüfen oder mit Form.FindComponent() anhand der Bezeichnung

[youuu]

Edit:
Ah sehe grad die 2 befehle.

[DeddyH]

Wieso Tipparbeit? Edits gleich als Array-Elemente anlegen und fürderhin nur noch über das Array ansprechen. Statt des Array kann man aber auch eine TObjectlist nehmen.

[Forlan]

Delphi-Quellcode:

for i:= 1 to Form1.ComponentCount -1 do
begin
  if Form1.Components[i] is TEdit then
    TEdit(Form1.Components[i]).Text:= 'Dein Text';
end;

Edit: Getippt, nicht getestet

[mkinzler]

Falsche untere Grenze

Delphi-Quellcode:

for i:= 0 to Form1.ComponentCount - 1 do

[Forlan]

Zitat:

Zitat von mkinzler

Falsche untere Grenze

Delphi-Quellcode:

for i:= 0 to Form1.ComponentCount - 1 do

Pardon, daher ja mein Edit :-D