jogada de caracteres
ola galera blz
Tenho uM DBEdit ligado a um campo CODIGOBARRA relativo ao campo codigo de barra do produto ... o problemas é o seguinte ... qdo eu digitar o codigo de barra e der um enter se ele for no formato 1234 ele confirma com o campo QTD igual a 1, e se for 2*1234 ele confirma com o campo QTD igual a 2 e remove o 2* salvando o codigo de barra apenas, ou seja 1234 ... ta foda cara
Não estou conseguindo ... sei q devo ao apertar a tecla <enter> verificar se existe o caracter *, se sim pego o q tiver antes e jogo no campo QTD, e o depois no campo CODBARRA ... mas ta fods fazer isso eheh
Alguém pode me ajudar?
FeR
fernando.developer@bol.com.br
Tenho uM DBEdit ligado a um campo CODIGOBARRA relativo ao campo codigo de barra do produto ... o problemas é o seguinte ... qdo eu digitar o codigo de barra e der um enter se ele for no formato 1234 ele confirma com o campo QTD igual a 1, e se for 2*1234 ele confirma com o campo QTD igual a 2 e remove o 2* salvando o codigo de barra apenas, ou seja 1234 ... ta foda cara
Não estou conseguindo ... sei q devo ao apertar a tecla <enter> verificar se existe o caracter *, se sim pego o q tiver antes e jogo no campo QTD, e o depois no campo CODBARRA ... mas ta fods fazer isso eheh
Alguém pode me ajudar?
FeR
fernando.developer@bol.com.br
Fer
Curtidas 0
Respostas
Vmotta
09/05/2003
var
qtd: integer;
strValor: string;
begin
strValor:= DBedit.text;
if key = #13 then
if pos(´*´, strValor) > 0 then
begin
qtd := StrToInt(strValor[1]);
delete(strValor, 1, pos(´*´,strValor));
end
else
qtd := 1;
// se for oq eu entendi,
// aqui qtd estará armazenando a quantidade e strValor o novo campo
// para o código de barras
falow
Vitor hugo
qtd: integer;
strValor: string;
begin
strValor:= DBedit.text;
if key = #13 then
if pos(´*´, strValor) > 0 then
begin
qtd := StrToInt(strValor[1]);
delete(strValor, 1, pos(´*´,strValor));
end
else
qtd := 1;
// se for oq eu entendi,
// aqui qtd estará armazenando a quantidade e strValor o novo campo
// para o código de barras
falow
Vitor hugo
GOSTEI 0