In einer ListBox einen Eintrag suchen bzw. Eintrag ändern

[leddl]

Zitat von jeany06:

Echt lieb von dir, was ist OH?

Maus drauf und staunen

[Matze]

Zitat von jeany06:

Echt lieb von dir, was ist OH?

Die Delphi-Onlinehilfe (erreichbar in der IDE über F1).

[inherited]

Zitat von jeany06:

Hallo,

Besondere Probleme sind die ständigen Fehlermeldungen, das String und Integer nicht miteinander
funktionieren.

Nimm IntToStr(integervar) bzw. StrToInt(stringvar) [quote]

[jeany06]

Einfach toll, dann können wir ja doch die Schleife benutzen, werden es gleich probieren. Lieben Dank.

[jeany06]

Also, wir haben alle Ratschläge berücksichtigt. Dennoch funktioniert die Suchfunktion nicht. Alle Rechner hängen sich auf... könntet ihr uns einen Muster des vollständigen Codes schreiben/schicken? Wohnt jemand in Berlin, den man besuchen kann???? Verzweifeln....

[leddl]

Wozu willst du eine Schleife benutzen? Du hast dein EditFeld mit dem zu suchenden Begriff und du hast die ListBox.
Mit IndexOf kannst du jetzt den Index des Suchbegriffs in der ListBox herausfinden. (-1 für "nicht gefunden", 0 für das erste Element, 1 für das zweite...) Da is nix mit Schleife, sondern einfach nur die eine Zeile, die jetzt schon mehrmals gepostet wurde.

[jeany06]

Hey, tut uns echt leid, dass wir das nicht hinbekommen, die -1 wurde uns mit dem Aufhängen des Programms gezeigt, mit dem Verweis, das irgendwas noch viel größer ist, schicke dir jetzt was wir haben. Zumindest stürzt er jetzt nicht mehr ab. Markiert aber auch nicht den SUchbegriffe.

Delphi-Quellcode:

procedure TForm1.Button9SucheClick(Sender: TObject);
var i:integer;
begin
        FOR i := 0 TO ListBoxText.Items.Count - 1 DO
        if ListBoxText.ItemIndex = ListBoxText.Items.IndexOf(Edit9Suche.Text)
        then ListBoxText.Color:=TColor(3);

end;

Und wir dachten die Schleife, weil die Listbox durchsucht werden soll nach dem Begriff.
Wir haben auch nur nicht wirklich viel über Delphi gelernt, deshalb nochmals dickes SORRY für all die dummen Fragen.
lg

[leddl]

Zitat von jeany06:

Hey, tut uns echt leid, dass wir das nicht hinbekommen, die -1 wurde uns mit dem Aufhängen des Programms gezeigt, mit dem Verweis, das irgendwas noch viel größer ist, schicke dir jetzt was wir haben. Zumindest stürzt er jetzt nicht mehr ab. Markiert aber auch nicht den SUchbegriffe.

Delphi-Quellcode:

procedure TForm1.Button9SucheClick(Sender: TObject);
var i:integer;
begin
        FOR i := 0 TO ListBoxText.Items.Count - 1 DO
        if ListBoxText.ItemIndex = ListBoxText.Items.IndexOf(Edit9Suche.Text)
        then ListBoxText.Color:=TColor(3);

end;

Und wir dachten die Schleife, weil die Listbox durchsucht werden soll nach dem Begriff.
Wir haben auch nur nicht wirklich viel über Delphi gelernt, deshalb nochmals dickes SORRY für all die dummen Fragen.
lg

Delphi-Quellcode:

if ListBoxText.Items.IndexOf(Edit9Suche.Text) > -1 then
  ListBoxText.Color := TColor(3);

Dein Code macht so einfach keinen rechten Sinn. Ich hoffe, ich habe es aber trotzdem richtig interpretiert.

//Edit: Ich sehe gerade, du willst das gefundene Item markieren.
ListBoxText.ItemIndex := ListBoxText.Items.IndexOf(Edit9Suche.Text);

[jeany06]

Die If-Anweisung wurde geändert, dein Markierungsvorschlag übernommen und es regt sich nach der Eingabe des Suchbegriffs, z.B. Wollke, nichts. Was für ein kompliziertes Programm. Danke für deine Geduld. lg jeany

[leddl]

Zitat von jeany06:

Die If-Anweisung wurde geändert, dein Markierungsvorschlag übernommen und es regt sich nach der Eingabe des Suchbegriffs, z.B. Wollke, nichts. Was für ein kompliziertes Programm. Danke für deine Geduld. lg jeany

Hast du auch die Schleife entfernt? Und welchen von meinen Codestücken hast du benutzt? Der erste färbt einfach die ListBox komplett ein, der zweite markiert den entsprechenden Eintrag.
Du sagtest, daß "sich nach der Eingabe nichts regt". Du hast aber schon auf den Button gedrückt, oder? Und der String, den du in das Editfeld eingegeben hast, ist auch definitiv in der ListBox enthalten?