FindComponent

**rich123**

Hallo zusammen,

Wenn ich eine Komponente auf der gleichen Form liegt benutze ich

TEdit(FindComponent('Edit'+IntToStr(varzaehler))).Text := 'muh'; Wenn die Komponente aber auf einer anderen Form liegt, habe ich ein Problem:

TEdit(FindComponent('Form2.Edit'+IntToStr(varzaehler))).Text := 'muh'; funktioniert leider nicht.

Wie muss ich das machen?

Danke

**Fussball-Robby**

Ich habe gerade kein Delphi zur Hand, aber es müsste so gehen:TEdit(Form2.FindComponent('Edit'+IntToStr(varzaehler))).Text := 'muh';

**rich123**

jup, funktioniert, danke

**mkinzler**

Aber besser Softcast verwenden:
(Form2.FindComponent('Edit'+IntToStr(varzaehler)) as TEdit).Text := 'muh';

**taaktaak**

Warum besser Softcast? Hab' mir die andere Form angewöhnt, weil kürzer. Ist das gefahrgeneigt?

**mkinzler**

Da da er ungeprüft auf den Speicherbereich zugreift und nicht geprüft wird, ob der Typ stimmt.

**taaktaak**

Na, dann sollte man diese Möglichkeit tatsächlich sehr zurückhaltend verwenden!
Danke!

**Apollonius**

Allerdings würde ich davon ausgehen, dass eine Komponente, deren Name mit 'Edit' beginnt, auch ein TEdit ist.

**mkinzler**

Ich würde von Nichts ausgehen...

**FAlter**

Hi,

es gibt Leute, die benennen ihre Komponenten. Ich zum Beispiel in etwa so:

NameEdit, BirthdayEdit --> z. B. Edit, MaskEdit, SpinEdit (letzteres nehm ich aber eigentlich nicht)
NamesBox, DoItNowBox, WuppdiBox --> ListBox, GroupCox, CheckBox, ...

Wie man sieht, kann man aus dem Namen nicht unbedingt auf die Komponente schließen, aber ich habe keine Lust, in meinem Code "DoItNowCheckBox" auszuschreiben. Das ist mir zu lang. Andererseits sagt mir ein "CheckBox1" im Code rein gar nix. Wasn datt für eine von den 24 CheckBoxen auf dem Form?

Mfg
FAlter

FindComponent

FindComponent

Re: FindComponent

Re: FindComponent

Re: FindComponent

Re: FindComponent

Re: FindComponent

Re: FindComponent

Re: FindComponent

Re: FindComponent

Re: FindComponent

Forumregeln

rich123 Registriert seit: 8. Aug 2008 Ort: Wien 44 Beiträge Delphi 7 Enterprise	#1 FindComponent 21. Aug 2008, 14:22 Hallo zusammen, Wenn ich eine Komponente auf der gleichen Form liegt benutze ich TEdit(FindComponent('Edit'+IntToStr(varzaehler))).Text := 'muh'; Wenn die Komponente aber auf einer anderen Form liegt, habe ich ein Problem: TEdit(FindComponent('Form2.Edit'+IntToStr(varzaehler))).Text := 'muh'; funktioniert leider nicht. Wie muss ich das machen? Danke
	Zitat

Fussball-Robby Registriert seit: 22. Okt 2007 Ort: Nähe Köln 1.063 Beiträge Delphi 7 Enterprise	#2 Re: FindComponent 21. Aug 2008, 14:27 Ich habe gerade kein Delphi zur Hand, aber es müsste so gehen:TEdit(Form2.FindComponent('Edit'+IntToStr(varzaehler))).Text := 'muh'; Robert L. Der folgende Satz ist richtig! Der vorherige Satz ist falsch! Paradox
	Zitat

rich123 Registriert seit: 8. Aug 2008 Ort: Wien 44 Beiträge Delphi 7 Enterprise	#3 Re: FindComponent 21. Aug 2008, 14:28 jup, funktioniert, danke
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#4 Re: FindComponent 21. Aug 2008, 14:30 Aber besser Softcast verwenden: (Form2.FindComponent('Edit'+IntToStr(varzaehler)) as TEdit).Text := 'muh'; Markus Kinzler
	Zitat

taaktaak Registriert seit: 25. Okt 2007 Ort: Radbruch 1.990 Beiträge Delphi 7 Professional	#5 Re: FindComponent 21. Aug 2008, 14:36 Warum besser Softcast? Hab' mir die andere Form angewöhnt, weil kürzer. Ist das gefahrgeneigt? Ralph
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#6 Re: FindComponent 21. Aug 2008, 14:54 Da da er ungeprüft auf den Speicherbereich zugreift und nicht geprüft wird, ob der Typ stimmt. Markus Kinzler
	Zitat

taaktaak Registriert seit: 25. Okt 2007 Ort: Radbruch 1.990 Beiträge Delphi 7 Professional	#7 Re: FindComponent 21. Aug 2008, 15:22 Na, dann sollte man diese Möglichkeit tatsächlich sehr zurückhaltend verwenden! Danke! Ralph
	Zitat

Apollonius Registriert seit: 16. Apr 2007 2.325 Beiträge Turbo Delphi für Win32	#8 Re: FindComponent 21. Aug 2008, 17:45 Allerdings würde ich davon ausgehen, dass eine Komponente, deren Name mit 'Edit' beginnt, auch ein TEdit ist. Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"? "An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#9 Re: FindComponent 21. Aug 2008, 18:03 Ich würde von Nichts ausgehen... Markus Kinzler
	Zitat