aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

33
Task/Update-a-configuration-file/Delphi/update-a-configuration-file.delphi Normal file
View file

@ -0,0 +1,33 @@
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.