Changeset 326 for trunk/ItemList.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/ItemList.pas (modified) (3 diffs)

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;