Tenta isso:
if FieldByName('GRAU').AsInteger in [1,3, 5, 8, 10, 11, 17, 18] then
[]´s
Sergio Uetanabaro
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:13
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
Não deu certo continua dando o erro.
----- Original Message -----
From: Leslyn Fernandes
To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in .......
Att,
LF
On 10/24/07, André Luis de Oliveira <aoliveira_sys@
<mailto:aoliveira_sys%40yahoo.com.br> yahoo.com.br> wrote:
>
> Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
> dando erro.
>
> if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
> '17', '18'] then
>
> Ordinal type required e Incompatible types: 'Integer' and 'String'.
>
> André Luis de Oliveira
> Analista de Sistemas
> E-mail: [EMAIL PROTECTED] <mailto:sistemas%40uniodontocamp.com.br>
amp.com.br <sistemas%40uniodontocamp.com.br>
> ( (19) 3322-4018
> Skype: al_oliveira
>
> Uniodonto Campinas
> Av. Brasil, 200 - Campinas/SP
> ( (19) 3322-4000
> Visite nosso site: www.uniodontocamp.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
----------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
