Code verkürzen (Clear bei mehreren Edits)

[himitsu]

Mal ganz im Ernst .... die Suche existiert nicht umsonst :!:

z.B.: Clear TEdit > http://www.delphipraxis.net/internal...t.php?t=156979

Und das ist gerade Mal einen Tag alt.

[Hagbart]

Erstmal danke. Genau das was ich wissen wollte.

Zitat:

Zitat von himitsu

Mal ganz im Ernst .... die Suche existiert nicht umsonst :!:

z.B.: Clear TEdit > http://www.delphipraxis.net/internal...t.php?t=156979

Und das ist gerade Mal einen Tag alt.

Sorry, gesucht habe ich. Ich habe halt nur nicht gezielt nach "Clear TEdit" gesucht sondern eher nach allgemeinen Begriffen wie z.B. "Komponente in Schleife". Denn wenn jetzt jemand den gleichen Thread statt mit TEdit mit TMemo erstellt hätte, hätte ich ja vermutlich nichts gefunden. Denn das Beispiel mit TEdit habe ich nur gebracht, weil ich mir dachte das es jeder kennt. Bei meinem Projekt geht es konkret um JvSimIndicator von denen ich mehrer auf einer Form habe und alle zurücksetzen möchte.

[Hansa]

Hier scheint Verwirrung zu herrschen. :mrgreen: Trotzdem noch zu dem is/as. Man kann ja sogar den Namen der Komponente für gezielte Aktionen verwenden. Angenommen, man will irgendeinen Text wegen irgendeiner Aktion, z.B. ButtonClick nur im "Edit9" haben :

Delphi-Quellcode:

    if c is TEdit then
      if (copy ((c as TEdit).Name,5,1) = '9') then
        (c as TEdit).Text := 'TEST';

Wäre zwar identisch mit

Delphi-Quellcode:

Edit9.Text := 'TEST';

, ABER :

Wenn man die Namen der Komponenten geschickt wählt, dann lassen sich schöne Konstrukte bauen, die man dann mit Schleife über ComponentCount und dem entsprechenden Prefix etc. gezielt ansprechen kann. Beispiel : Adresse und noch diverse andere Editfelder.

Nenne ich die Adress-Felder jetzt konsequent z.B. edAdrAnrede, edAdrName etc. dann brauche ich nur auf 'edAdr' zu prüfen (siehe oben) und mache auf einen Schlag die Adresse leer, ohne die anderen Felder zu beeinflussen.

[himitsu]

"as" prüft genauso wie "is" ... nur wirft "as" im Fehlerfall eine Exception und gibt als Result den Typ des Vergleichs,
wärend "is" nur prüft und als Result einen Boolean mit dem Ergebnis des Vergleichs liefert.

und typ(var) konvertiert ohne eine Prüfung...


da jetzt schon mit "is" geprüft wurde, kann man also jegliche weitere Prüfung mit "as" eigentlich weglassen.

Delphi-Quellcode:

if c is TEdit then
  if (copy (TEdit(c).Name, 5, 1) = '9') then
    TEdit(c).Text := 'TEST';

Zitat:

Wenn man die Namen der Komponenten geschickt wählt, dann lassen sich schöne Konstrukte bauen, die man dann mit Schleife über ComponentCount und dem entsprechenden Prefix etc. gezielt ansprechen kann. Beispiel : Adresse und noch diverse andere Editfelder.

man kann auch .Tag geschickt verwenden und so die aufwendigen Stringoperationen durch nette Integer-Operationen ersetzen :angel:

[Hansa]

Tja, die Tags könnte man auch verwenden für sowas. Aber dann sind sie auch nicht mehr frei verfügbar. Und wer weiß ? Wird das mit String-Operationen zu schwer lesbar, dann macht man besser eigene Properties. Bei mir gibts z.B. im OI ein published "aktiv". Das setze ich notfalls mal schnell auf false und die Funktion ist gesperrt. :mrgreen:

[mkinzler]

Zitat:

Tja, die Tags könnte man auch verwenden für sowas. Aber dann sind sie auch nicht mehr frei verfügbar.

Hauptsache du hast am Ende recht und behälst das letzte Wort. :zwinker:

[Hansa]

Zitat:

Zitat von mkinzler

Hauptsache du hast am Ende recht und behälst das letzte Wort. :zwinker:

In der Frage gibt es kein "Recht haben". Ich habe lediglich die möglichen Nachteile vom "Tag verbrennen" angesprochen und man sich notfalls mal mit properties etc. Kundig machen sollte.

[mkinzler]

du hast einen komplizierten weg vorgeschlagen und als man dann einen einfacheren genannt hat, eine Grund gegen diesen gefunden.

[himitsu]

nja, das .Tag ist ja zur freien Nutzung für den Programmierer vorgesehn und wofür man es nun verwendet ist dabei egal ... also kann man es auch ganz gut zur Identifikation nutzen.

ich hab hier irgendwo 'nen alten Installer-Setup rumliegen, dessen Benutzeroberfläche komplett über .Tag identifiziert wird (einige viele Edits, Buttons, ListBoxen ...)

dort sind im .Tag dann die Objekt-ID, Gruppen-ID und einige Statusflags integriert, worüber z.B. alle Edits mit nur ein/zwei Ereignisprozeduren behandelt werden können.