[Oleg]

Вот я решил организовать работу по выводу всех t id в функции, как мне лучше вернуть результат. Ведь в массиве строк нельзя ? Как лучше(по типу String). Чтобы каждое значение было как бы в одной строке ? Подскажите

Код:

function GetTidForPage(XML:IXMLDocument;page:integer):string;
var
  Nodes     : IXMLNodeList;
  PageNode,
  ChildNode : IXMLNode;
  s             :String;
begin
  s:='';
  if XML = nil then Result:='Error: File Not Found';
  try
    Nodes     := XML.DocumentElement.ChildNodes;
    PageNode  := Nodes.FindNode('page');
    while (PageNode <> nil) do
      if (PageNode.NodeName <> 'page') or (PageNode.Attributes['id'] <> page) then
        PageNode := PageNode.NextSibling
      else
        break;
    if PageNode <> nil then begin
      Nodes     := PageNode.ChildNodes;
      ChildNode := Nodes.First;
      while ChildNode <> nil do begin
       s:=s+ChildNode.Text;
      ChildNode := ChildNode.NextSibling;
      end;
    end;
    finally
    XML := nil;
    Result:=s;
  end;
end;