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]
Marcelo Hörlle
[EMAIL PROTECTED]
----- Original Message -----
From: Carlos Magno
To: delphi-br@yahoogrupos.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]> 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>,
> "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>
> > 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>
> > > 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]
