Como buscar um valor de campo
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
Curtidas 0
Melhor post
Fernando Duwe
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
GOSTEI 3
Mais Respostas
Rafael Cogo
23/07/2018
Obrigado meu amigo...deu certo....
GOSTEI 0
João Filho
23/07/2018
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,
GOSTEI 0