Delphi 取JPG图片内的Exif信息

<span style="color: rgb(51, 51, 51); font-family: Arial, Helvetica, simsun, u5b8bu4f53; font-size: 14px; line-height: 25px; "><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">取Exif信息</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />var<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  PropSize: UINT;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  PropItem: PPropertyItem;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  S:PChar;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  S1,S2:String;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />begin<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  PropSize :</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> GPImage.GetPropertyItemSize(ItemID);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropSize</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> then begin<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">''</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    Exit;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  end;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  GetMem(PropItem ,PropSize);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  GPImage.GetPropertyItem(ItemID, PropSize, PropItem);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">字符</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeASCII then begin<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  end;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">分数</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> (PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeRational)<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    or (PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PropertyTagTypeSRational) then begin<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    S:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    S1:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">3</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); "><br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />        IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">1</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    S2:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">7</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">6</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); "><br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />        IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">5</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">4</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S1))</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">/</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S2));<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  end;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">数字</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeShort then begin<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    S:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    S1:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">1</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S1));<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  end;<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">字节</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br style="line-height: 25px; " /></span><span style="line-height: 25px; "><span style="line-height: 25px; color: rgb(0, 0, 0); ">{</span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeByte then begin<br style="line-height: 25px; " />    S:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br style="line-height: 25px; " />    S1:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">1</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br style="line-height: 25px; " />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S1));<br style="line-height: 25px; " />  end;}</span></span><span style="line-height: 25px; color: rgb(0, 0, 0); "><br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />  FreeMem(PropItem);<br style="line-height: 25px; " /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" align="top" style="line-height: 25px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; max-width: 100%; " />end;</span></span>