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

Data pipeline refactoring

Browse Source
This commit is contained in:
Michael Schimmel
2025-12-14 17:47:07 +01:00
parent f0567a32a1
commit 3c7723f3d2
7 changed files with 20 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Src/Data/Myc.Data.Value.pas
+5 -5
View File
@@ -78,7 +78,7 @@ type
class function Map(const SourceSeries: ISeries; const MapperFunc: TFunc): ISeries; static;
class function FromRecordSeries(const AValue: IRecordSeries): TDataValue; static; inline;
class function FromRecordSeries(const AValue: IWriteableScalarRecordSeries): TDataValue; static; inline;
class function FromScalarRecord(const AValue: IScalarRecord): TDataValue; static; inline;
class function FromGenericRecord(const AValue: IKeywordMapping<TDataValue>): TDataValue; static; inline;
class function FromSeries(const AValue: ISeries): TDataValue; static; inline;
@@ -86,7 +86,7 @@ type
function AsScalar: TScalar; inline;
function AsMethod: TFunc; inline;
function AsText: String; inline;
function AsRecordSeries: IRecordSeries; inline;
function AsRecordSeries: IWriteableScalarRecordSeries; inline;
function AsScalarRecord: IScalarRecord; inline;
function AsGenericRecord: IKeywordMapping<TDataValue>; inline;
function AsSeries: ISeries; inline;
@@ -205,11 +205,11 @@ begin
Result := IKeywordMapping<TDataValue>(FInterface);
end;
function TDataValue.AsRecordSeries: IRecordSeries;
function TDataValue.AsRecordSeries: IWriteableScalarRecordSeries;
begin
if (FKind <> vkRecordSeries) then
raise EInvalidCast.Create('Cannot read value as RecordSeries.');
Result := IRecordSeries(FInterface);
Result := IWriteableScalarRecordSeries(FInterface);
end;
function TDataValue.AsScalar: TScalar;
@@ -266,7 +266,7 @@ begin
Result.FInterface := AValue;
end;
class function TDataValue.FromRecordSeries(const AValue: IRecordSeries): TDataValue;
class function TDataValue.FromRecordSeries(const AValue: IWriteableScalarRecordSeries): TDataValue;
begin
Result.FKind := vkRecordSeries;
Result.FInterface := AValue;