DELPHI与汇编 bt,bts 谁有D6下能用的HyperString(200分)

下载的代码在D6下出错。
[Error] HYPERSTR.PAS(1022): Operand size mismatch

@Skip2:
Test EDX,$60000000 //quotes clear ?
Jnz @Write //no, then write it out
And DL,31 //bit index
Shr EAX,5 //dbl-word index
Shl EAX,2
Mov EBP,[EDI+EAX] //get the dbl-word
Bt EBP,DL //test the bit
Jc @Skip //skip write if in Table
这应该怎么办？
或者谁有D6下能用的HyperString

HyperString 是干什么用的？

装网络蜘蛛时要用的
http://www.mindspring.com/~efd/tools.htm
HyperString

HyperString v5.0 now offers over 400 efficient string and system routines designed to complement the versatile new 32-bit long dynamic string type in Borland's Delphi. Extensive documentation in WinHelp format can be easily integrated into the Delphi IDE by following the simple instructions provided.

Overview

What began as a collection of string handling routines has grown to include many general purpose functions as well; all organized into 18 different functional categories. In version 5.0, all forms related routines were moved to a secondary unit (HYPERFRM.DCU) to avoid adding unnecessary form-related overhead to console mode apps. The use of this unit is clearly noted in the docs.

Below are just a few of the many included features:

String Searching & Editing - A huge collection of fast, flexible and efficient low level routines for string searching (forward, reverse, case insensitive, wildcard, etc.) and editing. Many are coded in hand optimized BASM for maximum speed and efficiency. Case sensitivity is driven by configurable tables with standard ASCII being the default.
Fuzzy comparison and searching - Includes standard routines for fuzzy string comparison (Soundex, MetaPhone, Ratcliff/Obershelp and Levenshtein) and also fuzzy search routines to find and select less-than-perfect matching substrings from text.
Regular expression matching - As a result of end user requests, a simple regular expression interpreter has been added. While offering a quick and easy answer in some cases (if you're conversant in regular expressions); performance does tend to lag behind that of equivalent solutions developed using the specialized string functions.
Tokens - Easily create sophisticated lists, lookup tables and hierarchical data structures inside delimited strings. Parse, add, insert, delete and replace delimited fields.
Multi-precision string math - Add, subtract, multiply, divide and compare signed numeric integer strings. Length of operands is limited only by memory available to Windows applications.
A multitude of miscellaneous and API related functions. Efficient floating point routines (rounding, comparison) for both scientific and financial apps; runtime evaluation of mathematical expressions; serial and network communications (mailslots, named pipes) and much more.

bts,bt d6下要改成什么呀。

因为只有部分代码, 这样该不一定对

Bt EBP,DX //test the bit
Jc @Skip //skip write if in Table

参考
http://www.volny.cz/fufik/techhelp/asm/b.htm#BT

这样控件是可以装上了，就不知道结果对不对的

那谁知道spider的用法，那有没有DEMO

*** HyperString v6.0 ***
(c)1996-2000 EFD Systems, All rights reserved
efd@mindspring.com
Revision History -----------------------------------------------------

v1.0 - 96/12/25, Original release (Happy holidays).
v1.5 - 97/06/01, Many new routines, instructions for Delphi 3.
v2.0 - 97/08/01, Added dynamic arrays and other new features.
v2.2 - 97/12/15, Revised dynamic arrays, more new features.
v2.5 - 98/01/30, Bigger and better than ever!
v2.8 - 98/05/01, Improved performance, additions, bug fixes.
v4.0 - 98/07/30, Modified for D4, changed version to match.
v4.2 - 98/11/22, Modified to support SubScript.
v5.0 - 99/05/01, Added user-defined case tables, reg expressions.
Moved form and shell related code to HyperFrm unit.
v6.0 - 01/06/22, Modified for D6
===============================================================
昨晚才弄到的，我这没装 Delphi6,没试，不过说明文件说支持 D6,应该是没问题的。
要的话，mail:workid#163.com, #=@
源代码版本。

好的，谢谢

up

多人接受答案了。