|
@@ -602,12 +602,13 @@ begin
|
|
if member = nil then continue;
|
|
if member = nil then continue;
|
|
|
|
|
|
yvalue := member.Value;
|
|
yvalue := member.Value;
|
|
- if yvalue.IsScalar then
|
|
|
|
|
|
+ if (yvalue.IsScalar) or (yvalue is TYamlNull) then
|
|
begin
|
|
begin
|
|
if yvalue is TYamlComment then yaml.Writeln(Format('#%s%s',[indent,TYamlComment(member.Value).AsString]))
|
|
if yvalue is TYamlComment then yaml.Writeln(Format('#%s%s',[indent,TYamlComment(member.Value).AsString]))
|
|
else
|
|
else
|
|
begin
|
|
begin
|
|
- scalar := member.Value.Value.AsString;
|
|
|
|
|
|
+ if yvalue is TYamlNull then scalar := 'null'
|
|
|
|
+ else scalar := member.Value.Value.AsString;
|
|
if scalar.IsEmpty then scalar := '""';
|
|
if scalar.IsEmpty then scalar := '""';
|
|
yaml.Writeln(Format('%s%s: %s',[indent,member.Name,scalar]));
|
|
yaml.Writeln(Format('%s%s: %s',[indent,member.Name,scalar]));
|
|
if (i < fMembers.Count - 1) and (fMembers[i+1].Value is TYamlComment) then yaml.Writeln('');
|
|
if (i < fMembers.Count - 1) and (fMembers[i+1].Value is TYamlComment) then yaml.Writeln('');
|