Edit1 - Edit 10 in Schleife ansprechen

wunsiedler · Beiträge: 506 Erhaltene Danke: 4 Win7

Hallo,

würde gern folgendes realisieren:

Delphi-Quelltext

1:
2:
3:
4:

for x := 1 to 10 do
 begin
  EditX.Text := 'Hallo';
 end;

Aber leider keinerlei Ahnung wie man das machen könnte. Ich hoffe einer von Euch weis das.

Moderiert von Christian S.: Delphi-Tags hinzugefügt, Color- durch Highlight-Tags ersetzt
Moderiert von Tino: Topic aus Sonstiges verschoben am So 05.12.2004 um 21:16

.Chef · Beiträge: 1112

markieren

Delphi-Quelltext

1:
2:

for x:=1 to 10 do
  TEdit(FindComponent('Edit'+InttoStr(x))).Text:='Hallo';

Gruß,
Jörg

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

matze.de · Verfasst: So 05.12.04 12:54

immer isser schneller :evil:

mfg matze

_________________
si tacuisses, philosophus mansisses.

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Ich mache sowas immer über ein Feld.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

Edits:Array[1..10] of TEdit;

Edits[1]:=Edit1;
Edits[2]:=Edit2;
.
.
.

_________________
Linux und OpenSource rulez!

thepaul · Beiträge: 29 Win XP D7 Pers.

sourcehunter hat folgendes geschrieben:

Ich mache sowas immer über ein Feld.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

Edits:Array[1..10] of TEdit;

Edits[1]:=Edit1;
Edits[2]:=Edit2;
.
.
.

war das eine Schleife??? :roll:

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Du kannst das Array dann in einer Schleife durchlaufen.

Noch eine Anmerkung zu dem Code:
Die erste Zeile muss in die Variablendeklaration und der Rest in den OnCreate-Teil deines Forms, oder wenigstens vor die Schleife.

_________________
Linux und OpenSource rulez!

Pille · Beiträge: 105 Windows 7 DelphiXE Prof.

Du kannst auch deine Komponenten mit der Tag Eigenschaft "markieren" und dann in einer Schleife alle Komponenten des Formulars abklappern, ob Tag den richtigen Wert aufweist. Der Komponentenname spielt dann keine Rolle mehr.

markieren

Delphi-Quelltext

1:
2:

for i := 0 to ComponentCount-1 do
    if Components[i].Tag = 1 then ....

mfg Pille

wunsiedler · Beiträge: 506 Erhaltene Danke: 4 Win7

Werde Eure Vorschläge ausprobieren. Danke fürs erste.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme