Update a configuration file: Difference between revisions
Added Delphi example
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
MaiconSoft (talk | contribs) (Added Delphi example) |
||
Line 1,133:
NUMBEROFBANANAS 1024
NUMBEROFSTRAWBERRIES 62000</pre>
=={{header|Delphi}}==
{{libheader| System.SysUtils}}
{{libheader| uSettings}}
Requere '''uSettings.pas''' found in [[Read_a_configuration_file#Delphi]].
<lang Delphi>
program uConfigFile;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
uSettings;
const
FileName = 'uConf.txt';
var
Settings: TSettings;
procedure show(key: string; value: string);
begin
writeln(format('%14s = %s', [key, value]));
end;
begin
Settings := TSettings.Create;
Settings.LoadFromFile(FileName);
Settings['NEEDSPEELING'] := False;
Settings['SEEDSREMOVED'] := True;
Settings['NUMBEROFBANANAS'] := 1024;
Settings['numberofstrawberries'] := 62000;
for var k in Settings.Keys do
show(k, Settings[k]);
Settings.SaveToFile(FileName);
Settings.Free;
Readln;
end.</lang>
{{out}}
<pre> FAVOURITEFRUIT = banana
SEEDSREMOVED = True
NEEDSPEELING = False
NUMBEROFBANANAS = 1024
NUMBEROFSTRAWBERRIES = 62000</pre>
=={{header|Erlang}}==
| |||