label´s zählen

[Zwixx]

Dann hast du 2 Ansatzmöglichkeiten:

1. Abfrage direkt der Labels:

Delphi-Quellcode:

Anzahl := 0;
if label1.caption = 'x' then Inc(Anzahl);
if label2.caption = 'x' then Inc(Anzahl);
if label3.caption = 'x' then Inc(Anzahl);
if label4.caption = 'x' then Inc(Anzahl);
if label5.caption = 'x' then Inc(Anzahl);
if label6.caption = 'x' then Inc(Anzahl);
if label7.caption = 'x' then Inc(Anzahl);
...
Edit1.Text := IntToStr(Anzahl);

2. Ansatz

du fügst bei dem Text := 'x' vor das if ein Dec(Anzahl) und bei dem Setzen des Textes auf 'x' ein Inc(Anzahl) hinzu. Am Ende dann wieder ein Edit1.Text := IntToStr(Anzahl);

Ich würde bei einer solch einer solch einfachen Sache eher auf Ansatz 1 zurückgreifen, da sie übersichtlicher ist. Vor allem must du bei Ansatz 2 die Anzahl immer genau zurücksetzen wenn das Formular initialisiert wird, was zu unschönen Fehlern führen kann, falls man sich da vertut.