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
Funciones Delphi
|
