Fix many typos

Author: diversenok

Diff for: DelphiUiLib.Strings.pas

@@ -32,10 +32,10 @@ function PrettifySnakeCase(
 // Convert an integer to a readable decimal representation (as 12 345 678)
 function IntToStrEx(const Value: UInt64; Width: Integer = 0): String;
 
-// Convert an integer to a readable hexadecimal represenation (as 0x0FFE FFF0)
+// Convert an integer to a readable hexadecimal representation (as 0x0FFE FFF0)
 function IntToHexEx(const Value: UInt64; Digits: Integer = 0): String;
 
-// Convert a pointer to a readable hexadecimal represenation (as 0x0FFE FFF0)
+// Convert a pointer to a readable hexadecimal representation (as 0x0FFE FFF0)
 function PtrToHexEx(Value: Pointer; Digits: Integer = 8): String;
 
 implementation
@@ -60,7 +60,7 @@ function PrettifyCamelCase;
   RtlxPrefixStripString(Prefix, Result, True);
   RtlxSuffixStripString(Suffix, Result, True);
 
-  // Add a space before a capital that has a non-captial on either side of it
+  // Add a space before a capital that has a non-capital on either side of it
 
   i := Low(Result);
 
@@ -100,8 +100,8 @@ function PrettifySnakeCase;
 var
   i: Integer;
 begin
-  // Convert a string with from capitals with undescores to a spaced string
-  // removing a prefix/suffix, ex.: 'ERROR_ACCESS_DENIED' => 'Acces Denied'
+  // Convert a string with from capitals with underscores to a spaced string
+  // removing a prefix/suffix, ex.: 'ERROR_ACCESS_DENIED' => 'Access Denied'
 
   Result := CapsText;
 

Diff for: DelphiUtils.Arrays.pas

@@ -66,9 +66,9 @@   TArrayGroup<TKey, TValue> = record
     const Changes: TChanges
   ): Boolean;
 
-  TConflictResolver<TData, TChanegs> = reference to function (
+  TConflictResolver<TData, TChanges> = reference to function (
     const Existing: TData;
-    const New: TChanegs
+    const New: TChanges
   ): TData;
 
   TTreeNode<T> = record
@@ -97,21 +97,21 @@   TArray = class abstract
       Action: TFilterAction = ftKeep
     ): TArray<T>; static;
 
-    // Filter an array on by-element basis modifiying the array
+    // Filter an array on by-element basis modifying the array
     class procedure FilterInline<T>(
       var Entries: TArray<T>;
       Condition: TCondition<T>;
       Action: TFilterAction = ftKeep
     ); static;
 
-    // Filter an array on by-element basis modifiying the array and its elements
+    // Filter an array on by-element basis modifying the array and its elements
     class procedure FilterInlineVar<T>(
       var Entries: TArray<T>;
       Condition: TVarCondition<T>;
       Action: TFilterAction = ftKeep
     ); static;
 
-    // Filter an array on by-element basis modifiying the array
+    // Filter an array on by-element basis modifying the array
     class procedure FilterInlineEx<T>(
       var Entries: TArray<T>;
       Condition: TConditionEx<T>;
@@ -143,7 +143,7 @@   TArray = class abstract
     ): Integer; static;
 
     // Insert an element into a sorted array preserving sorting. The return
-    // value has the same sementic as the binary search.
+    // value has the same semantic as the binary search.
     class function InsertSorted<T>(
       var Entries: TArray<T>;
       const Element: T;
@@ -190,14 +190,14 @@   TArray = class abstract
       Condition: TCondition<T>
     ): Integer; static;
 
-    // Find the position of the first occurance of an element
+    // Find the position of the first occurrence of an element
     class function IndexOf<T>(
       const Entries: TArray<T>;
       const Element: T;
       EqualityCheck: TEqualityCheck<T> = nil
     ): Integer; static;
 
-    // Find the position of the first occurance of an element that matches
+    // Find the position of the first occurrence of an element that matches
     // a condition
     class function IndexOfMatch<T>(
       const Entries: TArray<T>;
@@ -249,13 +249,13 @@   TArray = class abstract
       ConverterEx: TConvertRoutineEx<T1, T2>
     ): TArray<T2>; static;
 
-    // Convert the first convertable entry or return Default(T2)
+    // Convert the first convertible entry or return Default(T2)
     class function ConvertFirst<T1, T2>(
       const Entries: TArray<T1>;
       Converter: TConvertRoutine<T1, T2>
     ): T2; static;
 
-    // Convert the first convertable entry or return the specified default
+    // Convert the first convertible entry or return the specified default
     class function ConvertFirstOrDefault<T1, T2>(
       const Entries: TArray<T1>;
       Converter: TConvertRoutine<T1, T2>;
@@ -314,7 +314,7 @@   TArray = class abstract
       const Default: T
     ): T; static;
 
-    // Upadate existing items or add new ones into an ordered set by merging
+    // Update existing items or add new ones into an ordered set by merging
     // changes and resolving conflicts.
     class function Merge<TData, TChanges>(
       const Data: TArray<TData>;
@@ -941,7 +941,7 @@ class function TArray.Merge<TData, TChanges>;
 begin
   SetLength(ConflictIndexes, Length(Changes));
 
-  // Find indexes of data entires with wich we have conflicts
+  // Find indexes of data entries with which we have conflicts
   for i := 0 to High(Changes) do
   begin
     ConflictIndexes[i] := -1;
@@ -1058,7 +1058,7 @@ class function TArray.Sort<T>;
   // instead, comparing the elements on each index. Then construct the result
   // using the new order.
 
-  // Generate the intial index list
+  // Generate the initial index list
   SetLength(Indexes, Length(Entries));
 
   for i := 0 to High(Indexes) do

Diff for: DelphiUtils.Async.pas

@@ -2,7 +2,7 @@
 
 {
   This module provides infrastructure for using anonymous functions as APC
-  callbacks in asynchoronous operations.
+  callbacks in asynchronous operations.
 }
 
 interface
@@ -51,15 +51,15 @@ function GetApcRoutine(
   [opt] AsyncCallback: TAnonymousApcCallback
 ): TIoApcRoutine;
 
-// Prepare an APC context with an I/O status block for asyncronous operations
+// Prepare an APC context with an I/O status block for asynchronous operations
 // or reference the I/O status block from the stack for synchronous calls
 function PrepareApcIsb(
   out ApcContext: IAnonymousIoApcContext;
   [opt] AsyncCallback: TAnonymousApcCallback;
   const [ref] IoStatusBlock: TIoStatusBlock
 ): PIoStatusBlock;
 
-// Prepare an APC context with an I/O status block for asyncronous operations
+// Prepare an APC context with an I/O status block for asynchronous operations
 // or allocate one from the heap
 function PrepareApcIsbEx(
   out ApcContext: IAnonymousIoApcContext;
@@ -108,7 +108,7 @@ function TAnonymousIoApcContext.IoStatusBlock;
 
 { Functions }
 
-// An APC-compatibe wrapper for calling anonymous functions
+// An APC-compatible wrapper for calling anonymous functions
 procedure ApcCallbackForwarder(
   [in] ApcContext: Pointer;
   const IoStatusBlock: TIoStatusBlock;
@@ -140,7 +140,7 @@ function PrepareApcIsb;
 begin
   if Assigned(AsyncCallback) then
   begin
-    // Allocate the contex and use its I/O status block
+    // Allocate the context and use its I/O status block
     ApcContext := TAnonymousIoApcContext.Create(AsyncCallback);
     Result := ApcContext.IoStatusBlock;
   end
@@ -156,7 +156,7 @@ function PrepareApcIsbEx;
 begin
   if Assigned(AsyncCallback) then
   begin
-    // Allocate the contex and use its I/O status block
+    // Allocate the context and use its I/O status block
     ApcContext := TAnonymousIoApcContext.Create(AsyncCallback);
     Result := ApcContext.IoStatusBlock;
   end

Diff for: DelphiUtils.AutoEvents.pas

@@ -98,27 +98,27 @@ function TWeakArray<I>.Add;
 
 function TWeakArray<I>.HasAny;
 var
-  StongRef: I;
+  StrongRef: I;
   i: Integer;
 begin
   for i := 0 to High(Entries) do
-    if Entries[i].Upgrade(StongRef) then
+    if Entries[i].Upgrade(StrongRef) then
       Exit(True);
 
   Result := False;
 end;
 
 procedure TWeakArray<I>.RemoveEmpty;
 var
-  StongRef: I;
+  StrongRef: I;
   i, j: Integer;
 begin
   j := 0;
   for i := 0 to High(Entries) do
-    if Entries[i].Upgrade(StongRef) then
+    if Entries[i].Upgrade(StrongRef) then
     begin
       if i <> j then
-        Entries[j] := StongRef;
+        Entries[j] := StrongRef;
 
       Inc(j);
     end;

Diff for: DelphiUtils.AutoObjects.pas

@@ -2,7 +2,7 @@
 
 {
   This module provides the core facilities for automatic lifetime management
-  for resources that require cleanup. When interactining with such resources
+  for resources that require cleanup. When interacting with such resources
   through interfaces, Delphi automatically emits code that counts outstanding
   references and immediately releases the underlying resource when this value
   drops to zero. Here you can find the definitions for the interfaces, as
@@ -69,7 +69,7 @@   TMemory = record
     class function Reference<T>(const [ref] Buffer: T): TMemory; static;
   end;
 
-  // An wapper that automatically releases a memory region.
+  // A wrapper that automatically releases a memory region.
   // You can safely cast between IMemory<P1> and IMemory<P2> when necessary.
   IMemory<P> = interface(IAutoPointer<P>) // P must be a Pointer type
     ['{7AE23663-B557-4398-A003-405CD4846BE8}']

Diff for: DelphiUtils.ExternalImport.pas

@@ -1,7 +1,7 @@
 unit DelphiUtils.ExternalImport;
 
 {
-  This module allows wokring with Import Address Table for hooking
+  This module allows working with Import Address Table for hooking
   local imports from external DLLs.
 }
 

Diff for: Examples.md

@@ -46,7 +46,7 @@ begin
 end.
 ```
 
-2. Enumerate symbolic links in HKLM and printe their targets (**144 KiB** on x64, requires around 20 seconds to complete)
+2. Enumerate symbolic links in HKLM and print their targets (**144 KiB** on x64, requires around 20 seconds to complete)
 
 ```pascal
 program FindRegistrySymlinks;

Diff for: Headers/DelphiApi.Reflection.pas

@@ -369,7 +369,7 @@ constructor InheritsFromAttribute.Create;
   TypeInfoPtr: PPointer absolute ATypeInfo;
 begin
   // For some reason, Delphi gives us an indirect pointer that we need to
-  // dereferece.
+  // dereference.
 
   if Assigned(TypeInfoPtr) then
     Self.TypeInfo := TypeInfoPtr^;

Diff for: Headers/Ntapi.AppModel.Policy.pas

@@ -82,7 +82,7 @@ interface
     AppModelPolicy_Type_PullPackageDependencyData = $37,                      // Win 10 20H1+
     AppModelPolicy_Type_AppInstancingErrorBehavior = $38,                     // Win 11+
     AppModelPolicy_Type_BackgroundTaskRegistrationType = $39,                 // Win 11+
-    AppModelPolicy_Type_ModsPowerNotifification = $3A                         // Win 11+
+    AppModelPolicy_Type_ModsPowerNotification = $3A                         // Win 11+
   );
 
   // private - includes both type and value as 0xTTTTVVVV
@@ -560,10 +560,10 @@ interface
 
   // Info class 0x3A
   [MinOSVersion(OsWin11)]
-  [NamingStyle(nsCamelCase, 'AppModelPolicy_ModsPowerNotifification_')]
-  TAppModelPolicy_ModsPowerNotifification = (
-    AppModelPolicy_ModsPowerNotifification_Disabled = 0,
-    AppModelPolicy_ModsPowerNotifification_Enabled = 1
+  [NamingStyle(nsCamelCase, 'AppModelPolicy_ModsPowerNotification_')]
+  TAppModelPolicy_ModsPowerNotification = (
+    AppModelPolicy_ModsPowerNotification_Disabled = 0,
+    AppModelPolicy_ModsPowerNotification_Enabled = 1
   );
 
 implementation

Diff for: Headers/Ntapi.CommCtrls.pas

@@ -67,7 +67,7 @@ interface
   [FlagName(TDF_RTL_LAYOUT, 'RTL Layout')]
   [FlagName(TDF_NO_DEFAULT_RADIO_BUTTON, 'No Default Radio Button')]
   [FlagName(TDF_CAN_BE_MINIMIZED, 'Can Be Minimized')]
-  [FlagName(TDF_NO_SET_FOREGROUND, 'No Set Forground')]
+  [FlagName(TDF_NO_SET_FOREGROUND, 'No Set Foreground')]
   [FlagName(TDF_SIZE_TO_CONTENT, 'Size To Content')]
   TTaskDialogFlags = type Cardinal;
 

Diff for: Headers/Ntapi.ImageHlp.pas

@@ -92,7 +92,7 @@ interface
 
   IMAGE_SCN_ALIGN_MASK = $00F00000;
 
-  IMAGE_RELOCATION_OFFET_MASK = $0FFF;
+  IMAGE_RELOCATION_OFFSET_MASK = $0FFF;
   IMAGE_RELOCATION_TYPE_SHIFT = 12;
 
   // SDK::rtlsupportapi.h
@@ -147,7 +147,7 @@   TImageDosHeader = record
   [FlagName(IMAGE_FILE_RELOCS_STRIPPED, 'Relocs Stripped')]
   [FlagName(IMAGE_FILE_EXECUTABLE_IMAGE, 'Executable')]
   [FlagName(IMAGE_FILE_LINE_NUMS_STRIPPED, 'Line Numbers Stripped')]
-  [FlagName(IMAGE_FILE_LOCAL_SYMS_STRIPPED, 'Local Symbols Stipped')]
+  [FlagName(IMAGE_FILE_LOCAL_SYMS_STRIPPED, 'Local Symbols Stripped')]
   [FlagName(IMAGE_FILE_AGGRESIVE_WS_TRIM, 'Aggressive WS Trim')]
   [FlagName(IMAGE_FILE_LARGE_ADDRESS_AWARE, 'Large Address Aware')]
   [FlagName(IMAGE_FILE_32BIT_MACHINE, '32-bit Machine')]
@@ -359,7 +359,7 @@   TImageOptionalHeader = record
   [FlagName(IMAGE_SCN_MEM_SHARED, 'Shared')]
   [FlagName(IMAGE_SCN_MEM_EXECUTE, 'Executable')]
   [FlagName(IMAGE_SCN_MEM_READ, 'Readable')]
-  [FlagName(IMAGE_SCN_MEM_WRITE, 'Writale')]
+  [FlagName(IMAGE_SCN_MEM_WRITE, 'Writable')]
   [SubEnum(IMAGE_SCN_ALIGN_MASK, 0, 'Default Alignment')]
   [SubEnum(IMAGE_SCN_ALIGN_MASK, IMAGE_SCN_ALIGN_1BYTES, 'Align 1 Byte')]
   [SubEnum(IMAGE_SCN_ALIGN_MASK, IMAGE_SCN_ALIGN_2BYTES, 'Align 2 Bytes')]
@@ -766,12 +766,12 @@ function TImageNtHeaders.GetSection;
 
 function TImageRelocationTypeOffset.Offset;
 begin
-  Result := TypeOffset and IMAGE_RELOCATION_OFFET_MASK;
+  Result := TypeOffset and IMAGE_RELOCATION_OFFSET_MASK;
 end;
 
 function TImageRelocationTypeOffset.SpansOnNextPage;
 const
-  PAGE_SIZE = IMAGE_RELOCATION_OFFET_MASK + 1;
+  PAGE_SIZE = IMAGE_RELOCATION_OFFSET_MASK + 1;
 begin
   case &Type of
     IMAGE_REL_BASED_HIGH, IMAGE_REL_BASED_LOW:

Diff for: Headers/Ntapi.ProcessThreadsApi.pas

@@ -231,7 +231,7 @@   TProcessInformation = record
   [FlagName(STARTF_TITLEISAPPID, 'Title Is AppID')]
   [FlagName(STARTF_PREVENTPINNING, 'Prevent Pinning')]
   [FlagName(STARTF_UNTRUSTEDSOURCE, 'Untrusted Source')]
-  TStarupFlags = type Cardinal;
+  TStartupFlags = type Cardinal;
 
   // SDK::processthreadsapi.h
   [SDKName('STARTUPINFOW')]
@@ -247,7 +247,7 @@   TStartupInfoW = record
     XCountChars: Cardinal;
     YCountChars: Cardinal;
     FillAttribute: TConsoleFill;
-    Flags: TStarupFlags;
+    Flags: TStartupFlags;
     ShowWindow: TShowMode16;
     [Unlisted] cbReserved2: Word;
     [Unlisted] lpReserved2: PByte;
@@ -297,7 +297,7 @@   TStartupInfoW = record
   // SDK::WinBase.h - mask for extracting TProcThreadAttributeNum
   PROC_THREAD_ATTRIBUTE_NUMBER = $0000FFFF;
 
-  // SDK::WinBase.h & PHNT::ntpsapi.h - processess & thread attribute values
+  // SDK::WinBase.h & PHNT::ntpsapi.h - process & thread attribute values
   PROC_THREAD_ATTRIBUTE_PARENT_PROCESS = $20000;
   PROC_THREAD_ATTRIBUTE_EXTENDED_FLAGS = $60001;
   PROC_THREAD_ATTRIBUTE_HANDLE_LIST = $20002;

Diff for: Headers/Ntapi.ShellApi.pas

@@ -99,7 +99,7 @@   TShellExecuteInfoW = record
     ): HResult; stdcall;
 
     function AddStartupFlags(
-      [in] StartupInfoFlags: TStarupFlags
+      [in] StartupInfoFlags: TStartupFlags
     ): HResult; stdcall;
 
     function SetTitle(

Diff for: Headers/Ntapi.Shlwapi.pas

@@ -63,7 +63,7 @@ interface
   [FlagName(SHACF_URLMRU, 'URLS in Recently Used')]
   [FlagName(SHACF_USETAB, 'Use Tab')]
   [FlagName(SHACF_FILESYS_ONLY, 'Filesystem Only')]
-  [FlagName(SHACF_FILESYS_DIRS, 'Filesystem Direcotries')]
+  [FlagName(SHACF_FILESYS_DIRS, 'Filesystem Directories')]
   [FlagName(SHACF_VIRTUAL_NAMESPACE, 'Virtual Namespace')]
   [FlagName(SHACF_AUTOSUGGEST_FORCE_ON, 'Auto-suggest Force On')]
   [FlagName(SHACF_AUTOSUGGEST_FORCE_OFF, 'Auto-suggest Force Off')]

Diff for: Headers/Ntapi.WinBase.pas

@@ -324,7 +324,7 @@ function GetApplicationRestartSettings(
 // SDK::WinBase.h
 [Result: ReleaseWith('UnregisterApplicationRecoveryCallback')]
 function RegisterApplicationRecoveryCallback(
-  [in] RecoveyCallback: TApplicationRecoveryCallback;
+  [in] RecoveryCallback: TApplicationRecoveryCallback;
   [in, opt] Parameter: Pointer;
   [in] PingInterval: Cardinal;
   [Reserved] Flags: Cardinal