orc 0 Denunciar post Postado Setembro 26, 2007 tenho este código : ##2007.05.00.052559-2##, gostaria de saber como faço pra substituir o hifem por espaço em branco ??? Compartilhar este post Link para o post Compartilhar em outros sites
Rodrigo Miss 1 Denunciar post Postado Setembro 26, 2007 var Str: String;begin Str:= "##2007.05.00.052559-2##"; Str:= StringReplace(Str, '-', #27, [rfReplaceAll]); Compartilhar este post Link para o post Compartilhar em outros sites
thalesoli 0 Denunciar post Postado Setembro 26, 2007 Ola você pode usar a função abaixo function ReplaceStr(const S, Srch, Replace: string): string;var I: Integer; Source: string;begin Source := S; Result := ''; repeat I := Pos(Srch, Source); if I > 0 then begin Result := Result + Copy(Source, 1, I - 1) + Replace; Source := Copy(Source, I + Length(Srch), MaxInt); end else Result := Result + Source; until I <= 0;end; usando assim ReplaceStr(MeuTexto, '-', ' '); falow http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Compartilhar este post Link para o post Compartilhar em outros sites
orc 0 Denunciar post Postado Setembro 27, 2007 Olavocê pode usar a função abaixo function ReplaceStr(const S, Srch, Replace: string): string;var I: Integer; Source: string;begin Source := S; Result := ''; repeat I := Pos(Srch, Source); if I > 0 then begin Result := Result + Copy(Source, 1, I - 1) + Replace; Source := Copy(Source, I + Length(Srch), MaxInt); end else Result := Result + Source; until I <= 0;end;usando assimReplaceStr(MeuTexto, '-', ' ');falowhttp://forum.imasters.com.br/public/style_emoticons/default/joia.gifFUNFOU REDONDINHA VALEU http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Compartilhar este post Link para o post Compartilhar em outros sites