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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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;
