FindComponent funktioniert nicht

JensLaskowski · Beiträge: 168 Win XP BDS 2006 Architect

Hallo,

ich möchte gerne alle EditFelder die die Bezeichnung Edit + fortlaufende zahl haben ändern.

Ich hab in der Suche ein Topic gefunden, von dem ich mir sicher war, dass er mir helfen könne. Mein Code sieht so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

        for i := 0 to Self.ComponentCount - 1 do
          if (Self.Components[i] is TEdit) then
            begin
              TEdit(FindComponent('Edit' + IntToStr(i))).Clear;
            end;

Findet jemand einen Fehler,denn in der Forensuche habe ich keine Antwort gefunden.
Als Fehlermeldung, bekomme ich eine Zugriffsverletzung.

Mit freundlichen Grüßen
JensLaskowski

mkinzler · Verfasst: So 13.05.07 17:49

In diesem Fall wäre ja

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

      for i := 0 to Self.ComponentCount - 1 do
          if (Self.Components[i] is TEdit) then
            begin
              TEdit(Self.Components[i])).Clear;
            end;

besser

_________________
Markus Kinzler.

JensLaskowski · Beiträge: 168 Win XP BDS 2006 Architect

Funktioniert leider auch nicht bekomme dann folgende meldung zurück:

[Fehler] FilmAnlegen.pas(212): Anweisung erforderlich, aber Ausdruck vom Typ 'TEdit' gefunden

Mit freundlichen Grüßen
JensLaskowski

Keldorn · Verfasst: Mo 14.05.07 19:36

Hallo

das ist bei

markieren

Delphi-Quelltext

1:	TEdit(Self.Components[i])).Clear;

eine Klammer zuviel, mehr ist es nicht.

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

JensLaskowski · Beiträge: 168 Win XP BDS 2006 Architect

Ooh,

das ich das nicht gesehen hab :oops:

Ich muss zugeben, dass ich den Code vom vorherigen Post einfach nur kopiert hab um ihn zu testen, bevor ich mir das alles anschaue, wie das funktioniert.

Naja Danke.

Mit freundlichen Grüßen
JensLaskowski

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme