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
<*> 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
