Hallo,

ich habe ein Programm, was mir in eine ListBox 100 Zufallszahlen ausgibt. Nun will ich, dass wenn man eine bestimmte Zahl in ein Edit-Feld eingibt und 'nen Button drückt, die ListBox nach dieser Zahl durchsucht wird und falls sie existiert, soll die Zahl in der ListBox durch eine null ersetzt werden.
Bin bis jetzt soweit:

markieren

Delphi-Quellcode:

FOR i := 0 TO ListBox1.Items.Count -1 DO
if StrToInt(Edit2.Text) = ListBox1.Items[i] THEN ListBox1.Items[i] := 0;

Hab schon gemerkt, dass das nicht funktioniert
Vielleicht kann mir ja hier einer helfen; hab schon gesucht, aber konnte nichtsdestotrotz das Problem noch nicht lösen

P.S.: Ich arbeite mit einem Array, um die Zahlen zu generieren (z : Array [0..100] of Integer).

markieren

Delphi-Quellcode:

  Idx := ListBox1.Items.ItemIndex(Edit2.Text);
  if Idx > -1 then
    ListBox1.Items[Idx] := '0';

markieren

Delphi-Quellcode:

FOR i := 0 TO ListBox1.Items.Count -1 DO
if (strtoint(edit1.text)=strtoint(ListBox1.Items[i])) then ListBox1.Items[i] := '0';

Setzte mal das '-Zeichen vor und nach der 0(Null).
Du muss den Wert aus der Listbox noch in eine Integerzahl umwandeln.

Bei mir hat es funktioniert!

ListBox1.Items.Delete(ListBox1.Items.IndexOf(Edit1.Text))

Ups, hehe

Ich mein natürlich:
ListBox1.Items.Strings[ListBox1.Items.IndexOf(Edit1.Text)] := '0'; Glaub ich mich erinnern zu können

Zitat von Ultimator:

ListBox1.Items.Delete(ListBox1.Items.IndexOf(Edit1.Text))

Wer sagt denn, dass er den Eintrag löschen will

Danke für eure Hilfe; hab's folgendermaßen gelöst (Zahl wird gelöscht):

Prozedur:

markieren

Delphi-Quellcode:

procedure entferne (ListBox: TListBox; eintrag : String); // Zahl in der ListBox suchen/entfernen
var i : Integer;
begin
 FOR i := 0 TO ListBox.Items.Count - 1 DO // Inhalt durchlaufen
 IF ListBox.Items[i] = eintrag THEN // Falls Eintrag des Edit-Feldes mit Zeile der ListBox übereinstimmt...
 begin
  ListBox.Items.Delete(i); // ... entferne entsprechende Zeile...
  Exit // ... und verlasse die Schleife
 end;
end;

Aufruf:

entferne(ListBox1, Edit2.Text) Trotzdem danke für eure Hilfe, hat mir nichtsdestotrotz geholfen!