paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 06:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Example demonstrating formatsettings for inifile

Browse Source 
git-svn-id: trunk@32769 -
This commit is contained in:
michael 2015-12-27 18:17:34 +00:00
parent 22c284ca28
commit 2451f7596b
2 changed files with 72 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1938,6 +1938,7 @@ packages/fcl-base/examples/fpdoc.dtd -text
packages/fcl-base/examples/fpexprpars.txt svneol=native#text/plain packages/fcl-base/examples/fpexprpars.txt svneol=native#text/plain
packages/fcl-base/examples/fstream.pp svneol=native#text/plain packages/fcl-base/examples/fstream.pp svneol=native#text/plain
packages/fcl-base/examples/htdump.pp svneol=native#text/plain packages/fcl-base/examples/htdump.pp svneol=native#text/plain
packages/fcl-base/examples/inifmt.pp svneol=native#text/plain
packages/fcl-base/examples/intl/Makefile svneol=native#text/plain packages/fcl-base/examples/intl/Makefile svneol=native#text/plain
packages/fcl-base/examples/intl/README.txt svneol=native#text/plain packages/fcl-base/examples/intl/README.txt svneol=native#text/plain
packages/fcl-base/examples/intl/restest.cs.mo -text packages/fcl-base/examples/intl/restest.cs.mo -text

71
packages/fcl-base/examples/inifmt.pp Normal file
View File

@ -0,0 +1,71 @@
program inifmt;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, IniFiles, SysUtils
{ you can add units after this };
var
ini: TCustomIniFile;
x: Double;
t: TTime;
d: TDate;
dt: TDateTime;
iniName: String = 'test.ini';
L: TStringList;
i: Integer;
begin
x := 1.2345;
t := time();
d := date();
dt := now();
ini := TMemIniFile.Create(iniName);
ini.FormatSettings.DecimalSeparator := '|';
ini.FormatSettingsActive := true;
ini.WriteFloat('Data', 'float', 1.2345);
ini.WriteTime('Data', 'time', t);
ini.WriteDate('Data', 'date', d);
ini.WriteDateTime('Data', 'datetime', dt);
ini.Free;
WriteLn('-----------------------------------------------------------');
WriteLn('Ini file (direct file content)');
WriteLn('-----------------------------------------------------------');
L := TStringList.Create;
L.LoadfromFile(ininame);
for i:=0 to L.Count-1 do
WriteLn(L[i]);
L.Free;
WriteLn;
ini := TMemIniFile.Create(iniName);
ini.FormatSettings.DecimalSeparator := '|';
ini.FormatSettingsActive := true;
x := ini.ReadFloat('Data', 'float', 0);
t := ini.ReadTime('Data', 'time', 0);
d := ini.ReadDate('Data', 'date', 0);
dt := ini.ReadDateTime('Data', 'datetime', 0);
ini.Free;
WriteLn('------------------------------------------------------------------');
WriteLn('Read input data from ini file (output using DefaultFormatSettings)');
WriteLn('------------------------------------------------------------------');
WriteLn('float = ', FloatToStr(x));
WriteLn('time = ', TimeToStr(t));
WriteLn('date = ', DateToStr(d));
WriteLn('date/time = ', DateTimeToStr(dt));
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end.