会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
whisht
十年
博客园
::
首页
::
博问
::
闪存
::
新随笔
::
联系
::
订阅
::
管理
::
公告
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>
posted on
2012-01-07 22:22
WHISHT
阅读(
1071
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部