Delete (cadena, posicioninicial, tamaño)

Elimina una subcadena dentro de una cadena de texto, para ello hay que pasarle la cade, la posición en la que empezará a eliminar y el número de caracteres a eliminar.

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