Objekte rekursiv ansteuern

[Terrible Stomper]

Hallo,

Ich möchte in meinem Programm mehrere Objekte (Edit1, Edit2 usw.) rekursiv ansteuern. Jedoch weiß ich nicht, wie ich es umsetzen kann (falls überhaupt möglich).

Also meine Schleife ist:

Code: Alles auswählen

For i := 2 to length(Wort)+1 Do
    Edit1.visible := True;

Man muss nur noch das "Edit1" mit einem Platzhalter ersetzen.

Mit freundlichen Grüßen,
Terrible Stomper

[theo]

Was verstehst du unter "rekursiv ansteuern"?

[Terrible Stomper]

Ups, da habe ich mich unklar ausgedrückt.

Ich meine damit, dass ich einer Schleife dem Editfeld "Edit" einen Wert zuweise. D.h. dass im ersten Durchlauf Edit 1 einen bestimmten Wert zuweise und dannach Edit 2 usw.

[theo]

Benutze mal die Suchfunktion in diesem Forum nach "FindComponent" oder "TObjectList".
Diese Frage wird immer mal wieder beantwortet.

[Komoluna]

Du meinst sicher Iterativ oder?

Rekursiv ist eine Methode die sich selber aufruft:

Code: Alles auswählen

Procedure Foo(Bar: Integer);
begin
  if Bar < 0 then exit;
  Foo(Bar-1);
end;

MFG

Komoluna

[Terrible Stomper]

Stimmt, ich dachte rekursiv heißt wiederholend
Und die SuFu habe ich verwendet, aber wahrscheinlich das Falsche eingegeben.

Mit TFindComponent hat es fuktioniert, danke

[Mathias]

Ich möchte in meinem Programm mehrere Objekte (Edit1, Edit2 usw.)

Wen es viele Edits sind, würde ich die Edits in eine Array packen und diese dynamisch erzeugen.

Code: Alles auswählen

Edit = array of TEdit
// oder, wen die Anzahl bekannt ist.
Edit = array[0..9] of TEdit;

[Komoluna]

Einem dynamischen Array kannst du die Länge so zuweisen:

Code: Alles auswählen

Setlenght(Edit, 10); //10 Edits passen in das Array hinein

[theo]

Ich finde es merkwürdig, dass hier in letzter Zeit immer alle auch noch eine Bemerkung machen müssen.
Mit "FindComponent" oder "TObjectList" sind die Hinweise doch erst einmal gegeben.
Wenn der TE das nicht versteht, kann er nochmal fragen. Er hat es aber verstanden.

Warum müssen immer alle auch noch etwas sagen?
Das tue ich doch auch nicht.
Wenn jemand eine Frage beantwortet, mische ich mich da nicht mehr ein, außer es liegen grobe sachliche Fehler vor, oder man kommt nicht weiter.
Ich finde nicht, dass Fragen besser beantwortet werden, wenn alle dazwischen plärren.

[Terrible Stomper]

Ich finde, dass solange die gleiche Lösung nicht wiederholt wird, hilft es immer noch, wenn andere Ansätze gepostet werden. Das hilft auch anderen, die über Google den Thread finden. Außerdem lernt man noch andere Möglichkeiten, ein Problem in zukünftigen Projekten zu lösen.

[Mathias]

hilft es immer noch, wenn andere Ansätze gepostet werden.

Das denke ich auch, ich bin auch schon froh um so etwas gewesen.

[theo]

Ich finde einfach dieses dazwischen Plärren etwas kindlich. "Herr Lehrer, Herr Lehrer, ich weiß auch noch was...".
Wenn jemand eine vernünftige Antwort gegeben hat, warum nicht einfach mal abwarten, wie der Fragende reagiert?
Vielleicht hat er ja alles kapiert. Sonst fragt er halt weiter und dann kann sich meinetwegen jemand anderes im Erklären versuchen.

Manchmal habe ich echt das Gefühl, es geht nur darum den "Beitrag" Counter zu erhöhen.

[m.fuchs]

Manchmal habe ich echt das Gefühl, es geht nur darum den "Beitrag" Counter zu erhöhen.

Da hast du recht.

.oO( Und wieder ein Posting mehr.)

SCNR