Essa rotina elimina qualquer string dentro de outro, e retorna a string no formato que quiser..

Function EliminaCaracteres (sTexto: String; sCaracteres: string; Caixalta: Boolean; Comparacao : Boolean ):String; var   nPos, nTam, nTamChar, antes, depois : Integer;   valor : string; begin  if sCaracteres <> '' then   begin   antes := length(sTexto);   Result := '';   nPos := 1;   nTamChar := length(sCaracteres);   nTam := length(sTexto);   while nPos <= nTamChar do     begin     sTexto := AnsiReplaceStr(sTexto,copy(sCaracteres,nPos,1),'');     inc(nPos);     end;   depois := length(sTexto);   if Caixalta = true then     Result := UpperCase(sTexto)   else     Result := LowerCase(sTexto);   end;   if Comparacao = True then     begin     if antes = depois then       Result := CurrToStr((StrToCurr(sTexto)) * 100);     end; end;

Quebra-Linha

Colaborador..: Gabriel dos Santos
Categoria(s).: Programação; Artigos; Delphi;
Data.........: 16/05/2005 20:31:24
Visualizado..: 8482 vezes
Fonte........: verdana