Jéferson, eu tentei assim, mas na primeira data ele retorna certo, só que na
segunda ele dá mensagem de erro pois esta retornando duas datas de uma só
vez.....
x:=1;
while x <= Length(Edit1.Text) do
begin
table1.edit;
if Copy(edit1.Text, x, 1) = ' ' then
begin
editData.Asstring:=Copy(dbmemo3.Text, x-8, x-1); //recebe data
editAno.AsFloat:= strtofloat(formatdatetime('yyyy',
table1parcelas_Data.asdatetime)); //retira ano de data
if editAno.asfloat = '2005' then
edit2.text := edit2.text + ' ' + editData.asstring;
end;
x := x + 1;
table1.post;
end;
----- Original Message -----
From: "Jéferson" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, July 26, 2005 2:38 PM
Subject: Re: [delphi-br] Help!!!!
>
> Seguindo o teu próprio raciocínio....
>
> ==============
> Edit2.Text := '';
> X := 1;
> while X <= Length(Edit1.Text) do
> begin
> if Copy(Edit1.Text, X+6,2) = '05' then //vê se eh o ano desejado
> "05"
> begin
> Edit2.Text := Edit2.Text + Copy(Edit1.Text, X,9); //
copia
> a data inteia
> end;
> X := X + 9;
> end;
> ================
>
> --
> Jéferson Mehlecke
> Porto Alegre - RS
> ----- Original Message -----
> From: "Anderson" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Tuesday, July 26, 2005 2:07 PM
> Subject: Re: [delphi-br] Help!!!!
>
>
> | E como seria o código? Abaixo eu consigo retirar a primeira data....
> |
> | X := 1;
> | while X <= Length(Edit1.Text) do
> | begin
> | if Copy(Edit1.Text, X, 8) = ' ' then
> | begin
> | ShowMessage(Copy(Edit1.Text, 1, X));
> | Exit;
> | end;
> | X := X + 1;
> | end;
> |
> | ----- Original Message -----
> | From: "FILIPE - GURU" <[EMAIL PROTECTED]>
> | To: <delphi-br@yahoogrupos.com.br>
> | Sent: Tuesday, July 26, 2005 10:27 AM
> | Subject: Re: [delphi-br] Help!!!!
> |
> |
> | > procura por um espaço, vai voltando ateh achar um "/", depois copia o
> | > conteudo ateh chegar um espaço, e assim por diante...
> | >
> | >
> | > ----- Original Message -----
> | > From: "Anderson" <[EMAIL PROTECTED]>
> | > To: "Grupo Delphi" <delphi-br@yahoogrupos.com.br>
> | > Sent: Tuesday, July 26, 2005 10:07 AM
> | > Subject: [delphi-br] Help!!!!
> | >
> | >
> | > Aes galera...
> | >
> | > Se alguem poder me ajudar, naum aguento mais ver este programinha que
> | estou
> | > desenvolvendo....
> | >
> | > Eu tenho um campo alfha de 252 de tamanho, no qual guardo até 28
datas.
> | Ex:
> | > "20/05/05 20/06/05 20/07/05 ....". Entre as datas ha um espaço em
> branco.
> | > Eu preciso ao escolhar um ano, colocar as datas do ano pedido em um
> outro
> | > campo de 252 de tamanho...
> | > Eu teria que percorrer todo o campo e comparando as datas? como faço
> isso?
> | > Tô ficando louco!!!!!!
> | >
> | > Se alguem me ajudar, vlw
> | > Anderson
> | >
> | > [As partes desta mensagem que não continham texto foram removidas]
> | >
> | >
> | >
> | > --
> | > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> | >
> | > Para ver as mensagens antigas, acesse:
> | > http://br.groups.yahoo.com/group/delphi-br/messages
> | >
> | > Para falar com o moderador, envie um e-mail para:
> | > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> | >
> | > Links do Yahoo! Grupos
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | > --
> | > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> | >
> | > Para ver as mensagens antigas, acesse:
> | > http://br.groups.yahoo.com/group/delphi-br/messages
> | >
> | > Para falar com o moderador, envie um e-mail para:
> | > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> | >
> | > Links do Yahoo! Grupos
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> |
> |
> |
> | --
> | <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> |
> | Para ver as mensagens antigas, acesse:
> | http://br.groups.yahoo.com/group/delphi-br/messages
> |
> | Para falar com o moderador, envie um e-mail para:
> | [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> |
> | Links do Yahoo! Grupos
> |
> |
> |
> |
> |
> |
> |
> |
>
>
>
>
>
> _______________________________________________________
> Yahoo! Acesso Grátis - Internet rápida e grátis.
> Instale o discador agora! http://br.acesso.yahoo.com/
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
