Word wheel: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,798: / Line 1,798: @@
   WheelSize = 9;
   MinLength = 3;
-  WordFile = 'unixdict.txt';
+  WordListFN = 'unixdict.txt';
-procedure search(pattern : string);
+procedure search(Wheel : string);
 var
   Allowed, Required, Available, w : string;
   Len, i, p : integer;
-  WordList : TextFile;
+  WordFile : TextFile;
   Match : boolean;
 begin
-  AssignFile(WordList, WordFile);
+  AssignFile(WordFile, WordListFN);
     try
-    Reset(WordList);
+    Reset(WordFile);
   except
-    writeln('Could not open dictionary file ' + WordFile);
+    writeln('Could not open dictionary file ' + WordListFN);
     exit;
   end;
-  Allowed := LowerCase(pattern);
+  Allowed := LowerCase(Wheel);
   Required := copy(Allowed, 5, 1);  { central letter is required }
-  while not eof(WordList) do
+  while not eof(WordFile) do
     begin
-      readln(WordList, w);
+      readln(WordFile, w);
       Len := length(w);
       if (Len < MinLength) or (Len > WheelSize) then continue;
@@ Line 1,839: / Line 1,839: @@
         writeln(w);
     end;
-  CloseFile(WordList);
+  CloseFile(WordFile);
 end;