Acho que isso ai te ajuda.
function LimpaStr(str : string) : string;
var
ct : integer;
begin
result := '';
for ct := 1 to Length(Str) do
if Str[ct] in ['0'..'9'] then
result := result + str[ct];
end;
Testa ai e vê se te atende
Abraço
Daniel Augusto Bastos
Em 20/04/06, Luciano Alves de
Oliveira<[EMAIL PROTECTED]> escreveu:
> Pessoal,
>
>
> Tenho uma string provinda de um MaskEdit, onde no evento onChange estou utilizando um comando Locate. Acontece que se no MaskEdit o usuário digitar por exemplo '5 9', vai ocasionar um erro.
> Então gostaria de retirar os espaços entre as strings para que fosse pesquisado como '59'.
>
> Grato
>
>
> Luciano
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por: | |
|
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 Termos do Serviço do Yahoo!.