Changeset 326

Timestamp:

Jun 25, 2024, 3:22:12 PM (3 days ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk

Files:

• ItemList.pas (modified) (3 diffs)
• Languages/xtactics.cs.po (modified) (2 diffs)
• Languages/xtactics.pot (modified) (1 diff)
• Packages/PinConnection/CommFrame.pas (modified) (2 diffs)
• Packages/PinConnection/CommThread.pas (modified) (1 diff)
• xtactics.lpi (modified) (1 diff)

trunk/ItemList.pas

@@ -98 +98 @@
 
 resourcestring
-    SUnsupportedDataType = 'Unsupported field value data type %s';
+  SUnsupportedDataType = 'Unsupported field value data type %s';
+  SUnsupportedValueIndex = 'Unsupported value index %d';
 
 
@@ -367 +368 @@
 procedure TItem.GetValue(Index: Integer; out Value);
 begin
-  raise Exception.Create('Unsupported value index ' + IntToStr(Index));
+  raise Exception.Create(Format(SUnsupportedValueIndex, [Index]));
 end;
 
@@ -426 +427 @@
 procedure TItem.SetValue(Index: Integer; var Value);
 begin
-  raise Exception.Create('Unsupported value index ' + IntToStr(Index));
+  raise Exception.Create(Format(SUnsupportedValueIndex, [Index]));
 end;
 

trunk/Languages/xtactics.cs.po

@@ -378 +378 @@
 msgstr "Nepodporovaný datový typ hodnoty pole %s"
 
+#: itemlist.sunsupportedvalueindex
+#, object-pascal-format
+msgid "Unsupported value index %d"
+msgstr "Nepodporovaný index hodnoty %d"
+
 #: itemlist.syes
 msgctxt "itemlist.syes"
@@ -1347 +1352 @@
 msgid "View range"
 msgstr "Dohled"
-

trunk/Languages/xtactics.pot

@@ -360 +360 @@
 msgstr ""
 
+#: itemlist.sunsupportedvalueindex
+#, object-pascal-format
+msgid "Unsupported value index %d"
+msgstr ""
+
 #: itemlist.syes
 msgctxt "itemlist.syes"

trunk/Packages/PinConnection/CommFrame.pas

@@ -4 +4 @@
 
 uses
-  Classes, Dialogs, SysUtils, SpecializedList, UBinarySerializer,
+  Classes, Dialogs, SysUtils, SpecializedList, BinarySerializer,
   CommPin;
 
@@ -67 +67 @@
   FreeAndNil(RawDataPin);
   FreeAndNil(FrameDataPin);
-  ReceiveBuffer.Free;
+  FreeAndNil(ReceiveBuffer);
   inherited;
 end;

trunk/Packages/PinConnection/CommThread.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, CommPin, SyncObjs, Common,
-  DateUtils, Threading, SpecializedList, UBinarySerializer;
+  DateUtils, Threading, SpecializedList, BinarySerializer;
 
 type

trunk/xtactics.lpi

@@ -56 +56 @@
             <Debugging>
               <GenerateDebugInfo Value="False"/>
+              <DebugInfoType Value="dsDwarf3"/>
               <StripSymbols Value="True"/>
             </Debugging>