Показать сообщение отдельно
  #5  
Старый 17.07.2010, 17:28
gold-concert gold-concert вне форума
Прохожий
 
Регистрация: 17.07.2010
Сообщения: 12
Репутация: 10
По умолчанию

Понял, а мне это дело надо принемить до 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;

Или это я плохо придумал?

Сам спросил - сам отвечу. Попробовал - не работает.
Может кто знает как это все дело применить к моему случаю?
Ответить с цитированием