@oki: Die Annahme ist falsch.
Zitat:
Delphi-Quellcode:
begin
Dec (XAnzahl, Ord(DeinLabel.Caption = '
X'));
DeinLabel.Caption := NeueCaption;
Inc (XAnzahl, Ord(DeinLabel.Caption = '
X'));
end;
es wird decrementiert wenn es ein X-Buch war
und es wird wieder incrementiert wenn es danach ein X-Buch ist.
War also vorher ein X-Buch und nachher wieder wird erst decrementiert dann incrementiert und raus kommt 0 - also keine Veränderung.
Zum Thema
FindComponent hab ich erst kürzlich folgendes geschrieben:
Zitat:
Ich bin der Meinung FindComponent sollte man nur einsetzen wenn es ohne suche nicht geht. Ansonsten ist es unglücklich programmiert und eine Verschwendung von Ressourcen.
Im realen Leben wirft ja auch keiner seinen Autoschlüssel nach hinten über die Schulter irgendwo hinn um ihn später zu suchen. Da legt man den Autoschlüssel auch dort hinn wo man ihn später nicht suchen braucht.
Es muss natürlich auch Programmierer geben welche FindComponent verwenden damit die neueste Generation der Rechner auch Absatz findet und diese möglichst stark augelastet werden