안녕하세요. 최용일입니다.

둘다 루프문쓰시면 간단한데요...

procedure TForm1.Button1Click(Sender: TObject);
begin
    SearchNode('A');
end;

procedure TForm1.SearchNode(const NodeName: string);
var
    Node: TTreeNode;
begin
    Node := TreeView1.Items.GetFirstNode;
    repeat
        if Node.Text = NodeName then
            ListBox1.Items.Add('Absolute Index: ' + IntToStr(Node.AbsoluteIndex));
            ListBox1.Items.Add('Path: ' + GetItemPath(Node));
        Node := Node.GetNext;
    until Node = nil;
end;

function TForm1.GetItemPath(Node: TTreeNode): string;
begin
    Result := '';
    if Node <> nil then
    begin
        Result := Node.Text;
        while Node.Parent <> nil do
        begin
            Node := Node.Parent;
            Result := Node.Text + '->' + Result;
        end;
    end;
end;

^^ 항상 즐코하세요...

안녕하세요. 무식한 델초보입니다.
function TForm1.GetItemPath(Node: TTreeNode): string;
procedure TForm1.SearchNode(const NodeName: string);
를 Type 절에 넣어야 되는데, 어떻게 넣는지 잘 모르겠습니다.
책을 지금 열심히 보고 있는데, 간단히 값에 의한 전달, 참조에 의한 전달, 상수값에 의한 전달, 배열에 의한 전달 이렇게 나와 있는데, 님께서 조언해주신 것은 상수에 의한 전달은 알겠습니다.
그래서, 그냥 Type 절에
procedure TForm1.SearchNode(const NodeName: string);
이렇게 넣었는데, Expected'='but'('found. 라는 메세지가 출력됩니다.
워낙 초보적인 질문이라 송구스럽습니다.

안녕하세요. 최용일입니다.

앞에 TForm1.이란게 붙어있잖아요. 클래스의 메소드입니다.

그러니까 TForm1안에 선언하시면 됩니다. TForm1은 님이 만드신 폼명입니다.

type
    TForm1 = class(...)
        ......
    private
        procedure SearchNode(const NodeName: string);
        function GetItemPath(Node: TTreeNode): string;
        ......
    end;

^^ 항상 즐코하세요...