Apagar determinado caracter no edit
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
Curtidas 0
Respostas
Koplin
04/09/2003
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.
GOSTEI 0
Bacalhau
04/09/2003
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;
GOSTEI 0
Pgm
04/09/2003
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;
GOSTEI 0