ao passar data para uma Unit

[anderrj25 0]

Olá pessoal, tô com um probleminha relacionado a passagem de data por

parâmetro a uma função ou procedure criada numa UNIT(classe), e retornar essa data para um Edit, apartir do click de um botão.

 

Pra ficar mais facil, criei um pequeno exemplo assim:

 

1 - Um Formulário contendo:

1 DateTimePicker

2 Botões

(Um para enviar do DateTimePicker à classe e outro para retornar

da classe para o Edit.)

1 EDit

 

 

Segue o código do FORM:

 

unit FData;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, cTrabDate, Mask;

 

type

TFrmData = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

Edit1: TEdit;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

FrmData: TFrmData;

obj: TrabDate;

 

 

implementation

 

{$R *.dfm}

 

procedure TFrmData.BitBtn1Click(Sender: TObject);

begin

 

 

end;

 

procedure TFrmData.FormCreate(Sender: TObject);

begin

Edit1.Clear;

end;

 

end.

 

 

2- Criei também, uma unit assim:

 

unit cTrabDate;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, Mask;

 

type

TrabDate = class (TObject)

protected

data_unit : TDateTime;

public

Constructor Create (data_unit:TDateTime);

Procedure setDataUnit(data_Unit:TDateTime);

Function getDataUnit:TDateTime;

end;

 

implementation

 

Constructor TrabDate.Create(data_unit:TDateTime);

begin

self.data_unit := data_unit;

end;

 

Procedure TrabDate.setDataUnit (data_Unit:TDateTime);

begin

self.data_unit := data_Unit;

end;

 

Function TrabDate.getDataUnit:TDatetime;

begin

result := data_unit;

end;

end.

 

 

Gostaria de saber de vcs, se realmente é possível passar uma data proveniente de um DateTimePicker para uma função ou procedure, caso seja possível,qual as instruções eu posso colocar dentro do botão ???

 

Agradeço quem puder me dar essa força ! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Abraço a todos !

 

Anderson http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[kuroski 0]

Da pra passar sem problemaNo caso você passaria:TrabDate.setDataUnit(DateTimePicker1.DateTime);Veja se isso resolve teu problema!