Suchfunktion <> Listbox ?

[Vader]

hallo marabu,

das check ich nicht mit "InputQuery()"

? // dein Code für die Suche nach searchText usw...... ?

mfg vader

[marabu]

Im einfachsten Fall dann so:

Delphi-Quellcode:

procedure TForm1.SearchButtonClick(Sender: TObject);
var
  searchText: string;
begin
  searchText := '42';  // Initialisierung
  if InputQuery('Suchen nach', 'Suchtext', searchText) and (searchText <> '') then begin
    MarkFirstLine(ListBox1, searchText);
  end;
end;

marabu

[alexkoe]

hallo
das funktioniert zwar mit dem pos aber der findet bei uns nur den eintrag aus zeile 1.
woran könnte das liegen?

mfg alex

[mkinzler]

Pos liefert die Position der ersten Fundstelle zurück . Verwende PosEx um die Suche an dieser Stelle als Offset fortzusetzten.

[himitsu]

Zitat von mkinzler:

Verwende PosEx um die Suche an dieser Stelle als Offset fortzusetzten.

An der Stelle danach,
denn PosEx sucht ab dem Index, welcher angegeben wird
und wenn man den Index angibt, wo vorher was gefunden wurde,
dann findet PosEx ja immer wieder das Alte und nicht das danach.

Code:

i := Pos(Wort, ListBox.Items[i]);
While i > 0 do Begin
  ... // i = Index des Gefundenen
  i := PosEx(Wort, ListBox.Items[i], i [b]+ 1[/b]);
End;

[marabu]

Beitrag #23 war vermutlich ein Irrläufer - aber trotzdem:

Delphi-Quellcode:

function FindCount(s: TStrings; const subStr: String): Integer;
var
  i, iPos: Integer;
begin
  Result := 0;
  for i := 0 to Pred(s.Count) do
  begin
    iPos := Pos(subStr, s[i]);
    while iPos > 0 do
    begin
      Inc(Result);
      iPos := PosEx(subStr, s[i], iPos + Length(subStr));
    end;
  end;
end;

Grüße vom marabu

[himitsu]

Na, um die Codes noch zu vervollständigen ... mit dem aus der CodeLib und .Text geht's och

Code-Library -> Object-Pascal / Delphi-Language > (Teil)String in anderem String suchen/zählen > CountString


Anzahl := CountString(searchText, StringList.Text);