Fórum Apagar determinado caracter no edit #179971
04/09/2003
0
Existe uma maneira de apagar somente os dois primeiros caracteres e os dois ultimos caracteres de um determinado edit?
Ou
Fazer com que um edit receba somente os numeros?
Explicação :
ë porque tenho um edit que recebe informações de um microterminal conectado a porta serial, o problema é que sempre no inicio da transmissão e no final vem um codigo que não me interessa para futuramente gravar no banco.
Ou
Fazer com que um edit receba somente os numeros?
Explicação :
ë porque tenho um edit que recebe informações de um microterminal conectado a porta serial, o problema é que sempre no inicio da transmissão e no final vem um codigo que não me interessa para futuramente gravar no banco.
Shuljenko
Curtir tópico
+ 0
Responder
Posts
04/09/2003
Koplin
Tente isto:
var s:string;
begin
s:=copy(edit1.text,3,length(edit1.text)-2);
edit1.text:=s;
end;
Fiz de cuca, mas acho que é isto.
var s:string;
begin
s:=copy(edit1.text,3,length(edit1.text)-2);
edit1.text:=s;
end;
Fiz de cuca, mas acho que é isto.
Responder
Gostei + 0
05/09/2003
Bacalhau
Koplin respeitosamente, acho que é -4. Assim
var s:string;
begin
s:=copy(edit1.text,3,length(edit1.text)-4);
edit1.text:=s;
end;
var s:string;
begin
s:=copy(edit1.text,3,length(edit1.text)-4);
edit1.text:=s;
end;
Responder
Gostei + 0
12/06/2009
Pgm
Koplin respeitosamente, acho que é -4. Assim
var s:string;
begin
s:=copy(edit1.text,3,length(edit1.text)-4);
edit1.text:=s;
end;
Já que a intenção é ignorar não números. Sugiro:=================
NovoX := ´´;
for i := 1 to length( x )
do begin
if x[ i ] in [´0´,´1´,´2´,´3´,´4´,´5´,´6´,´7´,´8´,´9´] then NovoX := NovoX + x[ i ];
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)