Como eu faço para o verificar uma string ???

Delphi

17/06/2004

Como eu faço para o verificar uma string ???

É o seguinte : no resultado de uma query, ela pode me retornar num DBLabel :

N-0001 , 0002, 0003 ... ... 0750 ... ou

B-0001 , 0002, 0003 ... ... 0750 ... ou


D-0001, 0002, 0003 ... ... 0750 ... ou


S-0001, 0002, 0003 ... ... 0750 ...


Eu quero verificar se o resultado é :

N- , B- , D- , S- , ....

Pois se for N- , vai disparar um evento ...
Se for B- , vai disparar um outro evento ..., e assim por diante ...

Como fazer ???

Leo.


Lbsystems

Lbsystems

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

17/06/2004

Você pode usar o função[b:5fd5d420bf] POS[/b:5fd5d420bf]
  if Pos(´N-´,DBText1.Field.Text) <> -1 then
   // Aqui você chama o evento do N-



GOSTEI 0
Lucas Silva

Lucas Silva

17/06/2004

Corrigindo o código ai...
  if Pos(´N-´,DBText1.Field.Text) > 0 then
   // Aqui você chama o evento do N-



GOSTEI 0
POSTAR