🚀 go-pugleaf

"Roger Hemme" <rog@net.nl> wrote in message
news:4581cf08@newsgroups.borland.com...

> This is a piece of code posted by Mr. Lebeau in the discussion "Adding
> news messages to a tree" (2004). I have some problems translating this
> into Delphi-code.

    var
        Messages: TStringList;
        XOverData: TStringList;
        ArticleIndex, ByteCount, LineCount, I: Integer;
        Subject, From, MsgId, References, ExtraData: String;
        dtDate: TDateTime;
        Node: TTreeNode;
    begin
        Messages := TStringList.Create;
        try
            XOverData := TStringList.Create;
            try
                // use whatever article indexes you are actually downloading
                IdNNTP1.XOVER(IntToStr(IdNNTP1->MsgLow) + '-' +
IntToStr(IdNNTP1.MsgHigh), XOverData);

                TreeView1.Items.BeginUpdate;
                try
                    for I := 0 to XOverData.Count-1 do
                    begin
                        IdNNTP1.ParseXOVER(XOverData[I], ArticleIndex,
Subject, From, dtDate, MsgId, References, ByteCount, LineCount, ExtraData);

                        Node := FindParentMessage(Messages, References);
                        if Assigned(Node) then
                            Node := TreeView1.Items.AddChild(Node, Subject)
                        else
                            Node := TreeView1.Items.Add(nil, Subject);

                        Messages.AddObject(MsgId, Node);
                    end;
                finally
                    TreeView1.Items.EndUpdate;
                end;
            finally
                XOverData.Free;
            end;
        finally
            Messages.Free;
        end;
    end;


Gambit