Fórum Como buscar um valor de campo #595651
23/07/2018
0
Boa tarde pessoal. Preciso fazer um IF com a condição de que se for digitado os dois primeiros caracteres já consigo a filtar os dados, tipo:
if dm.sql_pcontaspc_codigo.Value = ''''3101010006'''' then
begin
txt_recbr_sant.Value := txt_recbr_sant.Value + txt_saldo_anterior.Value;
txt_recbr_debito.Value := txt_recbr_debito.Value + txt_debito.Value;
txt_recbr_credito.Value := txt_recbr_credito.Value + txt_credito.Value;
txt_recbr_satual.Value := (txt_recbr_credito.Value - txt_recbr_debito.Value)+txt_recbr_satual.Value;
end;
No caso eu queria que todos os dados começados com ''''31'''' fossem filtrados e não um número especifico ''''3101010006''''.....
obrigado
if dm.sql_pcontaspc_codigo.Value = ''''3101010006'''' then
begin
txt_recbr_sant.Value := txt_recbr_sant.Value + txt_saldo_anterior.Value;
txt_recbr_debito.Value := txt_recbr_debito.Value + txt_debito.Value;
txt_recbr_credito.Value := txt_recbr_credito.Value + txt_credito.Value;
txt_recbr_satual.Value := (txt_recbr_credito.Value - txt_recbr_debito.Value)+txt_recbr_satual.Value;
end;
No caso eu queria que todos os dados começados com ''''31'''' fossem filtrados e não um número especifico ''''3101010006''''.....
obrigado
Rafael Cogo
Curtir tópico
+ 0
Responder
Post mais votado
23/07/2018
Rafael,
Use a função Copy (http://www.delphibasics.co.uk/RTL.asp?Name=copy). Função igual a substr em demais linguagens.
No seu exemplo:
Use a função Copy (http://www.delphibasics.co.uk/RTL.asp?Name=copy). Função igual a substr em demais linguagens.
No seu exemplo:
// Copy(StringTotal, PosicaoInicial, TamanhoDaSubStr)
if Copy(dm.sql_pcontaspc_codigo.Value, 1, 2) = '31' then
Fernando Duwe
Responder
Gostei + 3
Mais Posts
24/07/2018
Rafael Cogo
Obrigado meu amigo...deu certo....
Responder
Gostei + 0
25/07/2018
João Filho
Olá Rafael bom dia,
Outra forma possível também é utilizando o "AnsiContainsText" da biblioteca "StrUtils".
Atenciosamente,
Outra forma possível também é utilizando o "AnsiContainsText" da biblioteca "StrUtils".
Atenciosamente,
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)