Delphi. Вставить текст в файл.
2448
3
Всем доброго дня!
У меня имеется файл xml. Так получилось, что там по каким-то причинам не указана кодировка. С файлом я работаю при помощи TXMLDocument, а в таком виде он открывать файл решительно отказывается.
Соответственно, встала задача указать кодировку.
Как это лучше сделать? Была попытка через метод Write объекта TFileStream засунуть сведения о кодировке в файл:
price_enc.Seek(20, soFromBeginning);
price_enc.Write('encoding="windows-1251 "', 24);
Но тогда символы после 20-й позиции затираются новыми... Разумеется, это меня не устраивает.
Что посоветуйте?..
Midsummer
Хм... а ручками залезть в файлик (в Блокноте например) и поправить кодировку?
Но раз уж вы хотите программно это делать - то советую текстовые объекты - например загрузить в TStringList, поменять строку и выгрузить обратно))
craxx
Ручками нельзя, т.к. получившейся программой буду пользоваться не я, а исходный xml-файл будет постоянно меняться.
А насчет TStringList... спасибо, это мысль :улыб:попробую
craxx
Хм... с TStringList все получилось элементарно.
Наверное, у меня утром мозг совсем выключился :смущ: