Valeu, André funcionou, muito obrigado.
----- Original Message -----
From: "André Argeri" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, December 27, 2004 11:55 AM
Subject: Re: [delphi-br] String
criei essa função que retira todos os caracteres que não forem números,
barras e outros. o resultado da função retorna uma string
function tform1.F_Retira( str: String ): String;
var i: byte;
aux:string;
begin
aux:=str;
result:='';
for i:=0 to length(str) do
begin
if (aux[i] ='0')or(aux[i] ='1')or(aux[i] ='2')or(aux[i]
='3')or(aux[i] ='4')or(aux[i] ='5')or(aux[i] ='6')or(aux[i] ='7')or(aux[i]
='8')or(aux[i] ='9') then
result:=result + aux[i];
end;
end;
espero que te ajude
um abraço
--
<<<<< 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
