label´s zählen

[oki]

Zitat von MasterTobi:

ich bin so dumm!
mfg

ne, halt nur Anfänger.

Deine Aufgabenstellung hatte ich aber nicht so

Zitat:

wenn label2.caption und oder label1, label3, label4 ..... label13 ='x' dann edit1.text = //anzahl der 'x'//

verstanden.

kläre uns doch noch mal auf, wann sich X in den Labels ändert und warum das Ergebnis in ein Edit soll. Umgekehrt macht für mich mehr Sinn. Oder hab ich jetzt alles falsch verstanden?

Gruß oki

[MasterTobi]

hey

also

Delphi-Quellcode:

if edit14.text = edit27.text then label1.caption :='x'
else label1.caption :='';

Delphi-Quellcode:

    
    if edit15.Text = edit28.Text then label2.caption :='x'
    else label2.caption :='';

so wenn beides wahr ist hab ich in label1 und label2 ein 'x' stehen.

jetzt soll mir delphi bzw mein prog. die anzahl der vorhandenen 'x' zeigen


die anzeige kann in einem label oder edit feld sein , das ist mir relativ^^.

[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.

[MasterTobi]

ich habe es versucht!
aber irgendwie sagt der mir bei

Anzahl := 0;

einen fehler!?!

muss ich da noch eine var setzen?

mfg

[Zwixx]

du musst die Variable schon deklarieren... sonst geht nix

Am Anfang der Prozedur

Delphi-Quellcode:

var
  Anzahl : Integer;

[MasterTobi]

Juhu danke @ all

das hat funktioniert.


mfg
tobi