Komponenten auf einem Register löschen/überprüfen

[mdittrich]

Hallo himitsu,

danke für den Tipp probiere ich später gleich mal aus.
Das mit dem Pos > 0 war so gemeint, da der Name zum Beispiel: le_Einstellungen_Passwort heißen kann.

Noch eine Frage zu if = true then. Meist du damit:

if boLöschen = true then soll ich so schreiben: if boLöschen then?

Danke für die Hilfe

Maik

[mdittrich]

Ich habe jetzt folgendes gefunden und auf meine Bedürfnisse angepasst.
Leider bekomme ich in Zeile 10 einen Fehler, sobald es sich um eine Komponente wie TAdvEdit handelt.

Aufbau auf dem Form:
1. TAdvOfficePAge (Wird in der Funktion als wcKomponente übergeben)
2. --> TGridPanel
3. ------> TAdvGroupBox
4. ---------> TAdvConboBox (Hier tritt jetzt der Fehler auf, beim Durchlauf der Schleife.)

01. function Tf_menue.f_FindControls(wcKomponente: TWinControl; cKomponente: TClass; boRecurse: Boolean):boolean;
02. // wcKomponente = die Komponente in der Gesucht werden soll zum Beipsiel p_Einstellungen
03. // cKomponente = Komponente nach der gesucht werden soll
04. // boRecurse = soll auch in den unterkomponenten gesucht werden p_Einstellungen -> p_Panel -> groupbox
05. var
06. ccKomponente: TWinControl;
07. begin
08. for iPuffer := 0 to Pred(wcKomponente.ControlCount) do
09. begin
10. ccKomponente := wcKomponente.Controls[iPuffer] as TWinControl;
11. if ccKomponente is cKomponente then
12. begin
13. (ccKomponente.Controls[iPuffer] as TAdvEdit).Text := '';
14. (ccKomponente.Controls[iPuffer] as TAdvEdit).Color := clWindow;
15. end;
16. if boRecurse and (ccKomponente.ControlCount > 0) then
17. f_FindControls(ccKomponente, cKomponente, boRecurse);
18. end;
19.end;

Was kann ich machen, um diesen Fehler abzufangen und die Edits zu löschen.

Danke

Maik

[Redeemer]

Übrigens solltest du nicht "Ich bekomme einen Fehler." schreiben, sondern "Ich bekomme folgenden Fehler: Ungültige Typumwandlung."

Und was der bedeutet, ist doch klar, oder? Man muss vorm Typumwandeln immer prüfen, ob man das darf (is ).

[p80286]

Zitat von mdittrich:

Noch eine Frage zu if = true then. Meist du damit:

if boLöschen = true then soll ich so schreiben: if boLöschen then?

Genau! und wenn Du noch einen Bogen um Umlaute machst, und nach Möglichkeit engl. Bezeichner verwendest, verstehen Dich gleich nicht nur deutschsprachige Programmierer.

Gruß
K-H