Pos (subcadena, cadena)

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:

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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario