Eliminar caracteres y numeros

[igamerpc]

Te voy a poner ejemplo mio con pulsar un boton que salga para resumen.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  number=['0'..'9'];
var
  cadena:string;
  scadena:string;
  s1, s2, s3: string;
  p1, p2:integer;
  p:string;
begin
  cadena := '(131) Betanzos 2 (A Coruña)';
  p1 := Pos('(', cadena);
  p2 := PosEx(')', cadena, p1);
  p:= delete(cadena, p1+1, p2-p1-1));;
  showmessage(p);
end;

end.

El resultado seria eso: Betanzos 2 (A Coruña)


He visto internet sobre delete pero salia algo incompatible, no se si ese programa es correcto o fallo algo.

[ecfisa]

Hola.

Basandome en tu código sería:

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

Saludos

[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.