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
Rafael Cogo

Rafael Cogo

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:

// Copy(StringTotal, PosicaoInicial, TamanhoDaSubStr)

    if Copy(dm.sql_pcontaspc_codigo.Value, 1, 2) = '31' then

Fernando Duwe

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,
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar