A primeira expedição ao Corcovado ocorreu no ano de 1834 e foi liderada pelo próprio D.Pedro I, sendo construído assim o primeiro acesso cume do morro.



Marcadores: Brasil, Comentários, Rio de Janeiro
unit uExemploBookMark;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBClient, Grids, DBGrids;
type
TExemploBookMark = class(TForm)
DBGrid1: TDBGrid;
CDS: TClientDataSet;
ds: TDataSource;
BitBtn1: TBitBtn;
MemorizaBookMark: TBitBtn;
LocalizaBookMark: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure MemorizaBookMarkClick(Sender: TObject);
procedure LocalizaBookMarkClick(Sender: TObject);
private
{ Private declarations }
BookMarkString : String; // essa variavel ira auxiliar no uso do bookmark
public
{ Public declarations }
end;
var
ExemploBookMark: TExemploBookMark;
implementation
{$R *.dfm}
procedure TExemploBookMark.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
// aqui estamos criando nossa tabela temporaria
CDS.FieldDefs.Add('codigo',ftInteger);
CDS.FieldDefs.Add('descricao',ftString, 50);
CDS.CreateDataSet;
// aqui estamos criando os registros na tabela temporaria
for I := 1 to 10 do
begin
CDS.Append;
CDS.FieldByName('codigo').AsInteger := i;
CDS.FieldByName('descricao').AsString := 'Descrição - '+inttostr(i);
CDS.Post;
end;
end;
procedure TExemploBookMark.LocalizaBookMarkClick(Sender: TObject);
begin
// dessa maneira dizemos ao clientdataset para ir para oendereco
// armazenado na nossa variavel
CDS.Bookmark := BookMarkString;
end;
procedure TExemploBookMark.MemorizaBookMarkClick(Sender: TObject);
begin
// aqui estamos atribuindo o endereco atual do registro na nossa
// variavel
BookMarkString := Cds.Bookmark;
end;
end.
Marcadores: ClientDataSet, Componentes, Delphi, Dica Rápida
Marcadores: Comentários, Delphi, Dica Rápida
Marcadores: Comentários, Delphi
Marcadores: Brasil, Delphi, firebird, Interfaces, Orientação Object
Marcadores: Comentários, Flamengo, Rio de Janeiro
Marcadores: Comentários, Rio de Janeiro
“Colegas,
Utilizando um JvCheckTreeView, gostaria de, ao checar um item filho, também
checar o item pai. Alguém sabe como fazer?
Grato”
procedure TForm23.JvCheckTreeView1Click(Sender: TObject);
var
Node : TJvTreeNode;
begin
if TJvTreeNode(JvCheckTreeView1.Selected).Checked then
begin
Node := TJvTreeNode(JvCheckTreeView1.Selected.Parent);
Node.Checked := True;
end;
end;
Marcadores: Componentes, Delphi, Dica Rápida
Type
TBrasileiro = class
public
function Trabalhar:Boolean; virtual; abstract;
function PagarImpostos:Boolean; virtual; abstract;
end;
Type
IBrasileiro = Interface
['{31A22D9F-E857-4892-9D17-79FBE9AA7237}']
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
end;
type
IInterface = interface
['{00000000-0000-0000-C000-000000000046}']
function QueryInterface(const IID: TGUID;
out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
end;
IUnknown = IInterface;
{$M+}
IInvokable = interface(IInterface)
end;
{$M-}
{ TInterfacedObject provides a threadsafe default
implementation of IInterface.You should use TInterfaceObject
as the base class of objects implementing interfaces.; }
TInterfacedObject = class(TObject, IInterface)
protected
FRefCount: Integer;
function QueryInterface(const IID: TGUID;
out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
class function NewInstance: TObject; override;
property RefCount: Integer read FRefCount;
end;
ITrabalhador = Interface
['{31A22D9F-E857-4892-9D17-79FBE9AA7237}']
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
end;
ISerHumano = interface
['{29D48E8C-EFF0-461C-9B9E-D5D7478E5B87}']
function AndarEreto:Boolean;
function Falar:Boolean;
procedure Ouvir;
procedure Correr;
end;
TBrasileiro = class(TInterfacedObject, ITrabalhador,
ISerHumano);
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'AndarEreto'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Falar'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Ouvir'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Correr'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Trabalhar'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'PagarImpostos'
TBrasileiro = class(TInterfacedObject, ITrabalhador,
ISerHumano)
public
// métodos da interface ITrabalhador
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
// métodos da interface ISerHumano
function AndarEreto:Boolean;
function Falar:Boolean;
procedure Ouvir;
procedure Correr;
end;
TBrasileiro = class(TInterfacedObject, ITrabalhador,
ISerHumano)
public
// métodos da interface ISerHumano
function AndarEreto:Boolean;
function Falar:Boolean;
procedure Ouvir;
procedure Correr;
// postergando a implementacao da interface ITrabalhador
function GetTrabalhador:ITrabalhador;
property Trabalhador:ITrabalhador
read GetTrabalhador Implements ITrabalhador;
end;
TProgramador = class(TInterfacedObject, ITrabalhador)
public
// métodos da interface ITrabalhador
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
// métodos dessa classe
procedure Dormir;
procedure Acordar;
procedure Comer;
procedure SurfarNaNet;
procedure Programar;
end;
function TBrasileiro.GetTrabalhador: ITrabalhador;
begin
Result := (TProgramador.Create) as ITrabalhador;
end;
Marcadores: Classes, Delphi, Interfaces, Orientação Object
Marcadores: Brasil, Olimpíadas, Rio de Janeiro
unit UCriarClasseString;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, AdvSmoothDock, jpeg, ExtCtrls, StdCtrls, Buttons;
type
TminhaClasse = class (TDataModule)
private
FPrimeiraClasse: String;
procedure SetPrimeiraClasse(const Value: String);
published
property PrimeiraClasse:String read FPrimeiraClasse
write SetPrimeiraClasse;
end;
TMinhaSegundaClasse = class(TminhaClasse)
private
FSegundaClasse: STring;
procedure SetSegundaClasse(const Value: STring);
published
property SegundaClasse:STring read FSegundaClasse
write SetSegundaClasse;
end;
TfrmCriarClasseString = class(TForm)
btClasse: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure btClasseClick(Sender: TObject);
private
{ Private declarations }
procedure InstanceClasse(AClassName: String);
public
{ Public declarations }
end;
var
frmCriarClasseString: TfrmCriarClasseString;
implementation
{$R *.dfm}
procedure TfrmCriarClasseString.btClasseClick(Sender: TObject);
begin
InstanceClasse(Edit1.Text);
end;
procedure TfrmCriarClasseString.InstanceClasse
(AClassName: String);
var
lObj: TMinhaSegundaClasse;
Pers: TPersistentClass;
begin
Pers := GetClass(AClassName);
lObj := (Pers.Create) as TMinhaSegundaClasse;
if Assigned(lObj) then
try
lObj.FPrimeiraClasse := 'Propriedade da Classe ancestral';
lObj.FSegundaClasse := 'Propriedade da Segunda Classe';
Edit2.Text :=lObj.FPrimeiraClasse;
Edit3.Text :=lObj.FSegundaClasse;
finally
lObj.Free;
end
end;
{ TminhaClasse }
procedure TminhaClasse.SetPrimeiraClasse(const Value: String);
begin
FPrimeiraClasse := Value;
end;
{ TMinhaSegundaClasse }
procedure TMinhaSegundaClasse.SetSegundaClasse(const
Value: STring);
begin
FSegundaClasse := Value;
end;
initialization
RegisterClasses([TminhaClasse, TMinhaSegundaClasse]);
end.
Marcadores: Delphi, video_aulas
Até que enfim a comunidade Delphi que utiliza o FireBird teve seus apelos atendidos, no novo Delphi 2010 o acesso ao banco de dados FireBird está nativo, tendo suporte para versões 1.5 e 2.1.
O novo driver dbExpress para FireBird dá acesso ao banco através do DataExplorer, VCL e do Framework dbExpress
Marcadores: Delphi, firebird, video_aulas
Marcadores: Delphi, video_aulas
Marcadores: Comentários
unit uExemploBookMark;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBClient, Grids, DBGrids;
type
TExemploBookMark = class(TForm)
DBGrid1: TDBGrid;
CDS: TClientDataSet;
ds: TDataSource;
BitBtn1: TBitBtn;
MemorizaBookMark: TBitBtn;
LocalizaBookMark: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure MemorizaBookMarkClick(Sender: TObject);
procedure LocalizaBookMarkClick(Sender: TObject);
private
{ Private declarations }
BookMarkString : String; // essa variavel ira auxiliar no uso do bookmark
public
{ Public declarations }
end;
var
ExemploBookMark: TExemploBookMark;
implementation
{$R *.dfm}
procedure TExemploBookMark.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
// aqui estamos criando nossa tabela temporaria
CDS.FieldDefs.Add('codigo',ftInteger);
CDS.FieldDefs.Add('descricao',ftString, 50);
CDS.CreateDataSet;
// aqui estamos criando os registros na tabela temporaria
for I := 1 to 10 do
begin
CDS.Append;
CDS.FieldByName('codigo').AsInteger := i;
CDS.FieldByName('descricao').AsString := 'Descrição - '+inttostr(i);
CDS.Post;
end;
end;
procedure TExemploBookMark.LocalizaBookMarkClick(Sender: TObject);
begin
// dessa maneira dizemos ao clientdataset para ir para oendereco
// armazenado na nossa variavel
CDS.Bookmark := BookMarkString;
end;
procedure TExemploBookMark.MemorizaBookMarkClick(Sender: TObject);
begin
// aqui estamos atribuindo o endereco atual do registro na nossa
// variavel
BookMarkString := Cds.Bookmark;
end;
end.
“Colegas,
Utilizando um JvCheckTreeView, gostaria de, ao checar um item filho, também
checar o item pai. Alguém sabe como fazer?
Grato”
procedure TForm23.JvCheckTreeView1Click(Sender: TObject);
var
Node : TJvTreeNode;
begin
if TJvTreeNode(JvCheckTreeView1.Selected).Checked then
begin
Node := TJvTreeNode(JvCheckTreeView1.Selected.Parent);
Node.Checked := True;
end;
end;
Type
TBrasileiro = class
public
function Trabalhar:Boolean; virtual; abstract;
function PagarImpostos:Boolean; virtual; abstract;
end;
Type
IBrasileiro = Interface
['{31A22D9F-E857-4892-9D17-79FBE9AA7237}']
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
end;
type
IInterface = interface
['{00000000-0000-0000-C000-000000000046}']
function QueryInterface(const IID: TGUID;
out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
end;
IUnknown = IInterface;
{$M+}
IInvokable = interface(IInterface)
end;
{$M-}
{ TInterfacedObject provides a threadsafe default
implementation of IInterface.You should use TInterfaceObject
as the base class of objects implementing interfaces.; }
TInterfacedObject = class(TObject, IInterface)
protected
FRefCount: Integer;
function QueryInterface(const IID: TGUID;
out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
class function NewInstance: TObject; override;
property RefCount: Integer read FRefCount;
end;
ITrabalhador = Interface
['{31A22D9F-E857-4892-9D17-79FBE9AA7237}']
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
end;
ISerHumano = interface
['{29D48E8C-EFF0-461C-9B9E-D5D7478E5B87}']
function AndarEreto:Boolean;
function Falar:Boolean;
procedure Ouvir;
procedure Correr;
end;
TBrasileiro = class(TInterfacedObject, ITrabalhador,
ISerHumano);
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'AndarEreto'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Falar'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Ouvir'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Correr'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'Trabalhar'
[Pascal Error] Unit22.pas(33): E2003 Undeclared identifier: 'PagarImpostos'
TBrasileiro = class(TInterfacedObject, ITrabalhador,
ISerHumano)
public
// métodos da interface ITrabalhador
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
// métodos da interface ISerHumano
function AndarEreto:Boolean;
function Falar:Boolean;
procedure Ouvir;
procedure Correr;
end;
TBrasileiro = class(TInterfacedObject, ITrabalhador,
ISerHumano)
public
// métodos da interface ISerHumano
function AndarEreto:Boolean;
function Falar:Boolean;
procedure Ouvir;
procedure Correr;
// postergando a implementacao da interface ITrabalhador
function GetTrabalhador:ITrabalhador;
property Trabalhador:ITrabalhador
read GetTrabalhador Implements ITrabalhador;
end;
TProgramador = class(TInterfacedObject, ITrabalhador)
public
// métodos da interface ITrabalhador
function Trabalhar:Boolean;
function PagarImpostos:Boolean;
// métodos dessa classe
procedure Dormir;
procedure Acordar;
procedure Comer;
procedure SurfarNaNet;
procedure Programar;
end;
function TBrasileiro.GetTrabalhador: ITrabalhador;
begin
Result := (TProgramador.Create) as ITrabalhador;
end;
unit UCriarClasseString;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, AdvSmoothDock, jpeg, ExtCtrls, StdCtrls, Buttons;
type
TminhaClasse = class (TDataModule)
private
FPrimeiraClasse: String;
procedure SetPrimeiraClasse(const Value: String);
published
property PrimeiraClasse:String read FPrimeiraClasse
write SetPrimeiraClasse;
end;
TMinhaSegundaClasse = class(TminhaClasse)
private
FSegundaClasse: STring;
procedure SetSegundaClasse(const Value: STring);
published
property SegundaClasse:STring read FSegundaClasse
write SetSegundaClasse;
end;
TfrmCriarClasseString = class(TForm)
btClasse: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure btClasseClick(Sender: TObject);
private
{ Private declarations }
procedure InstanceClasse(AClassName: String);
public
{ Public declarations }
end;
var
frmCriarClasseString: TfrmCriarClasseString;
implementation
{$R *.dfm}
procedure TfrmCriarClasseString.btClasseClick(Sender: TObject);
begin
InstanceClasse(Edit1.Text);
end;
procedure TfrmCriarClasseString.InstanceClasse
(AClassName: String);
var
lObj: TMinhaSegundaClasse;
Pers: TPersistentClass;
begin
Pers := GetClass(AClassName);
lObj := (Pers.Create) as TMinhaSegundaClasse;
if Assigned(lObj) then
try
lObj.FPrimeiraClasse := 'Propriedade da Classe ancestral';
lObj.FSegundaClasse := 'Propriedade da Segunda Classe';
Edit2.Text :=lObj.FPrimeiraClasse;
Edit3.Text :=lObj.FSegundaClasse;
finally
lObj.Free;
end
end;
{ TminhaClasse }
procedure TminhaClasse.SetPrimeiraClasse(const Value: String);
begin
FPrimeiraClasse := Value;
end;
{ TMinhaSegundaClasse }
procedure TMinhaSegundaClasse.SetSegundaClasse(const
Value: STring);
begin
FSegundaClasse := Value;
end;
initialization
RegisterClasses([TminhaClasse, TMinhaSegundaClasse]);
end.