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]
