viele componenten auf visible := false setzen?

[Pseudemys Nelsoni]

danke dir :)

[Hansa]

Zitat:

Zitat von alexander

Findcomponent sucht in diesem Fall nach den Edits mit dem NAmen "'Edit' + IntToStr(laufVar)", besser geht es wohl nciht...

...weil Delphi sämtliche Komponenten in einer Baumstruktur speichert. So ähnlich wie die Registry. In dem Beispiel wird mit

Delphi-Quellcode:

AS TEdit

die Suche eben auf den "Zweig" beschränkt, der aus den TEdits besteht und den davon abgeleiteten Typen. Im Prinzip bräuchte man das AS nicht.

[Alexander]

Jupp, genau so.
Nur das man das "AS" meiner Meinung nach schon braucht.

[himitsu]

konnte nicht gehen, hatte 'ne ")" vergessen:
TEdit(FindComponent('Edit' + IntToStr(I))).Visible := False;

es ist nicht möglich einer Kombination aus Stringkonstannte, Stringfunktion und Eigenschaft einen Wert zu zuweisen:

Zitat:

'Edit' + IntToStr(I).Visible := False;

Add:
Komponente suchen und in TEdit konvertieren:

Delphi-Quellcode:

TEdit(FindComponent('Edit' + IntToStr(laufVar))).Enabled

Komponente als TEdit suchen:

Delphi-Quellcode:

(FindComponent('Edit' + IntToStr(laufVar)) as TEdit).Enabled

[Pseudemys Nelsoni]

das:

Delphi-Quellcode:

TEdit('Edit' + IntToStr(laufVar)).Enabled

funzt bei mir nicht, ich bekomme eine zugriffsverletzung

[CalganX]

Hi,
dann schreib folgendes:

Delphi-Quellcode:

hCmp := FindComponent('Edit' + IntToStr(i)); // hCmp ist vom Typ TComponent
if (hCmp is TEdit) and (hCmp <> nil) then
  (hCmp as TEdit).Enabled := false
else
  ShowMessage('Error');

Chris

[Christian Seehase]

Moin silent,

Zitat:

Zitat von silent

das:

Delphi-Quellcode:

TEdit('Edit' + IntToStr(laufVar)).Enabled

funzt bei mir nicht, ich bekomme eine zugriffsverletzung

kann auch nicht klappen.

'Edit' + IntToStr(laufVar) ist ein String. Der normale Hugestring ist ein Pointer und mit der o.g. Konstruktion erzwingst Du einen Typecast eines Stringpointers auf einen TEdit Pointer zur Laufzeit, und das führt zur AV, da ein String kein TEdit Objekt ist.

Verallgemeinert:

Mit

Delphi-Quellcode:

TKlassenBezeichner(WasAuchImmerFuerEinPointerHierAngegebenWird)

erzwingst Du, dass der in den Klammern stehende Pointer vom Compiler als vom Typ TKlassenBezeicher angesehen wird. Kann man machen, wenn sichergestellt ist, dass der Pointer vom Typ TKlassenBezeichner, oder eine davon abgeleitete Klasse ist.
Wichtig ist, dass der Programmierer bei dieser Konstruktion die Verantwortung dafür übernimmt, dass die Typen zusammen passen.

Machst Du es hingegen so

Delphi-Quellcode:

(WasAuchImmerFuerEinPointerHierAngegebenWird AS TKlassenBezeichner)

übernimmt der Compiler schon beim Compilieren die Typüberprüfung, und meckert wenn's nicht passt.

[himitsu]

Uuups! :oops::oops:

TEdit('Edit' + IntToStr(laufVar)).Enabled => TEdit(FindComponent('Edit' + IntToStr(laufVar))).Enabled

(siehe Chris)

[InSys]

:lol:

Delphi-Quellcode:

Procedure TForm1.editclear;
Var Count : Integer;
Begin //
 For Count:=0 to ComponentCount-1 do
  If Components[Count] is TEdit Then Begin
                                       TEdit(Components[Count]).Clear;
                                       {edit(Components[Count]).Color:=ClInfoBk;}
                                      END;
end;

[edit=sakura]Delphi-Tag geschlossen Mfg, sakura[/edit]

[InSys]

:lol: :lol: :lol:

[edit=FuckRacism]Beitrag leserlich gemacht. Aber was soll der Anhang? Ist doch genau des gleiche wie in dem Post davor! Mfg, FuckRacism[/edit]