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

Keyword mapping refactoring

Browse Source
This commit is contained in:
Michael Schimmel
2025-12-09 12:59:36 +01:00
parent 43afbd6050
commit f8dc5b945c
13 changed files with 257 additions and 188 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Src/Data/Myc.Data.Value.pas
+7 -3
View File
@@ -300,6 +300,7 @@ var
field: TScalarRecordField;
genField: TPair<IKeyword, TDataValue>;
first: Boolean;
i: Integer;
begin
case FKind of
vkScalar: Result := FScalar.ToString;
@@ -317,10 +318,11 @@ begin
try
sb.Append('{');
first := True;
for field in series.Def.Fields do
for i := 0 to series.Def.Count - 1 do
begin
if not first then
sb.Append(',');
field := series.Def[i];
sb.Append(field.Key.Name);
first := False;
end;
@@ -338,10 +340,11 @@ begin
try
sb.Append('{');
first := True;
for field in rec.Def.Fields do
for i := 0 to rec.Def.Count - 1 do
begin
if not first then
sb.Append(',');
field := rec.Def[i];
sb.Append(field.Key.Name);
first := False;
end;
@@ -360,10 +363,11 @@ begin
try
sb.Append('{');
first := True;
for genField in rec.Fields do
for i := 0 to rec.Count - 1 do
begin
if not first then
sb.Append(',');
genField := rec[i];
sb.Append(genField.Key.Name);
first := False;
end;