关于Delphi自带例子中一个看不懂的地方

Question

Borland\Delphi6\Demos\Internet\XMLTransformProvider这个例子中的有两句话procedure TForm1.XMLTransformProvider1DataTransformWriteTranslate(
  Sender: TObject; Id: String; SrcNode: IDOMNode; var Value: String;
  DestNode: IDOMNode);
begin
   if Id = '#price' then
      if Value <> '' then
        if Value[1] = '$' then
           Value:= Copy(Value, 2, Length(Value)-1); //Remove '$'-sign again
end;procedure TForm1.XMLTransformProvider1DataTransformReadTranslate(
  Sender: TObject; Id: String; SrcNode: IDOMNode; var Value: String;
  DestNode: IDOMNode);
begin
  if Id = '#price' then
     if Value <> '' then
       Value:= '$'+Value; //Add '$'-sign to 'price'-field.
end;这两段代码是做什么用的？

Answer 1

写入数据库时把value前的$去掉
读取显示数据库时在value前加$

Answer 2

这两段代码屏蔽掉，程序也可以运行啊，比较了以下，初步并没有看出有什么不同的地方还有，这个写入新的XML文件是怎么做到的？我参照这个例子做了一个，生成的XML文件总是有错误

Answer 3

已经解决写入新文件长生错误的原因只是不明白，我并没有参考那两个procedure的代码，也能通过调试，并正确生成文件
那还要那两句话干吗