Update a configuration file: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
MaiconSoft (talk | contribs) (Added Delphi example) |
||
Line 1,133: | Line 1,133: | ||
NUMBEROFBANANAS 1024 |
NUMBEROFBANANAS 1024 |
||
NUMBEROFSTRAWBERRIES 62000</pre> |
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}}== |
=={{header|Erlang}}== |