Changeset 457 for trunk/CmdList.pas

Timestamp:

Nov 27, 2023, 12:10:57 AM (5 months ago)

Author:

chronos

Message:

• Modified: Use enumeration type in Help unit for better readability.
• Fixed: Corruption external help image referenced with incorrect file name case.
• Fixed: Chinese translation converted to UTF-8.
• Modified: Code cleanup.

File:

• trunk/CmdList.pas (modified) (4 diffs)

trunk/CmdList.pas

@@ -62 +62 @@
 
 type
-  TData = array [0 .. MaxDataSize - 1] of Cardinal;
+  TData = array [0..MaxDataSize - 1] of Cardinal;
   PData = ^TData;
 
@@ -335 +335 @@
 procedure TCmdList.LoadFromFile(const F: TFileStream);
 begin
-  F.read(FState.nLog, 4);
+  F.Read(FState.nLog, 4);
   LogData := nil;
   LogAlloc := ((FState.nLog + 2) div LogGrow + 1) * LogGrow;
   ReallocMem(LogData, LogAlloc);
-  F.read(LogData^, FState.nLog);
+  F.Read(LogData^, FState.nLog);
   FState.LoadPos := 0;
 end;
@@ -346 +346 @@
 begin
   CompleteMoveCode;
-  F.write(FState.nLog, 4);
-  F.write(LogData^, FState.nLog);
+  F.Write(FState.nLog, 4);
+  F.Write(LogData^, FState.nLog);
 end;
 
@@ -354 +354 @@
 begin
   CompleteMoveCode;
-  F.write(FState.nLog, 4);
+  F.Write(FState.nLog, 4);
   F.Position := F.Position + OldState.nLog;
-  F.write(LogData[OldState.nLog], FState.nLog - OldState.nLog);
+  F.Write(LogData[OldState.nLog], FState.nLog - OldState.nLog);
 end;