View zip_odt.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit zip_odt; | |
{$mode ObjFPC}{$H+} | |
interface | |
uses | |
Classes, SysUtils; | |
procedure FillODTDoc(const aSrcFile, aDestFile: String; aKeyValuePairs: TStringList); |
View project1.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit Unit1; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; | |
type |
View configuration.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ... ... ... | |
uses fpjson, jsonscanner, fpjsonrtti | |
; | |
// ... ... ... | |
procedure LoadFromJSON(AObject: TObject; const AFileName: String); | |
var | |
ADeStreamer: TJSONDeStreamer; |
View Unit1.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit Unit1; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; | |
type |
View cbrvalutes.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit sbrvalutes; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils, fgl | |
; |
View dorpunycode.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{$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: |
View CSV.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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'); |
View blcksock.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
View tableebtities.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit tableentities; | |
{$mode objfpc}{$H+} | |
{$interfaces corba} | |
interface | |
uses | |
Classes, SysUtils, dSQLdbBroker, fgl, fpjson, dClasses, dSqlBuilder | |
; |
View taskworker.pas
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit taskworker; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils; | |
type |
NewerOlder