Este codigo te cambia todas las ocurrencias de una subcadena dentro de una cadena. Adaptalo a tus necesidades.
procedure TForm1.Button1Click(Sender: TObject);
function CambiaEn(Cadena, Esto, Por: String): String;
var
aPos: Integer;
begin
aPos := Pos(Esto, Cadena);
Result:= '';
while (aPos <> 0) do begin
Result := Result + Copy(Cadena, 1, aPos-1) + Por;
Delete(Cadena, 1, aPos + Length(Esto)-1);
aPos := Pos(Esto, Cadena);
end;
Result := Result+Cadena;
end;
var
ParaCambiar:string;
begin
ParaCambiar:='Un ejemplo en el que cambiar "cambiar"';
Label1.Caption:=CambiaEn(ParaCambiar,'cambiar','se cambio');
end;
Saludos.
__________________
El que pregunta es tonto durante 5 minutos, el que no pregunta es tonto para toda su vida.
|