🚀 go-pugleaf

Remy Lebeau (TeamB) skrev:
> "Roger Hemme" <rog@net.nl> wrote in message
> news:4581cf08@newsgroups.borland.com...
> 
> 
>     var
>         Messages: TStringList;
>         XOverData: TStringList;
>         ArticleIndex, ByteCount, LineCount, I: Integer;
>         Subject, From, MsgId, References, ExtraData: String;
>         dtDate: TDateTime;
>         Node: TTreeNode;
>     begin......    

Thank you very much, Gambit! But...what i'm trying to do isn't working, 
so i wonder if the translation i have of the " FindParentMessage " - 
function is wrong? Here it is:

function FindParentMessage(Messages: TStrings; References: String): 
TTreeNode;
var  pFirst:        PChar;
      pStop:         PChar;
      pStart:        PChar;
      pEnd:          PChar;
      MsgIdToFind:   String;
      idx:           Integer;
begin

   result:=nil;

   if not(Length(References) = 0) or (Messages = nil) then
   begin
      pFirst:=PChar(References);
      pStop:=pFirst + 2;
      pStart:=AnsiLastChar(References);
      pEnd:=pStart;
      while (pEnd > pStop) do
      begin
         while ((pEnd > pStop) and (pEnd^ <> '>')) do Dec(pEnd);
         if (pEnd = pStop) then break;
         pStart:=(pEnd - 1);
         while ((pStart >= pFirst) and (pStart <> '<')) do Dec(pStart);
         if (pStart < pFirst ) then break;
         SetString(MsgIdToFind, pStart, pEnd - pStart + 1);
         for idx:=Pred(Messages.Count) downto 0 do
         begin
            if (Messages[idx] = MsgIdToFind) then
            begin
               result:=TTreeNode(Messages.Objects[idx]);
               exit;
            end;
         end;
         pEnd:=(pStart - 1);
      end;
   end;

end;