Søg i Treeview

Prøvede sådan her:

function GetNodeByText
(HTML : TTreeView; AValue:String; AVisible: Boolean): TTreeNode;
var
    Node: TTreeNode;
begin
  Result := nil;
  if HTML.Items.Count = 0 then Exit;
  Node := HTML.Items[0];
  while Node <> nil do
  begin
    if UpperCase(Node.Text) = UpperCase(AValue) then
    begin
      Result := Node;
      if AVisible then
        Result.MakeVisible;
      Break;
    end;
    Node := Node.GetNext;
  end;
end;

{$R *.dfm}

procedure TForm1.soegknapClick(Sender: TObject);
var
  tn : TTreeNode;
begin
  tn:=GetNodeByText(HTML,soegfelt.Text,CheckBox1.Checked);
  if tn = nil then
    ShowMessage('Not found!')
  else
    begin
      HTML.SetFocus;
      tn.Selected := True;
    end;

end;

Men det virker så kun sådan at den finder noget hvis man skriver præcist det samme som en item hedder. Dvs. at hvis der en item som hedder: <form></form>, så SKAL man skrive det, for at den finder den item. Ellers så siger den not found. Og det er sådan den kode virker.

Hvordan gør jeg så sådan at den søger efter alt, selvom man også skrive "b" eller "form", eller hvad som helst. Den skal bare find en item der indholder ord/bogstav som man har indtastet i edit'en.

Håber i kan hjælpe udfra den kode :)

Forresten:

-HTML    : Treeview'en
-soegfelt : Edit'en

i stedet for:

if UpperCase(Node.Text) = UpperCase(AValue) then

kunne du prøve:

if AnsiContainsText(Node.Text, AValue: string) then

skalshoj>
den melder det her:
[Error] Main.pas(100): Undeclared identifier: 'AnsiContainsText'

Glemte at tilføje at du skal have:

StrUtils

med i din uses

Skalshoi> den melder:
[Error] Main.pas(142): ')' expected but ':' found
Ved "AVaulue:"

Jammen, så prøv med:

if AnsiContainsText(Node.Text, AValue) then

*hehe* Der skal jo ikke være nogen type-erklæring der ;o)

Cut and paste kan jo være noget l... :-))

Okay, nu virker det :)
Men hvordan gør jeg sådan at hvis jeg trykker på TButton igen, så skal den finde et andet sted hvor søgeordet indholder? En slags FindNext funktion.

Du ændre din "while Node <> nil do", så man fortsætter fra det sted man forlød løkken sidst.
Det er for øvrigt en noget ustruktureret programmering at afbryde en løkke med et "break"

ib-rene-cario> kan du ikke hjælpe med kode ? forstår ikke helt hvordan jeg skal gør det :(

Jeg har ikke lyst til at lave programmet for dig. Det lærer du ikke selv noget ved.
Som sagt er det din While-løkke du skal kikke på :o)

PS: skalshoi har besvaret dit oprindelige spørgsmål.