Fórum Incompatible types: 'TEdit' and 'Char' #377727
17/05/2010
0
procedure TCadSetorForm.ed_CodSetChange(Sender: TObject);begin datamodule1.zquery1.close; datamodule1.zquery1.sql.clear; datamodule1.zquery1.sql.add('select codset from setor'); datamodule1.zquery1.sql.add('order by codset'); datamodule1.zquery1.open; if datamodule1.zquery1.recordcount = 0 then ed_CodSet:='1' else begin datamodule1.zquery1.last; ed_codset := inttostr(datamodule1.zquery1.fieldbyname('codset').value + 1); datamodule1.tb_setor.Append; end;end;
erros
[Error] CadSetor.pas(62): Incompatible types: 'TEdit' and 'Char'[Error] CadSetor.pas(65): Incompatible types: 'TEdit' and 'String'[Fatal Error] OS.dpr(7): Could not compile used unit 'CadSetor.pas'
Fabio Sanches
Curtir tópico
+ 0Posts
17/05/2010
Wilson Junior
ed_codset.Text :=
inttostr(datamodule1.zquery1.fieldbyname('codset').value + 1);
Espero ter colaborado.
Gostei + 0
17/05/2010
Fabio Sanches
Gostei + 0
17/05/2010
Fabio Sanches
obrigado
Gostei + 0
17/05/2010
Wilson Junior
Espero ter colaborado.
Gostei + 0
17/05/2010
Fabio Sanches
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)