Eliminar caracteres y numeros

[igamerpc]

Ahora si funciona. Trim pense eliminar espacio blanco. Y no sabia si funciona tb con cadena.


Gracias

[ecfisa]

Hola.

Si, es mas seguro usar Trim que Pos(')', cadena) + 2 ya que, podría haber algún caso en que el paréntesis estuviera pegado al nombre y entonces eliminaríamos la primera letra del mismo.

Saludos

[ecfisa]

Hola de nuevo.

Sin embargo, si tu intención era usar el procedimiento Delete, podes hacerlo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  cadena:string;
begin
  cadena := '(131) Betanzos 2 (A Coruña)';
  Delete(cadena, 1, Pos(')', cadena)+1);
  ShowMessage(Trim(cadena));
end;

Saludos

[igamerpc]

Ese tambien. Gracias

[[movorack]]

o con una expresión regular como esta "\(\s*\d*\s*\)" se encuentran todos los números encerrados en paréntesis y se eliminan.