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