Suchen in ListBox ?

[Delphiturbo]

Hallo

mit dem Code wird zwar in ListBox1 nach dem Word gesucht und wenn was gefunden
wird auch markiert aber der Code sucht nur in dem ersten Word der Zeile
Ich habe ein Beispiel (sehe Anhang, wo es das Wort Tom nicht finden kann)

Delphi-Quellcode:

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
const
  indexStart = -1;
var
  search : array[0..128] of Char;
begin
  //make sure Length(Edit1.Text) <= 128
  StrPCopy(search, Edit1.Text) ;
  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  search : array[0..128] of Char;
  indexactuell : integer;
begin
indexactuell := Listbox1.Itemindex;

  //make sure Length(Edit1.Text) <= 128
  StrPCopy(search, Edit1.Text) ;
  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexactuell, LongInt(@search)) ;
  indexactuell := indexactuell + 1;

end;

[DeddyH]

Dann iteriere durch die Items und schau mit Pos() selber nach.

[Neutral General]

Hi delphiturbo.

Ich mache dir einen Vorschlag... Ich habe hier ein Rezept für dich:

• Listbox
• for-Schleife (i: Integer)
• pos

Damit kann man genau das kochen, was du haben willst. Und der Vorteil ist: wenn dus hinbekommst, verstehst du den Code auch

Nur so als Tipp: Das lästige Suchen nach Code im Internet lässt sich durch eigenes Nachdenken ersetzen. Dadurch lernt man zu programmieren und beim nächsten mal gehts schon viel einfacher. Super Sache oder?

[Luckie]

Und wie so oft, hilfe lesen bildet:

Zitat von Windows SDK:

An application sends an LB_SELECTSTRING message to search a list box for an item that begins with the characters in a specified string.