Delphi中实现变长函数笔记

  前面从网络中收藏加转贴了一部分关于变长参数函数的笔记。反正休闲没事，于是就专门的研究研究了如何用Delphi来实现类似于C语言中Printf这种可以传递任意多个参数的函数。这个实际上来说也不太难，只要俺们都熟悉函数的调用规则，那么就很容易了。实际上这个变长，总体上来说，应该是有迹可循的。那这个迹象在哪里，就是关键点了，也就是说，最主要的是要知道，这个函数到底传递了多少个参数。我们参看C的,printf和Windows的wsPrintf，都知道，实际上他里面都有一个Format的参数类型。有这个类型，就可以根据这个格式参数，来获取里面有多少个%d,%s,%f这样的匹配内容了，于是通过这个，我们就可以知道函数到底传递了多少个参数了。继而，俺们就可以从程序堆栈当中把这些参数一个个的给找出来，然后在俺们的函数中加以处理。那么这时候肯定就有人要问了，为什么参数是在堆栈中。。。。这个。。还是归于函数调用法则来说，最初制定的时候，有规定stdcall,pascal，以及Delphi默认的Register调用都是由程序自动管理堆栈，除此之外，还有一种调用方式就是cdecl这个方式，是由我们自己来平衡堆栈，自己管理的，而动态个数参数的函数，也就必须是这个cdecl的调用方式，这种调用方式，参数是按照从右向左的方式压入堆栈的，这样设计是有道理的，从右往左边压入，那么越早传入的参数就越晚被压入，那么我们就能够知道最有用的实际参数，比如此时如果进入到变长函数，那么我们就可以知道，当前堆栈的栈顶就是我们的现场，那么再网上递归，就是第一个参数了，也就是说[ebp+8]就是当前的第一个参数了。由此可以找到第二个参数，第三个参数。。。。。。

   所以，我们一定要在最初的参数中获取后面到底实际传递了多少个变体参数。然后才可以通过堆栈，一个个的找到，进而以函数来处理。

说了这么多来举例实验一下。比如，写一个函数，需要获得传入的数字的和

<code>function</code> <code>GetSum(NumCount:</code><code>integer</code><code>{N1,N2: integer}</code><code>):</code><code>Integer</code><code>;cdecl;</code>

<code>asm</code>

<code>  </code><code>{</code>

<code>  </code><code>push ebp</code>

<code>  </code><code>mov ebp,esp</code>

<code>  </code><code>}</code>

<code>  </code><code>mov ecx,[ebp +</code><code>8</code><code>];</code><code>//先获取第一个参数值，判断传递了几个参数</code>

<code>  </code><code>//然后获取每个参数</code>

<code>  </code><code>mov edx,</code><code>12</code>

<code>  </code><code>mov eax,</code><code>0</code>

<code>@@add:</code>

<code>  </code><code>add eax,[ebp].edx</code>

<code>  </code><code>add edx,</code><code>4</code>

<code>  </code><code>loop @@add</code>

<code>end</code><code>;</code>

　然后调用方式：

<code>type</code>

<code>  </code><code>VA_Sum =</code><code>function</code><code>(NumCount:</code><code>integer</code><code>{N1,N2}</code><code>):</code><code>Integer</code><code>; cdecl varargs;</code>

<code>var</code>

<code>  </code><code>m: VA_Sum;</code>

<code>begin</code>

<code>  </code><code>m := GetSum;</code>

<code>  </code><code>ShowMessage(inttostr(m(</code><code>4</code><code>,</code><code>3</code><code>,</code><code>4</code><code>,</code><code>5</code><code>,</code><code>6</code><code>)));</code>

　在比如，连接字符串函数

<code>function</code> <code>ConStr(NumCount:</code><code>integer</code><code>{N1,N2}</code><code>):</code><code>string</code><code>;cdecl;</code>

<code>  </code><code>st1:</code><code>string</code><code>;</code>

<code>  </code><code>i:</code><code>Integer</code><code>;</code>

<code>  </code><code>asm</code>

<code>    </code><code>mov esi,</code><code>16</code>

<code>  </code><code>end</code><code>;</code>

<code>  </code><code>for</code> <code>i :=</code><code>0</code> <code>to</code> <code>NumCount -</code><code>1</code> <code>do</code>

<code>  </code><code>begin</code>

<code>    </code><code>asm</code>

<code>      </code><code>mov edi,[ebp].esi</code>

<code>      </code><code>cmp edi,</code><code>128</code>

<code>      </code><code>jb @@</code><code>char</code>

<code>      </code><code>mov DWORD ptr st1,edi</code>

<code>      </code><code>@@</code><code>Char</code><code>:</code>

<code>      </code><code>add esi,</code><code>4</code>

<code>    </code><code>end</code><code>;</code>

<code>    </code><code>Result := Result + st1;</code>

　　调用方法

<code>  </code><code>VA_ConStr =</code><code>function</code><code>(NumCount:</code><code>integer</code><code>{N1,N2}</code><code>):</code><code>string</code><code>; cdecl varargs;</code>

<code>  </code><code>cstr: VA_ConStr;</code>

<code>  </code><code>cstr := constr;</code>

<code>  </code><code>ShowMessage(cstr(</code><code>3</code><code>,</code><code>'Test'</code><code>,</code><code>'不得闲'</code><code>,</code><code>'测试'</code><code>));</code>

　　

本文转自 不得闲 博客园博客，原文链接： http://www.cnblogs.com/DxSoft/archive/2013/04/18/3028722.html  ，如需转载请自行联系原作者