Ae Jéferson e Felippe Nagato,
Consegui resolver e ficou assim:
x := 1;
while x <= Length(dbmemo3.Text) do
begin
if (Copy(dbmemo3.Text, x, 1) = ' ') or (x = 1) then
begin
table1.edit;
table1parcelas_data.AsDateTime:=strtodate(Copy(dbmemo3.Text, x,
9));
table1ano_final.Asfloat := table1ano_final.asfloat + 1;
table1parcelas_mes.AsString:= AnsiUpperCase(FormatDateTime('MMMM',
table1parcelas_Data.asdatetime));
table1parcelas_ano.AsFloat:= strtofloat(formatdatetime('yyyy',
table1parcelas_Data.asdatetime));
if table1parcelas_ano.asfloat = strtofloat(combobox1.Text) then
begin
if memo1.text = '' then
memo1.Text := table1ano_final.AsString + '/' +
table1nr_parcelas.AsString + ' - ' + table1parcelas_data.AsString
else
memo1.text := memo1.text + ' ' + table1ano_final.asstring +
'/' + table1nr_parcelas.asstring + ' - ' + 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 3:13 PM
Subject: Re: [delphi-br] Help!!!!
>
> >>Estou querendo retirar a data do "dbmemo3.text" e atribuir a um campo da
> >>table(parcelas_data) para verificação do ano.
> >> Se o ano conferir com aquele pedido quero copiar a data para o
> **Memo1.text**.
>
> =====
>
> Não precisa atribuir o valor a um campo da tabela só para conferir se a
data
> eh igual!!!!!
>
> =====
>
> --
> Jéferson Mehlecke
> Porto Alegre - RS
> ----- Original Message -----
> From: "Anderson" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Thursday, July 28, 2005 1:22 PM
> Subject: Re: [delphi-br] Help!!!!
>
>
> | Jéferson,
> |
> | O padrão sempre vai ser "DD/MM/AA ..."
> | Estou querendo retirar a data do "dbmemo3.text" e atribuir a um campo da
> | table(parcelas_data) para verificação do ano. Se o ano conferir com
aquele
> | pedido quero copiar a data para o **Memo1.text**.
> |
> | Anderson
> | Rio Claro-SP
> | ----- Original Message -----
> | From: "Jéferson" <[EMAIL PROTECTED]>
> | To: <delphi-br@yahoogrupos.com.br>
> | Sent: Thursday, July 28, 2005 10:32 AM
> | Subject: Re: [delphi-br] Help!!!!
> |
> |
> | >
> | > 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
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> |
> |
> |
> | --
> | <<<<< 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
