Понял, а мне это дело надо принемить до WriteXML?
Я прошу прощения, просто я Delphi знаю очень поверхностно, а сделать по зарез нужно.....
Если я сделаю так:
Код:
procedure convert;
var
S: TStream;
Sign: Cardinal;
begin
S := TFileStream.Open(Edit1.Text + '.html',fmCreate);
try
Sign := $BFBBEF;
S.WriteBuffer(Sign, 3);
finally
S.Free;
end;
end;
И просто перед вызовом Newtovar; вызову также convert;
Есессно в private объявлю
procedure convert;
Или это я плохо придумал?
Сам спросил - сам отвечу. Попробовал - не работает.
Может кто знает как это все дело применить к моему случаю?