Gravar só o ano corrente

[wilsoncrescencio 1]

Delphi 2006 + ACCESS + ADOConnetionOlá a todos....Como faço para conseguir o seguinte:Se a a Edit1 não for preenchida a Edit1 receberá o ano corrente (o ano da data de hoje)IfEdit1.text = '' thenEdit1.text := ??????

[Rodrigo Miss 1]

Bom dia morpheu_negro!

você pode fazer assim: (Uma das formas)

 

if (Edit1.Text = '') then   begin	 Edit1.Text:= IntToStr(YearOf(Date));   end;

abç http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Ah!!! Naum esquece hein!! DateUtils nas uses ....

[wilsoncrescencio 1]

Bom dia Rodrigo... como sempre prestativo

Agradecido http://forum.imasters.com.br/public/style_emoticons/default/worshippy.gif

[Rodrigo Miss 1]

opa! tamo aew kra .... sempre q puder, é um prazer ajudar ...abraço fera!