Eliminar caracteres y numeros

[igamerpc]

Ese ya sabia que funciona pero no tengo Memo1. Lo estoy haciendo en el registro de la tabla. Pido disculpa de anterior si no entiende, vuelvo escribir otra vez mas claro lo intento.
Ejemplo provincias.lines.count-1 ese no funciona.

[ecfisa]

Hola.

Empezado por igamerpc

Ese ya sabia que funciona pero no tengo Memo1. Lo estoy haciendo en el registro de la tabla.
...

Entonces pon algo de tu código como para sugerirte algo específico, de otro modo nos vemos obligados a publicar ejemplos genéricos.

Saludos

[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