fixed some typos

git-svn-id: trunk@7190 -

components/codetools/codecache.pas

@@ -869,7 +869,7 @@ begin
 end;
 
 function TCodeBuffer.FileOnDiskNeedsUpdate: boolean;
-// file on disk needs update, if file is modified or does not exists
+// file on disk needs update, if file is modified or does not exist
 begin
   if LoadDateValid then
     Result:=Modified or (FFileChangeStep<>ChangeStep)

components/codetools/finddeclarationcache.pas

@@ -53,7 +53,7 @@ type
   PInterfaceIdentCacheEntry = ^TInterfaceIdentCacheEntry;
   TInterfaceIdentCacheEntry = record
     Identifier: PChar;
-    Node: TCodeTreeNode; // if node = nil then identifier does not exists in
+    Node: TCodeTreeNode; // if node = nil then identifier does not exist in
                          //                    this interface
     CleanPos: integer;
     NextEntry: PInterfaceIdentCacheEntry; // used by memory manager

components/codetools/methodjumptool.pas

@@ -132,7 +132,7 @@ begin
       NodeExt2:=TCodeTreeNodeExtension(AVLNode2.Data);
       cmp:=CompareTextIgnoringSpace(NodeExt1.Txt,NodeExt2.Txt,false);
       if cmp<0 then begin
-        // node of tree1 does not exists in tree2
+        // node of tree1 does not exist in tree2
         // -> delete
         Tree1.FreeAndDelete(AVLNode1);
       end else if cmp=0 then begin
@@ -141,13 +141,13 @@ begin
           NodeExt1.Data:=AVLNode2;
         AVLNode2:=Tree2.FindSuccessor(AVLNode2);
       end else begin
-        // node of tree2 does not exists in tree1
+        // node of tree2 does not exist in tree1
         // -> skip node of tree2
         AVLNode2:=Tree2.FindSuccessor(AVLNode2);
         continue;
       end;
     end else begin
-      // node of tree1 does not exists in tree2
+      // node of tree1 does not exist in tree2
       // -> delete
       Tree1.FreeAndDelete(AVLNode1);
     end;
@@ -866,7 +866,7 @@ begin
       SearchInNode:=SearchInNodes.FindSuccessor(SearchInNode);
       if (Result=nil) or (SearchInNode=nil) then exit;
     end else begin
-      // node in SearchInNodes does not exists in SearchForNodes
+      // node in SearchInNodes does not exist in SearchForNodes
       // -> ignore and search next
       SearchInNode:=SearchInNodes.FindSuccessor(SearchInNode);
     end;

components/codetools/stdcodetools.pas

@@ -1872,7 +1872,7 @@ begin
   FromPos:=-1;
   if FindCreateFormStatement(MainBeginNode.StartPos,UpperCaseStr(AClassName),
     UpperCaseStr(AVarName),OldPosition)=-1 then begin
-    // does not exists -> create as last in front of 'Application.Run'
+    // does not exist -> create as last in front of 'Application.Run'
     MoveCursorToCleanPos(MainBeginNode.StartPos);
     repeat
       if ReadNextUpAtomIs('APPLICATION') then begin
@@ -1938,7 +1938,7 @@ begin
   FromPos:=-1;
   if FindCreateFormStatement(MainBeginNode.StartPos,UpperCaseStr(OldClassName),
     UpperCaseStr(OldVarName),OldPosition)=-1 then begin
-    // does not exists
+    // does not exist
     if OnlyIfExists then begin
       Result:=true;
       exit;

ide/lazarusidestrconsts.pas

@@ -371,7 +371,7 @@ resourcestring
   lisErrorCreatingFile = 'Error creating file';
   lisUnableToCreateFile3 = 'Unable to create file%s%s%s%s';
   lisCopyError2 = 'Copy error';
-  lisSourceDirectoryDoesNotExists = 'Source directory %s%s%s does not exists.';
+  lisSourceDirectoryDoesNotExist = 'Source directory %s%s%s does not exist.';
   lisUnableToCreateDirectory = 'Unable to create directory %s%s%s.';
   lisUnableToCopyFileTo = 'Unable to copy file %s%s%s%sto %s%s%s';
   lisSorryThisTypeIsNotYetImplemented = 'Sorry, this type is not yet '
@@ -1954,12 +1954,12 @@ resourcestring
   lisLaunchingApplicationInvalid = 'Launching application invalid';
   lisTheLaunchingApplicationDoesNotExistsOrIsNotExecuta = 'The launching '
     +'application %s%s%'
-    +'s%sdoes not exists or is not executable.%s%sSee Run -> Run parameters -> '
+    +'s%sdoes not exist or is not executable.%s%sSee Run -> Run parameters -> '
     +'Local';
 
   lisDebuggerInvalid = 'Debugger invalid';
   lisTheDebuggerDoesNotExistsOrIsNotExecutableSeeEnviro = 'The debugger %s%s%'
-    +'s%sdoes not exists or is not executable.%s%sSee Environment -> Debugger '
+    +'s%sdoes not exist or is not executable.%s%sSee Environment -> Debugger '
     +'Options';
   lisPleaseOpenAUnitBeforeRun = 'Please open a unit before run.';
   

ide/lazconf.pp

@@ -67,7 +67,7 @@ const
   { Config Path Functions }
 
   { The primary config path is the local or user specific path.
-    If the primary config path does not exists, it will automatically be
+    If the primary config path does not exist, it will automatically be
     created by the IDE.
     The secondary config path is for templates. The IDE will never write to it.
     If a config file is not found in the primary config file, Lazarus will
@@ -258,6 +258,9 @@ end.
 
 {
   $Log$
+  Revision 1.41  2005/05/21 15:38:07  mattias
+  fixed some typos
+
   Revision 1.40  2005/04/17 11:15:41  vincents
   implemented using default browser on windows
 

ide/main.pp

@@ -4564,7 +4564,7 @@ begin
   if FileExists(LRSFilename) and (FileAge(LFMFilename)<=FileAge(LRSFilename))
   then exit;
   debugln('TMainIDE.DoUpdateLRSFromLFM ',LRSFilename,' ',dbgs(FileAge(LFMFilename)),' ',dbgs(FileAge(LRSFilename)));
-  // the .lrs file does not exists, or is older than the .lfm file
+  // the .lrs file does not exist, or is older than the .lfm file
   // -> update .lrs file
   Result:=ConvertLFMToLRSFileInteractive(LFMFilename,LRSFilename);
 end;
@@ -4599,7 +4599,7 @@ begin
   case ErrorData.Error of
     ceSrcDirDoesNotExists:
       MessageDlg(lisCopyError2,
-        Format(lisSourceDirectoryDoesNotExists, ['"', ErrorData.Param1, '"']),
+        Format(lisSourceDirectoryDoesNotExist, ['"', ErrorData.Param1, '"']),
         mtError,[mbCancel],0);
     ceCreatingDirectory:
       MessageDlg(lisCopyError2,
@@ -5146,7 +5146,7 @@ begin
 
   // check if file exists
   if FilenameIsAbsolute(AFilename) and (not FileExists(AFilename)) then begin
-    // file does not exists
+    // file does not exist
     if (ofRevert in Flags) then begin
       // revert failed, due to missing file
       if not (ofQuiet in Flags) then begin
@@ -11542,6 +11542,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.865  2005/05/21 15:38:07  mattias
+  fixed some typos
+
   Revision 1.864  2005/04/13 09:33:15  mattias
   implemented favourite properties for ObjectInspector