A implementação dele no delphi é essa
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; var SearchStr, Patt, NewStr: string; Offset: Integer; begin if rfIgnoreCase in Flags then begin SearchStr := AnsiUpperCase(S); Patt := AnsiUpperCase(OldPattern); end else begin SearchStr := S; Patt := OldPattern; end; NewStr := S; Result := ''; while SearchStr <> '' do begin Offset := AnsiPos(Patt, SearchStr); if Offset = 0 then begin Result := Result + NewStr; Break; end; Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern; NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt); if not (rfReplaceAll in Flags) then begin Result := Result + NewStr; Break; end; SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt); end; end; primeiro parâmetro é a String Original segundo parâmetro é a string que vc quer remover terceiro parâmetro é a nova string q vc quer colocar no lugar da antiga quarto é se vc quer q ele faça para string inteira...replaceall....todos...tem outros params tb abs, Rodrigo Mota. _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de [EMAIL PROTECTED] Enviada em: sábado, 10 de março de 2007 07:52 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Trocar esse comando por outro: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]); Colegas Uso delphi 3 e estou com problemas. Fui converter um componente feito em delphi 4 para 3 e tem esse comando: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]); Como faço para transforma-lo para delphi 3? Agradeco qualquer ajuda. []´s Tiano. _______________________________________________________ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. <http://br.yahoo.com/mailbeta/tudonovo/> com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]