Jéferson,
Mandei Código errado, na verdade o código é esse abaixo. Estou tentando
retirar as datas gravadas no dbmemo3.text (neste formato "10/10/05 10/10/06
10/10/07 11/04/05"), pelo ano desejado, mas ele verifica a primeira data
corretamente e no segundo loop ele retira duas datas de uma só vez para
comparação. A saber:
x := 1;
while x <= Length(dbmemo3.Text) do // dbmemo3 : onde estao gravadas as
datas
begin
if Copy(dbmemo3.Text, x, 1) = ' ' then
begin
table1.edit;
table1parcelas_data.Asstring:=Copy(dbmemo3.Text, x-8, x-1);
table1parcelas_mes.AsString:= AnsiUpperCase(FormatDateTime('MMMM',
table1parcelas_Data.asdatetime));
table1parcelas_ano.AsFloat:= strtofloat(formatdatetime('yyyy',
table1parcelas_Data.asdatetime));
if table1parcelas_ano.asfloat = strtofloat(AnoPedido.Text) then
begin
if memo1.text = '' then
memo1.Text := table1parcelas_data.AsString
else
memo1.text := memo1.text + ' ' +
table1parcelas_data.asstring;
end;
table1.Post;
end;
x := x + 1;
end;
Anderson
Rio Claro-SP
----- Original Message -----
From: "Jéferson" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, July 28, 2005 7:54 AM
Subject: Re: [delphi-br] Help!!!!
>
> Anderson,
>
> Como diria o Jack, vamos por partes...
>
> Porque vc está fazendo um laço em **Edit1.text**?
>
> Copiando a data de **dbmemo3.Text**?
>
> E concatenando o resultado em **edit2.text**?
>
> O que **Table1.edit e Table1.post** estão fazendo fora do if?
>
>
> Tente explicar melhor qual resultado vc deseja obter?
>
> --
> Jéferson Mehlecke
> Porto Alegre - RS
>
> ----- Original Message -----
> From: "Anderson" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Wednesday, July 27, 2005 4:18 PM
> Subject: Re: [delphi-br] Help!!!!
>
>
> | 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
>
>
>
>
>
> _______________________________________________________
> 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
