Changeset 326


Ignore:
Timestamp:
Jun 25, 2024, 3:22:12 PM (4 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/ItemList.pas

    r317 r326  
    9898
    9999resourcestring
    100     SUnsupportedDataType = 'Unsupported field value data type %s';
     100  SUnsupportedDataType = 'Unsupported field value data type %s';
     101  SUnsupportedValueIndex = 'Unsupported value index %d';
    101102
    102103
     
    367368procedure TItem.GetValue(Index: Integer; out Value);
    368369begin
    369   raise Exception.Create('Unsupported value index ' + IntToStr(Index));
     370  raise Exception.Create(Format(SUnsupportedValueIndex, [Index]));
    370371end;
    371372
     
    426427procedure TItem.SetValue(Index: Integer; var Value);
    427428begin
    428   raise Exception.Create('Unsupported value index ' + IntToStr(Index));
     429  raise Exception.Create(Format(SUnsupportedValueIndex, [Index]));
    429430end;
    430431
  • trunk/Languages/xtactics.cs.po

    r318 r326  
    378378msgstr "Nepodporovaný datový typ hodnoty pole %s"
    379379
     380#: itemlist.sunsupportedvalueindex
     381#, object-pascal-format
     382msgid "Unsupported value index %d"
     383msgstr "Nepodporovaný index hodnoty %d"
     384
    380385#: itemlist.syes
    381386msgctxt "itemlist.syes"
     
    13471352msgid "View range"
    13481353msgstr "Dohled"
    1349 
  • trunk/Languages/xtactics.pot

    r317 r326  
    360360msgstr ""
    361361
     362#: itemlist.sunsupportedvalueindex
     363#, object-pascal-format
     364msgid "Unsupported value index %d"
     365msgstr ""
     366
    362367#: itemlist.syes
    363368msgctxt "itemlist.syes"
  • trunk/Packages/PinConnection/CommFrame.pas

    r317 r326  
    44
    55uses
    6   Classes, Dialogs, SysUtils, SpecializedList, UBinarySerializer,
     6  Classes, Dialogs, SysUtils, SpecializedList, BinarySerializer,
    77  CommPin;
    88
     
    6767  FreeAndNil(RawDataPin);
    6868  FreeAndNil(FrameDataPin);
    69   ReceiveBuffer.Free;
     69  FreeAndNil(ReceiveBuffer);
    7070  inherited;
    7171end;
  • trunk/Packages/PinConnection/CommThread.pas

    r317 r326  
    55uses
    66  Classes, SysUtils, CommPin, SyncObjs, Common,
    7   DateUtils, Threading, SpecializedList, UBinarySerializer;
     7  DateUtils, Threading, SpecializedList, BinarySerializer;
    88
    99type
  • trunk/xtactics.lpi

    r317 r326  
    5656            <Debugging>
    5757              <GenerateDebugInfo Value="False"/>
     58              <DebugInfoType Value="dsDwarf3"/>
    5859              <StripSymbols Value="True"/>
    5960            </Debugging>
Note: See TracChangeset for help on using the changeset viewer.