Entwickler-Ecke

Multimedia / Grafik - Datentypenproblem


Ulixes - Mo 24.11.08 18:10
Titel: Datentypenproblem
Hey!

Sorry warscheinlich ganz einfach, aber ich bin betriebsblind...

Ich möchte ganz simpel zählen, wie oft die 1 in der Listbox vorkommt...


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
procedure zaehlen ();
var zaehler,i:integer;
begin
for i:= 1 to form5.listbox1.Count - 1 do
begin
if strtoint(form5.ListBox1.Items[i]) = 1 then
zaehler:= zaehler+1;
end;
form5.edit1.Text:= inttostr(zaehler);
end;


Es kommt nach dem Compilieren die Fehlermeldung, dass "0 'kein gültiger Integerwert ist.

Danke für die Hilfe!!!!! :D :D


freedy - Mo 24.11.08 18:19

Schnelle Hilfe wäre erstmal, den Vergleich ohne Umwandlung zu machen.

Delphi-Quelltext
1:
  if form5.ListBox1.Items[i] = '1' then                    


Solltest du dann dort schon einen Fehler haben, wirst du es schnell merken.

Ansonsten sehe ich keine Fehler. Es hängt natürlich auch davon ab, was da so in deiner ListBox steht.


platzwart - Mo 24.11.08 18:22

"0 " -> eine Null mit nachfolgendem Leerzeichen ist keine Zahl!


Ulixes - Mo 24.11.08 18:24

Cool...

Es funktioniert!!!! :D :D :D :D

VIELEN DANK