String suja
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
Curtidas 0
Respostas
Marcosrocha
27/03/2008
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.
GOSTEI 0
Paulo
27/03/2008
Resolvi usando o comando Copy. Valeu!!!!
GOSTEI 0
Paulo
27/03/2008
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;
GOSTEI 0
Marcosrocha
27/03/2008
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;GOSTEI 0