Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Помогите оформить текст в файле

Автор: Pavelbej 19.2.2008, 23:32

Нужно дерево папок и файлов сохранить в файл в первозданном виде, а у меня получается не очень красиво. Посоветуйте что нибудь

Вот что получается:
user posted image

А вот что нужно:

Код


#FOLDER
    ID=11
    NAME=Корзина
    TRASH FOLDER=YES
    UNIQUEID=a86af3602b5641109de0dac709aeddbd

#FOLDER
    ID=31
    NAME=Software
    CREATED=1202893843

#FOLDER
    ID=34
    NAME=Soft
    CREATED=1202894476

#URL
    ID=35
    NAME=FreeTranslation.com
    URL=http://www.freetranslation.com/

#URL
    ID=36
    NAME=Front Page
    URL=http://www.nytimes.com/

Cохраняю так (в текстовый файл):

Код


procedure SaveToOperaBookmark(Node: PVirtualNode; str: TStrings);
var Node1: PVirtualNode;
    Data1: PLinksCollector;
begin
    Node1 := Node.FirstChild;
    if Assigned(Node1) then
    repeat
        Data1 := form1.VsT1.GetNodeData(Node1);
        if assigned(data1) then
          str.Add(data1^.Location);
        SaveToOperaBookmark(node1, str);
        Node1 := Node1.NextSibling;
    until Node1 = nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var str1: TStrings;
begin
   str1:=TStringList.Create;
   try

   SaveToOperaBookmark(vst1.RootNode, str1);
   if savedialog1.Execute then
      str1.SaveToFile(savedialog1.FileName);
   finally
      str1.Free;
   end;
end;

Интересно вышло, когда копировал сюда текст, то он отобразился так как надо.
Так в чем тут дело?

Автор: VICTAR 20.2.2008, 00:37

То что на картинке, откуда это? В чем просматриваешь?

Автор: Pavelbej 20.2.2008, 02:12

Странно, когда создавал тему, картинка была. Проверил в новом окне, все нормально. Что-то с форумом наверное.

Вот ссылка http://www.vscsoftware.com/result.gif

Автор: Esperito 20.2.2008, 17:11

Какие у тебя символы конца строки? Должно быть #13#10, а у тебя похоже только какой-то один из них.