usr/share/fpcsrc/3.2.0/packages/fcl-json/examples/ini2json.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

Gemfury

Why Gemfury? Push, build, and install RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / packages / fcl-json / examples / ini2json.pp

program ini2json;

{$mode objfpc}
{$h+1}

uses sysutils,jsonini;

var
  fin,fout : string;

begin
  if (ParamCount<1) then
    begin
    Writeln('Usage : ',ExtractFileName(ParamStr(0)),' infile [outfile]');
    Halt(1);
    end;
  Fin:=ParamStr(1);  
  FOut:=ParamStr(2);  
  If (Fout='') then
    Fout:=ChangeFileExt(Fin,'.json');
  TJSONIniFile.ConvertIni(Fin,Fout,False);  
end.