O formato das datas no campo dbmemo3.text seguirá sempre o mesmo padrao?
(DD/MM/AA DD/MM/AA DD/MM/AA .......) ?
Pq vc está atribuindo valores a **table1**? Se a cada entrada no if vc
substitui estes valores?
Pelo q entendi vc quer copiar as datas de determinado ano do
**dbmemo3.text** para o **Memo1.text**.
É isto q vc quer?
--
Jéferson Mehlecke
Porto Alegre - RS
----- Original Message -----
From: "Anderson" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, July 28, 2005 10:16 AM
Subject: Re: [delphi-br] Help!!!!
| 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
|
|
|
|
|
|
|
|
_______________________________________________________
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
