Subistituir edit1 por ano

[wilsoncrescencio 1]

Estou tentando substituir um Edit em branco pelo ano da data atual...

 

Na minha ignorância estou usando o código a baixo.

 

Esta dando pow.... Alguém sabe me dizer o porque?

 

Ou se há outra maneira de fazer poderia me exemplificar?

 

MASTER1.SQL.Clear;MASTER1.SQL.Add('SELECT Aluno.cod_aluno, Aluno.Aluno, Sala.Sala, sala.Cod_aluno');MASTER1.SQL.ADD('FROM ALUNO INNER JOIN SALA ON ALUNO.COD_ALUNO = SALA.COD_ALUNO');MASTER1.SQL.Add('WHERE ALUNO.ANOLETIVO = "'+EDIT2.Text+'"');MASTER1.SQL.Add('IF ALUNO.ANOLETIVO=NULL, ALUNO.ANOLETIVO="'+FORMATDATETIME('YYY',NOW)+'"');MASTER1.SQL.Add('AND SALA.SALA = "'+EDIT1.Text+'"');MASTER1.SQL.Add('ORDER BY ALUNO.NOME');MASTER1.OPEN;

[Rodrigo Miss 1]

http://forum.imasters.com.br/index.php?sho...t=0#entry810658