Re: [delphi-br] Retirar sinais de uma data

2007-09-05 Por tôpico Ricardo Cabral 
Eduardo,

Por isso que acho legal a lista, uma forma de troca de conhecimentos.

Qualquer coisa...

Abraço

Ricardo

Eduardo Castro Alves [EMAIL PROTECTED] escreveu:  
 Ricardo, no seu lugar eu faria o mesmo.
 
 Nunca altero o que esta funcionando, só postei para você ver que existe 
 uma maneira usando uma unica variavel para o loop.
 
 Eduardo
 
 Ricardo Cabral escreveu:
 
  Eduardo,
 
  É isso mesmo !
  Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como 
  tava.
 
  Abraços,
 
  Ricardo
 
  Eduardo Castro Alves [EMAIL PROTECTED] 
  mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu 
  entendi, você pega um texto e transforma em um
  texto só de numeros.
 
  Assim tb funciona.
 
  function ExtractNumber(pValor : String) : String;
  var
  i : Integer;
  begin
  Result := '';
  for i := 1 to Length(pValor) do
  begin
  if pValor[i] in ['0'..'9'] then
  Result := Result + pValor[i];
  end;
  end;
 
  Eduardo
 
  Ricardo Cabral escreveu:
  
   Paulo,
  
   Não sei se já existe no delphi, mas eu uso essa para qualquer string.
  
   Espero ter ajudado.
  
   Ricardo Cabral
  
   Function Tffuncoes.numeros(valor : string) : string; // Limpa string e
   deixa soimente numeros
   var
   i : integer;
   xvalor : string;
   xnum : String;
   begin
   xvalor:=trim(valor);
   xnum:='0123456789';
   valor:='';
   for i := 1 to Length(xvalor) do
   begin
   if pos(copy(xvalor,i,1),xnum)0 then
   valor:=valor+copy(xvalor,i,1);
   end;
   result:=valor;
   end;
  
   pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br
   mailto:infowave%40jupiter.com.br escreveu: Ola amigos,
   Alguem podria me passar uma função que retire os sinais de uma data,
   deixando apenas os numeros?
   Obrigado!
   []´
   Paulo
  
  
  
  
  
   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
 
 
 
 
  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
   
 
 
 
   

   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Retirar sinais de uma data

2007-09-05 Por tôpico Tamara Clemente 
Desculpa pessoa, estou caindo meio de paraquedas na conversa, mas pelo que
entendi a necessidade é retirar barra ou traço separador de dia, mes e ano,
correto??? O formatdateTime naum ajuda

Tamara Clemente
Analista Desenvolvedora


Em 04/09/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:

   da pra fazer de várias formas mesmo, eu mesmo uso essa rotina..

 function remove_carcter(sString:String):String;
 var
 cSpecial: String;
 nPos, nConta: Integer;
 begin

 cSpecial :=

 ';~ø.`()[EMAIL 
 PROTECTED]*_-+=}{[]|\/.,?*-+€‚,.ƒ„…†‡ˆ‰Š‹ŒŽ''•–—˜™š›œžŸ
 ¡¢£¤¥¦§¨(c)ª«¬­(r)¯°±²³´µ¶·¸¹º»¼½¾¿ÆÐ';
 Result := '';
 for nConta := 1 to Length(cSpecial) do begin
 while Pos(cSpecial[nConta],sString )  0 do
 System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1);
 end;
 Result := sString;

 end;

 Em 04/09/07, Eduardo Castro Alves [EMAIL 
 PROTECTED]ecastroa_edu%40yahoo.com.br
 escreveu:
 
  Ricardo, no seu lugar eu faria o mesmo.
 
  Nunca altero o que esta funcionando, só postei para você ver que existe
  uma maneira usando uma unica variavel para o loop.
 
  Eduardo
 
  Ricardo Cabral escreveu:
  
   Eduardo,
  
   É isso mesmo !
   Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como
   tava.
  
   Abraços,
  
   Ricardo
  
   Eduardo Castro Alves [EMAIL PROTECTED]ecastroa_edu%40yahoo.com.br
 ecastroa_edu%40yahoo.com.br
   mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu
   entendi, você pega um texto e transforma em um
   texto só de numeros.
  
   Assim tb funciona.
  
   function ExtractNumber(pValor : String) : String;
   var
   i : Integer;
   begin
   Result := '';
   for i := 1 to Length(pValor) do
   begin
   if pValor[i] in ['0'..'9'] then
   Result := Result + pValor[i];
   end;
   end;
  
   Eduardo
  
   Ricardo Cabral escreveu:
   
Paulo,
   
Não sei se já existe no delphi, mas eu uso essa para qualquer
 string.
   
Espero ter ajudado.
   
Ricardo Cabral
   
Function Tffuncoes.numeros(valor : string) : string; // Limpa string
 e
deixa soimente numeros
var
i : integer;
xvalor : string;
xnum : String;
begin
xvalor:=trim(valor);
xnum:='0123456789';
valor:='';
for i := 1 to Length(xvalor) do
begin
if pos(copy(xvalor,i,1),xnum)0 then
valor:=valor+copy(xvalor,i,1);
end;
result:=valor;
end;
   
pcinfowave [EMAIL PROTECTED] 
infowave%40jupiter.com.brinfowave%40jupiter.com.brmailto:
  infowave% infowave%2540jupiter.com.br
mailto:infowave% infowave%25 infowave%2540jupiter.com.br
 escreveu: Ola
  amigos,
Alguem podria me passar uma função que retire os sinais de uma data,
deixando apenas os numeros?
Obrigado!
[]´
Paulo
   
   
   
   
   
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
  
  
  
  
  
   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
 
 

 --
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com/

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Retirar sinais de uma data

2007-09-05 Por tôpico Davi Eduardo Borges Wall 
Tamara,

 

Já foram dadas 700.000 soluções para esse caso. Acho que a pessoa que solicitou 
isso já montou uma biblioteca de retirar

“sinais” de uma data. Pois tantas foram as formas de solução que passaram pra 
ele.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tamara 
Clemente
Enviada em: quarta-feira, 5 de setembro de 2007 08:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Retirar sinais de uma data

 

Desculpa pessoa, estou caindo meio de paraquedas na conversa, mas pelo que
entendi a necessidade é retirar barra ou traço separador de dia, mes e ano,
correto??? O formatdateTime naum ajuda

Tamara Clemente
Analista Desenvolvedora

Em 04/09/07, Eduardo Silva dos Santos [EMAIL PROTECTED] 
mailto:eduardo.drd%40gmail.com  escreveu:

 da pra fazer de várias formas mesmo, eu mesmo uso essa rotina..

 function remove_carcter(sString:String):String;
 var
 cSpecial: String;
 nPos, nConta: Integer;
 begin

 cSpecial :=

 ';~ø.`()[EMAIL 
 PROTECTED]*_-+=}{[]|\/.,?*-+€‚,.ƒ„…†‡ˆ‰Š‹ŒŽ''•–—˜™š›œžŸ
 ¡¢£¤¥¦§¨(c)ª«¬­(r)¯°±²³´µ¶·¸¹º»¼½¾¿ÆÐ';
 Result := '';
 for nConta := 1 to Length(cSpecial) do begin
 while Pos(cSpecial[nConta],sString )  0 do
 System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1);
 end;
 Result := sString;

 end;

 Em 04/09/07, Eduardo Castro Alves [EMAIL PROTECTED] 
 mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br
 escreveu:
 
  Ricardo, no seu lugar eu faria o mesmo.
 
  Nunca altero o que esta funcionando, só postei para você ver que existe
  uma maneira usando uma unica variavel para o loop.
 
  Eduardo
 
  Ricardo Cabral escreveu:
  
   Eduardo,
  
   É isso mesmo !
   Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como
   tava.
  
   Abraços,
  
   Ricardo
  
   Eduardo Castro Alves [EMAIL PROTECTED] 
   mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br
 ecastroa_edu%40yahoo.com.br
   mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu
   entendi, você pega um texto e transforma em um
   texto só de numeros.
  
   Assim tb funciona.
  
   function ExtractNumber(pValor : String) : String;
   var
   i : Integer;
   begin
   Result := '';
   for i := 1 to Length(pValor) do
   begin
   if pValor[i] in ['0'..'9'] then
   Result := Result + pValor[i];
   end;
   end;
  
   Eduardo
  
   Ricardo Cabral escreveu:
   
Paulo,
   
Não sei se já existe no delphi, mas eu uso essa para qualquer
 string.
   
Espero ter ajudado.
   
Ricardo Cabral
   
Function Tffuncoes.numeros(valor : string) : string; // Limpa string
 e
deixa soimente numeros
var
i : integer;
xvalor : string;
xnum : String;
begin
xvalor:=trim(valor);
xnum:='0123456789';
valor:='';
for i := 1 to Length(xvalor) do
begin
if pos(copy(xvalor,i,1),xnum)0 then
valor:=valor+copy(xvalor,i,1);
end;
result:=valor;
end;
   
pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br  
infowave%40jupiter.com.brinfowave%40jupiter.com.brmailto:
  infowave% infowave%2540jupiter.com.br
mailto:infowave% infowave%25 infowave%2540jupiter.com.br
 escreveu: Ola
  amigos,
Alguem podria me passar uma função que retire os sinais de uma data,
deixando apenas os numeros?
Obrigado!
[]´
Paulo
   
   
   
   
   
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
  
  
  
  
  
   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
 
 

 --
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com  
 eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com/

 [As partes desta mensagem que não continham texto foram removidas]

 


[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Retirar sinais de uma data

2007-09-05 Por tôpico Ricardo Cabral 
 Davi,

Mesmo que tenham dado 70.000 soluções como você disse, acho interessante a 
solução 700.001. Acho que é para isso que a lista existe: Discutir sobre um 
determinado tema.

Ricardo

Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu:  
 Tamara, 
 
   
 
 Já foram dadas 700.000 soluções para esse caso. Acho que a pessoa que 
solicitou isso já montou uma biblioteca de retirar 
 
 “sinais” de uma data. Pois tantas foram as formas de solução que 
passaram pra ele. 
 
   
 
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tamara 
Clemente 
 Enviada em: quarta-feira, 5 de setembro de 2007 08:11 
 Para: delphi-br@yahoogrupos.com.br 
 Assunto: Re: [delphi-br] Retirar sinais de uma data 
 
   
 
 Desculpa pessoa, estou caindo meio de paraquedas na conversa, mas pelo que 
 entendi a necessidade é retirar barra ou traço separador de dia, mes e ano, 
 correto??? O formatdateTime naum ajuda 
 
 Tamara Clemente 
 Analista Desenvolvedora 
 
 Em 04/09/07, Eduardo Silva dos Santos [EMAIL PROTECTED] 
mailto:eduardo.drd%40gmail.com  escreveu: 
  
  da pra fazer de várias formas mesmo, eu mesmo uso essa rotina.. 
  
  function remove_carcter(sString:String):String; 
  var 
  cSpecial: String; 
  nPos, nConta: Integer; 
  begin 
  
  cSpecial := 
  
  ';~ø.`()[EMAIL PROTECTED]*_-+=}{[]|\/.,?*-+€‚,.ƒ„…†
  ‡ˆ‰Š‹ŒŽ''•–—˜™š›œžŸ 
  ¡¢£¤¥¦§¨(c)ª«¬­(r)¯°±²³´µ¶·¸¹º»¼½¾¿ÆÐ'; 
  Result := ''; 
  for nConta := 1 to Length(cSpecial) do begin 
  while Pos(cSpecial[nConta],sString )  0 do 
  System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1); 
  end; 
  Result := sString; 
  
  end; 
  
  Em 04/09/07, Eduardo Castro Alves [EMAIL PROTECTED] 
  mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br 
  escreveu: 
   
   Ricardo, no seu lugar eu faria o mesmo. 
   
   Nunca altero o que esta funcionando, só postei para você ver que existe 
   uma maneira usando uma unica variavel para o loop. 
   
   Eduardo 
   
   Ricardo Cabral escreveu: 

Eduardo, 

É isso mesmo ! 
Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como 
tava. 

Abraços, 

Ricardo 

Eduardo Castro Alves [EMAIL PROTECTED] 
mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br 
  ecastroa_edu%40yahoo.com.br 
mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu 
entendi, você pega um texto e transforma em um 
texto só de numeros. 

Assim tb funciona. 

function ExtractNumber(pValor : String) : String; 
var 
i : Integer; 
begin 
Result := ''; 
for i := 1 to Length(pValor) do 
begin 
if pValor[i] in ['0'..'9'] then 
Result := Result + pValor[i]; 
end; 
end; 

Eduardo 

Ricardo Cabral escreveu: 
 
 Paulo, 
 
 Não sei se já existe no delphi, mas eu uso essa para qualquer 
  string. 
 
 Espero ter ajudado. 
 
 Ricardo Cabral 
 
 Function Tffuncoes.numeros(valor : string) : string; // Limpa string 
  e 
 deixa soimente numeros 
 var 
 i : integer; 
 xvalor : string; 
 xnum : String; 
 begin 
 xvalor:=trim(valor); 
 xnum:='0123456789'; 
 valor:=''; 
 for i := 1 to Length(xvalor) do 
 begin 
 if pos(copy(xvalor,i,1),xnum)0 then 
 valor:=valor+copy(xvalor,i,1); 
 end; 
 result:=valor; 
 end; 
 
 pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br  
 infowave%40jupiter.com.brinfowave%40jupiter.com.brmailto: 
   infowave% infowave%2540jupiter.com.br 
 mailto:infowave% infowave%25 infowave%2540jupiter.com.br 
  escreveu: Ola 
   amigos, 
 Alguem podria me passar uma função que retire os sinais de uma data, 
 deixando apenas os numeros? 
 Obrigado! 
 []´ 
 Paulo 
 
 
 
 
 
 Flickr agora em português. Você clica, todo mundo vê. Saiba mais. 
 
 [As partes desta mensagem que não continham texto foram removidas] 
 
 





Flickr agora em português. Você clica, todo mundo vê. Saiba mais. 

[As partes desta mensagem que não continham texto foram removidas] 


   
   
   
  
  -- 
  Eduardo Silva dos Santos 
  DRD Sistemas. 
  (27) 3218-4201 
  MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com  
  eduardo.drd%40gmail.com 
  Site: http://www.drdsistemas.com/ 
  
  [As partes desta mensagem que não continham texto foram removidas] 
  
   
  
 
 [As partes desta mensagem que não continham texto foram removidas] 
 
   
 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   

   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não

Re: RES: [delphi-br] Retirar sinais de uma data

2007-09-04 Por tôpico Luciano Angelini 
Talvez ajude..



procedure TForm1.Button1Click(Sender: TObject);
var dt_normal  : TDateTime ;
dt_soh_numero  : string ;
begin
dt_normal   := StrToDate(edit1.text) ;
dt_soh_numero  := formatdatetime('DDMM',dt_normal);
label1.Caption   := dt_soh_numero ;
end;

Natanael Rodrigues escreveu:

 FormatDatetime('ddMM',date)

 _

 De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br] Em
 nome de pcinfowave
 Enviada em: segunda-feira, 3 de setembro de 2007 16:56
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Retirar sinais de uma data

 Ola amigos,
 Alguem podria me passar uma função que retire os sinais de uma data,
 deixando apenas os numeros?
 Obrigado!
 []´
 Paulo

 [As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Retirar sinais de uma data

2007-09-04 Por tôpico Edu Nicácio 
AnsiReplaceStr() ou AnsiReplaceText();

Ambos os métodos estão na Unit StrUtils... dá uma procurada lá...

Abraço.



  Atenciosamente:

 
 Eduardo Cláudio Nicácio
  Analista de Sistemas Pleno
  Fábrica 02 - CTIS
  Tel.: (11) 3150-6841
  [EMAIL PROTECTED]
 



  - Original Message - 
  From: Ricardo Cabral 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, September 03, 2007 5:02 PM
  Subject: Re: [delphi-br] Retirar sinais de uma data


  Paulo,

  Não sei se já existe no delphi, mas eu uso essa para qualquer string.

  Espero ter ajudado.

  Ricardo Cabral

  Function Tffuncoes.numeros(valor : string) : string; // Limpa string e deixa 
soimente numeros
  var
  i : integer;
  xvalor : string;
  xnum : String;
  begin
  xvalor:=trim(valor);
  xnum:='0123456789';
  valor:='';
  for i := 1 to Length(xvalor) do
  begin
  if pos(copy(xvalor,i,1),xnum)0 then
  valor:=valor+copy(xvalor,i,1);
  end;
  result:=valor;
  end;

  pcinfowave [EMAIL PROTECTED] escreveu: Ola amigos,
  Alguem podria me passar uma função que retire os sinais de uma data, 
  deixando apenas os numeros?
  Obrigado!
  []´
  Paulo





  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Retirar sinais de uma data

2007-09-04 Por tôpico Ricardo Cabral 
   Eduardo,

   É isso mesmo ! 
   Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como tava.

Abraços,

Ricardo

Eduardo Castro Alves [EMAIL PROTECTED] escreveu:  
 Ricardo, pelo que eu entendi, você pega um texto e transforma em um 
 texto só de numeros.
 
 Assim tb funciona.
 
 function ExtractNumber(pValor : String) : String;
   var
  i : Integer;
   begin
  Result := '';
  for i := 1 to Length(pValor) do
  begin
 if pValor[i] in ['0'..'9'] then
Result := Result + pValor[i];
  end;
   end;
 
 Eduardo
 
 Ricardo Cabral escreveu:
 
  Paulo,
 
  Não sei se já existe no delphi, mas eu uso essa para qualquer string.
 
  Espero ter ajudado.
 
  Ricardo Cabral
 
  Function Tffuncoes.numeros(valor : string) : string; // Limpa string e 
  deixa soimente numeros
  var
  i : integer;
  xvalor : string;
  xnum : String;
  begin
  xvalor:=trim(valor);
  xnum:='0123456789';
  valor:='';
  for i := 1 to Length(xvalor) do
  begin
  if pos(copy(xvalor,i,1),xnum)0 then
  valor:=valor+copy(xvalor,i,1);
  end;
  result:=valor;
  end;
 
  pcinfowave [EMAIL PROTECTED] 
  mailto:infowave%40jupiter.com.br escreveu: Ola amigos,
  Alguem podria me passar uma função que retire os sinais de uma data,
  deixando apenas os numeros?
  Obrigado!
  []´
  Paulo
 
 
 
 
 
  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
   
 
 
 
   

   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Retirar sinais de uma data

2007-09-04 Por tôpico Eduardo Castro Alves 
Ricardo, no seu lugar eu faria o mesmo.

Nunca altero o que esta funcionando, só postei para você ver que existe 
uma maneira usando uma unica variavel para o loop.



Eduardo

Ricardo Cabral escreveu:

 Eduardo,

 É isso mesmo !
 Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como 
 tava.

 Abraços,

 Ricardo

 Eduardo Castro Alves [EMAIL PROTECTED] 
 mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu 
 entendi, você pega um texto e transforma em um
 texto só de numeros.

 Assim tb funciona.

 function ExtractNumber(pValor : String) : String;
 var
 i : Integer;
 begin
 Result := '';
 for i := 1 to Length(pValor) do
 begin
 if pValor[i] in ['0'..'9'] then
 Result := Result + pValor[i];
 end;
 end;

 Eduardo

 Ricardo Cabral escreveu:
 
  Paulo,
 
  Não sei se já existe no delphi, mas eu uso essa para qualquer string.
 
  Espero ter ajudado.
 
  Ricardo Cabral
 
  Function Tffuncoes.numeros(valor : string) : string; // Limpa string e
  deixa soimente numeros
  var
  i : integer;
  xvalor : string;
  xnum : String;
  begin
  xvalor:=trim(valor);
  xnum:='0123456789';
  valor:='';
  for i := 1 to Length(xvalor) do
  begin
  if pos(copy(xvalor,i,1),xnum)0 then
  valor:=valor+copy(xvalor,i,1);
  end;
  result:=valor;
  end;
 
  pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br
  mailto:infowave%40jupiter.com.br escreveu: Ola amigos,
  Alguem podria me passar uma função que retire os sinais de uma data,
  deixando apenas os numeros?
  Obrigado!
  []´
  Paulo
 
 
 
 
 
  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 





 Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

 [As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Retirar sinais de uma data

2007-09-04 Por tôpico Eduardo Silva dos Santos 
da pra fazer de várias formas mesmo, eu mesmo uso essa rotina..


function remove_carcter(sString:String):String;
var
  cSpecial: String;
  nPos, nConta: Integer;
begin

 cSpecial :=
';~ø.`()[EMAIL 
PROTECTED]*_-+=}{[]|\/.,?*-+€‚,.ƒ„…†‡ˆ‰Š‹ŒŽ''•–—˜™š›œžŸ
¡¢£¤¥¦§¨(c)ª«¬­(r)¯°±²³´µ¶·¸¹º»¼½¾¿ÆÐ';
 Result   := '';
 for nConta := 1 to Length(cSpecial) do begin
   while Pos(cSpecial[nConta],sString )  0 do
 System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1);
  end;
  Result := sString;

end;



Em 04/09/07, Eduardo Castro Alves [EMAIL PROTECTED] escreveu:

   Ricardo, no seu lugar eu faria o mesmo.

 Nunca altero o que esta funcionando, só postei para você ver que existe
 uma maneira usando uma unica variavel para o loop.

 Eduardo

 Ricardo Cabral escreveu:
 
  Eduardo,
 
  É isso mesmo !
  Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como
  tava.
 
  Abraços,
 
  Ricardo
 
  Eduardo Castro Alves [EMAIL PROTECTED]ecastroa_edu%40yahoo.com.br
  mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu
  entendi, você pega um texto e transforma em um
  texto só de numeros.
 
  Assim tb funciona.
 
  function ExtractNumber(pValor : String) : String;
  var
  i : Integer;
  begin
  Result := '';
  for i := 1 to Length(pValor) do
  begin
  if pValor[i] in ['0'..'9'] then
  Result := Result + pValor[i];
  end;
  end;
 
  Eduardo
 
  Ricardo Cabral escreveu:
  
   Paulo,
  
   Não sei se já existe no delphi, mas eu uso essa para qualquer string.
  
   Espero ter ajudado.
  
   Ricardo Cabral
  
   Function Tffuncoes.numeros(valor : string) : string; // Limpa string e
   deixa soimente numeros
   var
   i : integer;
   xvalor : string;
   xnum : String;
   begin
   xvalor:=trim(valor);
   xnum:='0123456789';
   valor:='';
   for i := 1 to Length(xvalor) do
   begin
   if pos(copy(xvalor,i,1),xnum)0 then
   valor:=valor+copy(xvalor,i,1);
   end;
   result:=valor;
   end;
  
   pcinfowave [EMAIL PROTECTED] infowave%40jupiter.com.brmailto:
 infowave% infowave%2540jupiter.com.br
   mailto:infowave% infowave%2540jupiter.com.br escreveu: Ola
 amigos,
   Alguem podria me passar uma função que retire os sinais de uma data,
   deixando apenas os numeros?
   Obrigado!
   []´
   Paulo
  
  
  
  
  
   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
 
 
 
 
  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 

 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico pcinfowave 
Ola amigos,
Alguem podria me passar uma função que retire os sinais de uma data, 
deixando apenas os numeros?
Obrigado!
[]´
Paulo

Re: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Ricardo Cabral 
Paulo,

Não sei se já existe no delphi, mas eu uso essa para qualquer string.

Espero ter ajudado.

Ricardo Cabral


Function Tffuncoes.numeros(valor : string) : string; // Limpa string e deixa 
soimente numeros
var
 i : integer;
 xvalor : string;
 xnum : String;
begin
  xvalor:=trim(valor);
  xnum:='0123456789';
  valor:='';
  for i := 1 to Length(xvalor) do
  begin
if  pos(copy(xvalor,i,1),xnum)0 then
valor:=valor+copy(xvalor,i,1);
  end;
  result:=valor;
end;


pcinfowave [EMAIL PROTECTED] escreveu:   Ola 
amigos,
 Alguem podria me passar uma função que retire os sinais de uma data, 
 deixando apenas os numeros?
 Obrigado!
 []´
 Paulo
 
 
 
   

   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico fabio giro 
Vá no help e veja ABS

pcinfowave [EMAIL PROTECTED] escreveu:  Ola amigos,
Alguem podria me passar uma função que retire os sinais de uma data, 
deixando apenas os numeros?
Obrigado!
[]´
Paulo



 

   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Natanael Rodrigues 
FormatDatetime('ddMM',date)

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de pcinfowave
Enviada em: segunda-feira, 3 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Retirar sinais de uma data

 

Ola amigos,
Alguem podria me passar uma função que retire os sinais de uma data, 
deixando apenas os numeros?
Obrigado!
[]´
Paulo

 



[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Andre Luis Silveria 
Não sei se ajuda:
Formatdatetime('ddmm', Data);

Essa função vai retornar uma string com a data no formato que desejar ...

 
 GYNCOWBOY 
 André Luis da Silveira






  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Davi Eduardo Borges Wall 
Procure no help DecodeDate()

 

[]'s

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de pcinfowave
Enviada em: segunda-feira, 3 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Retirar sinais de uma data

 

Ola amigos,
Alguem podria me passar uma função que retire os sinais de uma data, 
deixando apenas os numeros?
Obrigado!
[]´
Paulo

 



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Eduardo Castro Alves 
Ricardo, pelo que eu entendi, você pega um texto e transforma em um 
texto só de numeros.

Assim tb funciona.

  function ExtractNumber(pValor : String) : String;
  var
 i : Integer;
  begin
 Result := '';
 for i := 1 to Length(pValor) do
 begin
if pValor[i] in ['0'..'9'] then
   Result := Result + pValor[i];
 end;
  end;


Eduardo

Ricardo Cabral escreveu:

 Paulo,

 Não sei se já existe no delphi, mas eu uso essa para qualquer string.

 Espero ter ajudado.

 Ricardo Cabral

 Function Tffuncoes.numeros(valor : string) : string; // Limpa string e 
 deixa soimente numeros
 var
 i : integer;
 xvalor : string;
 xnum : String;
 begin
 xvalor:=trim(valor);
 xnum:='0123456789';
 valor:='';
 for i := 1 to Length(xvalor) do
 begin
 if pos(copy(xvalor,i,1),xnum)0 then
 valor:=valor+copy(xvalor,i,1);
 end;
 result:=valor;
 end;

 pcinfowave [EMAIL PROTECTED] 
 mailto:infowave%40jupiter.com.br escreveu: Ola amigos,
 Alguem podria me passar uma função que retire os sinais de uma data,
 deixando apenas os numeros?
 Obrigado!
 []´
 Paulo





 Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

 [As partes desta mensagem que não continham texto foram removidas]