Devuelve la posición del primer carácter en que se haya una subcadena en una cadena. Si no se encuentra devuelve 0. Para ello hay que pasarle como parámetro la subcadena y la cadena de texto en la que la buscará.
Un ejemplo de utilización:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
function reemplazarTexto (cadena, textoAReemplazar, textoNuevo : string) : string; var aPos : Integer; begin aPos := Pos(textoAReemplazar, Cadena); Result := ''; while (aPos <> 0) do begin Result := Result + Copy(Cadena, 1, aPos - 1) + textoNuevo; Delete(Cadena, 1, aPos + Length(textoAReemplazar) - 1); aPos := Pos(textoAReemplazar, Cadena); end; Result := Result + Cadena; end; |
Unidad System