Al-Muhandis

unit zip_odt;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils;

procedure FillODTDoc(const aSrcFile, aDestFile: String; aKeyValuePairs: TStringList);

Al-Muhandis

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

Al-Muhandis

// ... ... ...

uses fpjson, jsonscanner, fpjsonrtti
  ;
  
 // ... ... ...

procedure LoadFromJSON(AObject: TObject; const AFileName: String);
var
  ADeStreamer: TJSONDeStreamer;

Al-Muhandis

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

Al-Muhandis

unit sbrvalutes;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, fgl
  ;

Al-Muhandis

{$mode Delphi}

(*
 * punycode.c from RFC 3492prop
 * http://www.nicemice.net/idn/
 * Adam M. Costello
 * http://www.nicemice.net/amc/
 *
 * This is ANSI C code (C89) implementing Punycode (RFC 3492prop).
 * Delphi Conversion by:

Al-Muhandis

procedure TForm1.FormCreate(Sender: TObject);
begin
  InitiateMRating;
  SdfDtStCountries.FieldDefs.Add('id', ftInteger, 2);
  SdfDtStCountries.Schema.Add('id');
  SdfDtStCountries.FieldDefs.Add('iso', ftString, 2);
  SdfDtStCountries.Schema.Add('iso');
  SdfDtStCountries.FieldDefs.Add('continent', ftString, 2);
  SdfDtStCountries.Schema.Add('continent');

Al-Muhandis

    procedure TTCPBlockSocket.HTTPTunnelDoConnect(IP, Port: string);
    //bugfixed by Mike Green (mgreen@emixode.com)
    var
      s: string;
    begin
      //Port := IntToStr(ResolvePort(Port));
      inherited Connect(FHTTPTunnelIP, FHTTPTunnelPort);
      if FLastError <> 0 then
        Exit;
      FHTTPTunnel := False;    

Al-Muhandis

unit tableentities;

{$mode objfpc}{$H+}
{$interfaces corba}

interface

uses
  Classes, SysUtils, dSQLdbBroker, fgl, fpjson, dClasses, dSqlBuilder
  ;

Al-Muhandis

unit taskworker;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type