StringReplace

Devuelve una cadena con el resultado de reemplazar en la cadena que se le pasa como parámetro la subcadena a buscar por la subcadena a reemplazar.

Sintaxis:

TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const cadenaOriginal, cadenaBuscar, cadenaReemplazar: string; Flags: TReplaceFlags): string;

Ejemplo de uso:

var
  nombreFichero : String;
begin
  nombreFichero := 'C:\prueba caracteres no válidos fichero / \ * ? : < >.doc';
  //quitamos posibles caracteres erróneos en el nombre /\*?|:<>
  nombreFichero := StringReplace(nombrefichero, '/', '-', [rfReplaceAll, rfIgnoreCase]);
  nombreFichero := StringReplace(nombrefichero, '\', '-', [rfReplaceAll, rfIgnoreCase]);
  nombreFichero := StringReplace(nombrefichero, '*', '-', [rfReplaceAll, rfIgnoreCase]);
  nombreFichero := StringReplace(nombrefichero, '?', '-', [rfReplaceAll, rfIgnoreCase]);
  nombreFichero := StringReplace(nombrefichero, '|', '-', [rfReplaceAll, rfIgnoreCase]);
  nombreFichero := StringReplace(nombrefichero, ':', '-', [rfReplaceAll, rfIgnoreCase]);
  nombreFichero := StringReplace(nombrefichero, '<', '-', [rfReplaceAll, rfIgnoreCase]);
  nombreFichero := StringReplace(nombrefichero, '>', '-', [rfReplaceAll, rfIgnoreCase]);

Uses SysUtils;

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario