ListBox

[cherry]

Hi..

Ich will überprüfen ob der Eintrag den ich in die ListBox eintragen will,
schon vorhanden ist.

Dazu habe ich mir mal folgendes zurechtgelegt:

Delphi-Quellcode:

  for i:= 1 to ListBox3.Items.Count do
  begin
   if (ListBox3.Items.ValueFromIndex[i] = Edit2.Text) then
    ShowMessage('Strasse schon ausgewählt...')
   else
    ShowMessage(ListBox3.Items.ValueFromIndex[i]);
  end;

Leider funktioniert dies nicht!
Folgendes Szenario habe ich debugt:

Ich füge einen Eintrag ein z.B. 'asdf'
Die Schleife durchläuf nicht, weil die ListBox noch leer ist, also Items.Count = 0

Dann füge ich nochmals 'asdf' ein.
Die schleife wird einmal durchlaufen, weil Items.Count = 1

Komisch ist jetzt, das das Naximum des ListenIndexes(1) überschritten wurde (laut Fehlermeldung)
und warum ist jetzt i = 256 und nicht i = 1 wie das eigentlich sein müsste...

Naja, das stellt sich sicherlich bald heraus, bin schon gespannt!