Caro Marcelo,
Eu comentei estas linhas e executei o prog.
"Proj .exe raised exception Class EConverterError with message ''I'
is not valid integer value."
O erro continua, isso quer dizer que o problema não está nesta
função.
Está faltando malícia para delphi.
obgo a todos pela ajuda e atenção. vou ralar um pouco e retorno para
dar noticias.
um gde abraço,
Carlos Magno
Em 03/07/07, Marcelo - Kappesberg <[EMAIL PROTECTED]> escreveu:
>
> E ai Carlos, blz?
>
> Nao sei o que pode estar errado pra ti, o que o pessoal postou ai esta
> certo...
> Para pegar a posicao do caractere numa string usa-se o POS mesmo
>
> Entao, seguindo o teu exemplo seria algo do tipo:
>
> POS1:=COPY((ListForm.mtaclock.AsString),1,1); // pega o primeiro caractere
> POS2:=COPY((ListForm.mtaclock.AsString),2,1); // pega o segundo caractere
> ...
>
> lembrando que a variaver POS1 e POS2 deverao estar declaradas antes do
> begin da procedure
>
> Procedure tal etc...
> var
> POS1, POS2 : string;
> begin ...
>
> Marcelo Hörlle
> [EMAIL PROTECTED] <joehor%40gmail.com.br>
>
> Marcelo Hörlle
> [EMAIL PROTECTED] <joehor%40gmail.com.br>
>
> ----- Original Message -----
> From: Carlos Magno
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, July 03, 2007 9:59 AM
> Subject: Re: [delphi-br] Re: Novato...
>
> Caros colegas agradeço a atenção.
>
> Talvez eu deva esplicar melhor a minha situação:
> Veja: a minha tabela que está em um "QReport" (ListForm), é uma tabela
> DBASE.
> o name do campo a ser testado é mtaclock, que "Alfanumerico".
> POS1:= String;
> POS1:=copy((ListForm.mtaclock.DataField),1,1);
> eu realmente não sei sei se é este o caminho, fiz pela auto ajuda do
> proprio delphi.
> um gde abraço,
> Carlos Magno
>
> Em 02/07/07, Carlos <[EMAIL PROTECTED] <gcm3102%40yahoo.com.br>>
> escreveu:
> >
> > Você pode converter esta string para um inteiro.
> > ex.:
> > if(StrToInt(mCampo.Value) = 1) then
> > Espero ter ajudado.
> > Fraterno abraço.
> > Carlos
> >
> > --- Em delphi-br@yahoogrupos.com.br
> > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog
> rupos.com.br>,
> > "Logos" <[EMAIL PROTECTED]> escreveu
> > >
> > > pegue pelo campo copy(campo.asstring,1,1)
> > > ----- Original Message -----
> > > From: Carlos Magno
> > > To: delphi-br@yahoogrupos.com.br
> > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog
> rupos.com.br>
> > > Sent: Monday, July 02, 2007 11:28 AM
> > > Subject: Re: [delphi-br] Novato...
> > >
> > >
> > > Coloquei este codigo, na complilação nao deu erro, mas na execução
> > da o
> > > seguinte erro:
> > > "Proj .exe raised exception Class EConverterError with message
> > ''I' is not
> > > valid integer value."
> > > grato pela atenção,
> > > Magno
> > >
> > > Em 02/07/07, Alcistemas Informática <[EMAIL PROTECTED]> escreveu:
> >
> > > >
> > > > VAR
> > > > POS1:Char;
> > > > POS2:Char;
> > > > POS3:Char;
> > > > etc..
> > > > BEGIN
> > > > POS1:=copy(Campo.text,1,1);
> > > > POS2:=copy(Campo.text,2,1);
> > > > POS3:=copy(Campo.text,3,1);
> > > > etc...
> > > >
> > > > ----- Original Message -----
> > > > From: crsmagno
> > > > To: delphi-br@yahoogrupos.com.br
> > > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog
> rupos.com.br><delphi-br%40yahoog
> > rupos.com.br>
> > > > Sent: Monday, July 02, 2007 8:30 AM
> > > > Subject: [delphi-br] Novato...
> > > >
> > > > Olá pessoal,
> > > > Estou começando a trabalhar com delphi 7, e esbarrei em varios
> > > > problemas, entre eles o que me fez parar.
> > > > Tenho um campo do tipo alfanumerico em BD, de tamanho 6(000001).
> > > > Preciso testar cada posição.
> > > > se é 1
> > > > se é 2
> > > > se é 3...
> > > > para isso eu preciso extrair a posição para uma variavel do tipo
> > > > string.
> > > > Alguém pode me ajudar?
> > > > Um abraço,
> > > > Magno
> > > >
> > > > ----------------------------------------------------------
> > > >
> > > > No virus found in this incoming message.
> > > > Checked by AVG Free Edition.
> > > > Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date:
> > 1/7/2007
> > > > 12:19
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > >
> > > --
> > > um abraço,
> > >
> > > Carlos Magno
> > >
> > > [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.476 / Virus Database: 269.9.14/883 - Release Date:
> > 1/7/2007 12:19
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> >
> >
> >
>
> --
> um abraço,
>
> Carlos Magno
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
um abraço,
Carlos Magno
[As partes desta mensagem que não continham texto foram removidas]
