Associative array/Merging: Difference between revisions
no edit summary
(→{{header|ALGOL 68}}: Minor update to the associative array MODEs etc.) |
MaiconSoft (talk | contribs) No edit summary |
||
Line 282:
}
</lang>
=={{header|Delphi}}==
{{libheader| System.Generics.Collections}}
{{Trans|C#}}
<lang Delphi>
program Associative_arrayMerging;
{$APPTYPE CONSOLE}
uses
System.Generics.Collections;
type
TData = TDictionary<string, Variant>;
var
baseData, updateData, mergedData: TData;
entry: string;
begin
baseData := TData.Create();
baseData.Add('name', 'Rocket Skates');
baseData.Add('price', 12.75);
baseData.Add('color', 'yellow');
updateData := TData.Create();
updateData.Add('price', 15.25);
updateData.Add('color', 'red');
updateData.Add('year', 1974);
mergedData := TData.Create();
for entry in baseData.Keys do
mergedData.AddOrSetValue(entry, baseData[entry]);
for entry in updateData.Keys do
mergedData.AddOrSetValue(entry, updateData[entry]);
for entry in mergedData.Keys do
Writeln(entry, ' ', mergedData[entry]);
mergedData.Free;
updateData.Free;
baseData.Free;
Readln;
end.
</lang>
{{out}}
<pre>
price 15,25
year 1974
color red
name Rocket Skates
</pre>
=={{header|F_Sharp|F#}}==
<lang fsharp>
| |||