Помогите оформить текст в файле

 
0
 
Delphi, Kylix and Pascal
ava
Pavelbej | 19.02.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;


Интересно вышло, когда копировал сюда текст, то он отобразился так как надо.
Так в чем тут дело?
Ответы (3)
ava
VICTAR | 20.02.2008, 00:37 #
То что на картинке, откуда это? В чем просматриваешь?
ava
Pavelbej | 20.02.2008, 02:12 #
Странно, когда создавал тему, картинка была. Проверил в новом окне, все нормально. Что-то с форумом наверное.

Вот ссылка http://www.vscsoftware.com/result.gif
ava
Esperito | 20.02.2008, 17:11 #
Какие у тебя символы конца строки? Должно быть #13#10, а у тебя похоже только какой-то один из них.
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
advanced
Отправить