访问：pypi.org  搜索 fuzzywuzzy

访问：fuzzywuzzy · PyPI

用鼠标滚动网页到底部，可见：Free Pascal: FuzzyWuzzy.pas (Free Pascal port)

下载 FuzzyWuzzy.pas-master.zip  后解压到当前目录。

cd D:\lazarus\projects\FuzzyWuzzy.pas-master

编写  winbuild.bat  如下

@echo offecho Set up FPC executable path.
set fpcexe=D:\lazarus\fpc\3.2.2\bin\x86_64-win64\fpc.exe
if not exist "%fpcexe%" (echo ERROR: Edit this batch file to set up location of fpc.exeexit /b 1
)
echo "%fpcexe%"echo Building...
"%fpcexe%" -Fu. -Fl.  MyUtils.pas
"%fpcexe%" -Fu. -Fl.  Levenshtein.pas
"%fpcexe%" -Fu. -Fl.  FuzzyWuzzy.pas
"%fpcexe%" -Fu. -Fl.  DemoUsage.pas

编译运行 winbuild.bat

dir

运行 DemoUsage.exe

DemoUsage.pas  如下

Program DemoUsage;
{$APPTYPE CONSOLE}Uses FuzzyWuzzy;Beginwriteln(PartialRatio('this is a test','this is a test!'));writeln('--');writeln(Ratio('NEW YORK METS','NEW YORK MEATS'));writeln(PartialRatio('YANKEES','NEW YORK YANKEES'));writeln('--');writeln(PartialRatio('NEW YORK YANKEES', 'YANKEES'));writeln(PartialRatio('NEW YORK METS','NEW YORK YANKEES'));writeln('--');writeln(Ratio('New York Mets vs Atlanta Braves', 'Atlanta Braves vs New York Mets'));writeln(TokenSortRatio('New York Mets vs Atlanta Braves', 'Atlanta Braves vs New York Mets'));writeln('--');writeln(TokenSetRatio('mariners vs angels', 'los angeles angels of anaheim at seattle mariners'));writeln('--');writeln(Ratio('fuzzy wuzzy was a bear','wuzzy fuzzy was a bear'));writeln(TokenSortRatio('fuzzy wuzzy was a bear','wuzzy fuzzy was a bear'));writeln('--');writeln(TokenSortRatio('fuzzy was a bear','fuzzy fuzzy was a bear'));writeln(TokenSetRatio('fuzzy  was a bear','fuzzy fuzzy was a bear'));
End.