mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-25 19:18:18 +02:00
27 lines
840 B
ObjectPascal
27 lines
840 B
ObjectPascal
program Example;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
sCheck;
|
|
|
|
var
|
|
i, j, n: Integer;
|
|
s: TSuggestionArray; { in case the word is wrong, this array contains
|
|
a list of suggestions }
|
|
begin
|
|
if Paramcount < 2 then // check if user has used valid input
|
|
Writeln('Usage: ', ParamStr(0), ' <lang> <word1> <word2> ...')
|
|
else for i := 2 to ParamCount do begin // go for each word specified
|
|
n := SpellCheck(ParamStr(i), ParamStr(1), s); // spellcheck each word
|
|
if n > 0 then begin // if n > 0 then the word is wrong and we need to write suggestions
|
|
Write(ParamStr(i), ' is wrong. Here are some suggestions: ');
|
|
for j := 0 to High(s) do
|
|
Write(s[j], ' '); // write out the suggestions
|
|
Writeln; // to keep format
|
|
end else
|
|
Writeln(ParamStr(i), ' is spelled correctly!');
|
|
end;
|
|
end.
|
|
|