Renombrar solo un nombre

[Paulao]

este es parte de mi codigo.

Código Delphi [-]
posicao := Pos('SP', s);
    if posicao > 0 then
      s := StringReplace(s,'SP','SPO',[rfReplaceAll]);

Mis archivos viene asi:

Código Delphi [-]
20000528-38939-SP-E03-NOT.pdf

Pero as veces viene asi:

Código Delphi [-]
20000528-38939-SP-ESP03-NOT.pdf

Y cuando si renombra, queda asi:

Código Delphi [-]
20000528-38939-SPO-ESP03-NOT.pdf

y no asi:

Código Delphi [-]
20000528-38939-SPO-ESPO03-NOT.pdf

Si lo hago asi: POS('-SP-',s), no renombra las carpetas que tiene el mismo nombre(SP), i si lo dejo asi como estás el renombra todas las palavrs que tiene SP, y no esto que yo quiero.

[ecfisa]

Hola Paulao.

Por lo que creo haber entendido solamente queres que te reemplaze la primera aparición de SP.

Es decir que la modificación que queres es:
20000528-38939-SP-ESP03-NOT.pdf
20000528-38939-SPO-ESP03-NOT.pdf



Si no entendí mal la solución es:

Código Delphi [-]
var
  Cad, s: string;
begin
   Cad:= '20000528-38939-SP-ESP03-NOT.pdf';
    s:= StringReplace(Cad,'SP','SPO',[]);  // [] solo la primera ocurrencia
    ...
end;

Saludos.

[Paulao]

yo hizo un if y resolvio,pero si yo no pongo [rfReplaceAll] el solo ira substituir la primera ocurrencia? Si es asi, voy cambiar mis If por este codigo, es mas elegante, pero ahora no tengo como hacer los testes, solo a lanoche cuando llego en mi casa.

[ecfisa]

si yo no pongo [rfReplaceAll] el solo ira substituir la primera ocurrencia?

Hola Paulao.

Si, así es.

Un saludo.