Проблема загрузки/сохранения StingList в файл

[Dj_SheLL]

Проблема такова:
В edit-ах находятся полные пути до файлов (типа "e:\Мои документы\Проект\13.mp3").Делаю типа редактора для плейлиста-XML.
playlist.xml находится в каталоге программы и некуда деваться не должен.
Я чтобы изменить данные открываю XML,как простой текстовый файл,гружу в StringList,изменяю то,что нужно и сохраняю.Вот код:

procedure TForm1.Button3Click(Sender: TObject);
var
 F:TStringList;
 dir,img,tit:string;
begin
dir:=Edit2.Text;
img:=Edit3.Text;
tit:=Edit4.Text;
F:=TStringList.Create;
F.LoadFromFile(ExtractFilePath(ParamStr(0))+'playlist.xml');
F.Insert(F.IndexOf('<mp3 autoplay="no">')+1,'<song location="'+dir+'" cover="'+img+'" title="'+tit+'"/>');
F.SaveToFile('playlist.xml');
F.Free;
end;

Проблема в том,что когда в Edit-ах не "пути",то всё нормально.Как пишу путь до файла,StringList ругается на то,что не может найти playlist.xml,в том каталоге,куда ведёт "путь" из Edit-а.
Мои действия:
1.Пытался через переменные-тот же результат
2.Переписал загрузку.Было

F.LoadFromFile('playlist.xml');

-не то.Он сохраняет в файл в тот каталог,из "пути".
В чём может быть проблема?!

[Олвин]

Не-е... Так проблему не понять. Выкладывайте весь проект.

[bitSoft]

ia znayu zacem, prosta kogda ti atkrivaeshi fail, to tvaia programa vstavit defaultovii Folder na drugoi puti, na tot atcuda ti oktril fail, caroci zdelai tak

var
 F:TStringList;
 dir,img,tit:string;
 FPath : String;
begin
FPath := ExtractFilePath(ParamStr(0));
if FPath[Length(FPath)] <> '\' Then FPath := FPath + '\';
dir:=Edit2.Text;
img:=Edit3.Text;
tit:=Edit4.Text;
F:=TStringList.Create;
F.LoadFromFile(FPath + 'playlist.xml');
F.Insert(F.IndexOf('<mp3 autoplay="no">')+1,'<song location="'+dir+'" cover="'+img+'" title="'+tit+'"/>');
F.SaveToFile(FPath + 'playlist.xml');
F.Free;
end;

[пауэрлифтинг]

не проще через XmlDocument

[Dj_SheLL]

Сообщение от Олвин

Не-е... Так проблему не понять. Выкладывайте весь проект.

Прикрепляю файл.Там заполняешь поля и жмёшь кнопку добавить.И должна добавляться строка в XML куда надо.Сам XML там же.Я только для него делаю.Под другие не катит XML-плейлисты.

Сообщение от bitSoft

ia znayu zacem, prosta kogda ti atkrivaeshi fail, to tvaia programa vstavit defaultovii Folder na drugoi puti, na tot atcuda ti oktril fail, caroci zdelai tak

Спасибо!!Добавление помогает!+в репу

Сообщение от пауэрлифтинг

не проще через XmlDocument

Ну подскажите пожалуйста,я просто с этим компонентом только вчера познакомился.Мноооооогого не знаю.Просто я работаю,как с текстовым потому,что мне нужно добавлять строку после первых двух всегда,а в XML через ChildNodes я без понятия как.

Возникла ещё проблема!
После добавления,пытаюсь загрузить XML в ListBox (в архиве прога вся),выскакивает ошибка типа не могу текст обнаружить в той добавленной строке.Но это делаю через XmlDocument (короче он на путь ругается).Но это уже не по теме правда...Но всё же.

[Dj_SheLL]

Я понял в чём ошибка!Просто при чтении из XML в ListBox через XmlDocument -этот компонент не воспринимает русские символы в самом файле.Чё делать?Подскажите.

[пауэрлифтинг]

вот тут про XmlDocument написано

не воспринимает русские символы в самом файле.Чё делать?

попробуй менять кодировку

[Dj_SheLL]

Замена кодировки помогла!