Brummel/MycLib
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

New type system - Decimals

Browse Source
This commit is contained in:
Michael Schimmel
2025-08-26 13:47:38 +02:00
parent c434a151dd
commit 1ff603bd10
7 changed files with 337 additions and 197 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Src/Myc.Trade.Indicators_v2.pas
+3 -3
View File
@@ -218,9 +218,9 @@ begin
end;
case aValue.Kind of
tkInteger, tkInt64, tkEnumeration: Result := TDataType.FromOrdinal(aValue.AsInt64);
tkFloat: Result := TDataType.FromFloat(aValue.AsExtended);
tkString, tkUString: Result := TDataType.FromText(aValue.AsString);
tkInteger, tkInt64, tkEnumeration: Result := TDataType.Ordinal.CreateValue(aValue.AsInt64);
tkFloat: Result := TDataType.Float.CreateValue(aValue.AsExtended);
tkString, tkUString: Result := TDataType.Text.CreateValue(aValue.AsString);
tkRecord:
begin
ctx := TRttiContext.Create;