GARANTIR DESCONTO

Fórum String suja #356075

27/03/2008

0

Delphi

Companheiros, passo o cheque por uma leitora. Acontece que quando é ´escaneado´ o cheque ele vem com caracteres estranhos além do numero. Os espaços, eu conseguir tirar com TRIM, mas outros caracteres, referntes a simbolos e etc..., não sei como fazer. Alguém pode me ajudar?


Paulo

Paulo

Responder

Posts

28/03/2008

Marcosrocha

Grosseiramente, a leitora ´digita´ os caracteres lidos um a um. Você pode utilizar o evento OnKeyPress do Edit para tratar isso ou ainda usar StringReplace para remover os caracteres indesejados.


Responder

Gostei + 0

28/03/2008

Paulo

Resolvi usando o comando Copy. Valeu!!!!


Responder

Gostei + 0

28/03/2008

Paulo

Pessoal, melhorei o código com essa função enviada pelo amigo Rodrigo Ramos:

function LimpaTexto(sTexto: String): String; Var I:Integer; wAUX:String; begin wAUX := ´´; for I := 1 to Length(sTexto) do begin if (sTexto[I] in [´0´..´9´]) then begin wAUX := wAUX + copy(sTexto,I,1); end; end; Result := wAUX; end;



Responder

Gostei + 0

28/03/2008

Marcosrocha

Pessoal, melhorei o código com essa função enviada pelo amigo Rodrigo Ramos

Seu código pode ficar menor ainda:
function LimpaTexto(sTexto: String): String;
var
  I: Integer;
begin
  Result := ´´;
  for I := 1 to Length(sTexto) do
    if (sTexto[I] in [´0´..´9´]) then
      Result := Result + sTexto[I];
end;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar