Dec 202017
ASM and TPU for string comparison with "Fuzzy" match -- (returns % match.
File FUZZ.ZIP from The Programmer’s Corner in
Category Pascal Source Code
ASM and TPU for string comparison with “Fuzzy” match — (returns % match.
File Name File Size Zip Size Zip Type
FUZZ.DOC 1001 545 deflated
FUZZ.TPU 2064 1170 deflated
SIMIL.ASM 3209 1242 deflated

Download File FUZZ.ZIP Here

Contents of the FUZZ.DOC file

Documentation for FUZZ.TPU.

FUZZ is a unit that can be incorporated into any Turbo Pascal 4.0 or 5.0
program. This is done by including the Fuzz unit with the other USES units:

USES Dos, Crt, Fuzz;

This unit provides only one function, called Similar, which is declared as
the function

Function Similar(S1,S2 : String):Integer;

Similar uses the Ratcliff/Obershelp gestalt pattern matching algorithm to
compare two strings and return their percentage similarity.

Instead of requiring an EXACT match by using the line:

IF (String1 = String2) THEN

you can use the line:

IF (Similar(String1,String2) > 65) THEN

This means, if the two strings are 65% similar (or more), the Do-whatever
procedure will be executed.

FUZZ incorporates the assembly language comparison function contained in the
file SIMIL.ASM which is included in this archive.

 December 20, 2017  Add comments

 Leave a Reply

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>