Leeren sämtlicher Editfelder mit einer Schleife???

[Hansa]

muß das Thema nochmals aufgreifen. Ich brauche jetzt in einem konkreten Fall das ComponentCount. Nur was ist da mit dem Gültigkeitsbereich ? Darüber schweigt die OH leider.

[Darty]

Gültigkeitsbereich ?? Meinst DU welche Componenten aufgezählt werden ?

[Hansa]

So ungefähr. Gilt das pro Form, pro Projekt oder wie? OH ist etwas zweideutig und der Gültigkeitsbereich ist halt der Bereich, in dem auf eine Variable etc. zugegriffen werden kann. 8)

[Andreas L.]

Machs halt gleich so:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
end;

[Hansa]

ja, so was mußte ja kommen. 8) Na gut, dann eben das, was ich vermeiden wollte : eine Form besteht aus 4 Tabsheets auf PageControl. Da drauf liegen insgesamt ca. 60-100 DBedit-Felder. Felder vom gleichen Typ müssen ausgerichtet werden (z.B. integer: rechtsbündig). Die Felder heißen auch nicht Edit1,Edit2 .... sondern haben einen richtigen Namen. Es geht auch nicht um das Clear, sondern um das CommponentCount. Wie Mr. Spock weiter oben geschrieben hat, kann man hierzu die Tags verwenden. Das war ein guter Hinweis. Nur was noch unklar ist : eventuell brauche ich die Tags nicht. Aber nur sofern sich ComponentCount auf die Form bezieht. Gilt das projektweit, so sieht es wieder anders aus.

[Andreas L.]

Zitat von Hansa:

ja, so was mußte ja kommen. 8) Na gut, dann eben das, was ich vermeiden wollte : eine Form besteht aus 4 Tabsheets auf PageControl. Da drauf liegen insgesamt ca. 60-100 DBedit-Felder. Felder vom gleichen Typ müssen ausgerichtet werden (z.B. integer: rechtsbündig). Die Felder heißen auch nicht Edit1,Edit2 .... sondern haben einen richtigen Namen. Es geht auch nicht um das Clear, sondern um das CommponentCount. Wie Mr. Spock weiter oben geschrieben hat, kann man hierzu die Tags verwenden. Das war ein guter Hinweis. Nur was noch unklar ist : eventuell brauche ich die Tags nicht. Aber nur sofern sich ComponentCount auf die Form bezieht. Gilt das projektweit, so sieht es wieder anders aus.

Oh, wusst ich nicht, sorry!

[Hansa]

Zitat von onlinehome:

Oh, wusst ich nicht, sorry!

Du brauchst Dich doch nicht für eine Antwort zu entschuldigen. Ist ja gut, wenn überhaupt eine Antwort kommt. Meine Frage paßt ja auch zumindest nicht zum Anfang des Threads. In den Zusammenhang aber schon.

[Andreas L.]

Zitat von Hansa:

Zitat von onlinehome:

Oh, wusst ich nicht, sorry!

Du brauchst Dich doch nicht für eine Antwort zu entschuldigen. Ist ja gut, wenn überhaupt eine Antwort kommt. Meine Frage paßt ja auch zumindest nicht zum Anfang des Threads. In den Zusammenhang aber schon.

OK

[danielA]

Hallo erstmal,

habe eben mal kurz in der Unit Classes nachgeschaut und folgendes rausgefunden.

Componentcount, Components etc. umfaßt alle Komponenten, welche der Komponente gehören (AOwner). In deinem Fall währe das also das Form.
Hast du jedoch eigene Komponenten geschrieben, welche ein Editfeld als Unterkomponente besitzen, so wird dieses Editfeld nicht bei einem Durchlauf von ComponentCunt des Form mit aufgefaßt da im Constructor der eigenen Komponente etwa soetwas drinsteht.

Delphi-Quellcode:

class TMeineKompo = Class(TPanel)
private
  Edi : TEdit;

...

implementation

constructor TMeineKompo.Create(AOwner : TComponent);
begin
  inherited;
  Edi := TEdit.Create(self); // <--- AOwner ist also TMeineKompo
  Edi.Parent:=self // <--- gibt nur an, daß es auf TMeineKompo angezeigt werden soll

  ... 
  
end;

Aber du kannst sicher sein, alle Komponenten, die du per Drag and Drop oben aus der Leiste auf das Form gezogen hast (auch wenn sie auf einem Panel oder Tabsheet liegen) werden gefunden, da AOwner immer das Form sein wird und nur der Parent auf das Panel bzw. Tabsheet etc. zeigt.

Noch ein Hinweis:

FComponent (private in TComponent) ist ein TListobjekt in dem alle Komponenten eingetragen werden, die diese Komponente besitzt.
Auf FComponent greifen ComponentCount, Components etc zu.
Du solltest dir auch mal den Quelltext von FindComponent anschauen. Es ist auch nur ein Schleife, die alle Namen mit dem String vergleicht. Wenn du also bei allen Felder eines Typs dieselbe Eigenschaft ändern willst, so ist es meines erachtens
nicht besonders Sinnvoll FindComponent zu verwenden.

Gruß danielA

[Hansa]

Zitat von danielA:

...In deinem Fall währe das also das Form...

Ist das sicher ? Muß es sowieso austesten, dann seh ichs ja. Eigene Komponenten haben ja damit nichts zu tun. Haste meinen "Monster-Thread" (frei nach Motzi) auch gelesen ? War wohl unübersehbar. Wobei aber noch ein ganz anderer wichtiger Aspekt auftaucht. Leite ich irgendeine Komponente von einer Delphi-Standard-Komponente ab, OHNE irgendwas zu ändern, kann ich gezielt diese Sachen mit ComponentCount, FindComponent usw. auf z.B. TMyEdit anwenden:

Code:

if ... IS TMyEdit

Für Sonderfälle wäre es deshalb eventuell besser, statt TAGs so etwas zu verwenden, also eine eigene Klasse, die dann gesondert behandelt wird. Was wiederum im Klartext eine Zeile ausmacht :

Code:

TMyEdit=class(TEdit);

Stimmt das so?