johnidm

unit Util.Conexao.SGBD.Firebird.Singleton;

interface

uses
  SqlExpr, SysUtils;

type
  TConnFirebird = class sealed
  private

johnidm

type
  PConsultarRuaPeloCEP = function ( ACEP : PChar) : PChar;

var
  Handle : THandle;

  ConsultarRuaPeloCEP: PConsultarRuaPeloCEP;

  Rua: string;
begin

johnidm

type
  TEnumConv = record
    class function GetList<TEnum>( const AArray: array of string ): TStringList; static;
  end;
  
  
class function TEnumConv.GetList<TEnum>( const AArray: array of string ): TStringList;
var
  TypeInf: Pointer;
  Index: Integer;

johnidm

procedure TForm2.Button1Click(Sender: TObject);
var
  {
  Value: Integer;
  ptrValue: PInteger;
  }
  Value: string;
  ptrValue: PString;

  vet: array[0..2] of Integer;

johnidm

  ITeste = interface
    procedure Msg();
  end;

  TTeste = class( TInterfacedObject, ITeste )
  public
    procedure Msg();
  strict private
    constructor Create(); reintroduce;
    destructor Destroy; override;

johnidm

var
  R : TRect;
begin
  R := StringGrid1.CellRect(0, 1);
  StringGrid1.Canvas.Brush.Color:=clRed;
  StringGrid1.Canvas.FillRect(r);
end;

johnidm

Map<Integer, String> dicionario = new HashMap<String, String>;

dicionario.put("Gato", "Cat");
dicionario.put("Cachorro", "Dog");
dicionario.put("Casa", "Home");
dicionario.put("Filho", "Son");

dicionario.get("Gato");

johnidm

  $dicionario = array(
    "Gato" => "Cat",
    "Cachorro" => "Dog",
    "Casa" => "Home",
    "Filho" => "Son"    
  );
  
  echo $dicionario["Casa"];
  
  unset($dicionarioy["Casa"]);

johnidm

dicionario = {'Gato': 'Cat', 'Cachorro': 'Dog', 'Casa': 'Home', 'Filho':'Son'}

print dicionario['Gato']

del dicionario['Gato']

dicionario['Pai'] = 'Father'

johnidm

var
  Dicionario: TObjectDictionary<String, String>;
begin

  Dicionario: TObjectDictionary<String, String>.Create();
  try
    
    Dicionario.Add('Gato', 'Cat');
    Dicionario.Add('Cachorro': 'Dog');
    Dicionario.Add('Casa', 'Home');