GARANTIR DESCONTO

Fórum Duvidas sobre if com copy #547582

03/03/2016

0

Delphi

Olá, boa tarde gostaria de saber o que está linha de comando está fazendo
A primeira parte eu entendo somente a segunda parte após o AND

if (Length(edCodigo.Text) = 13) and (Copy(edCodigo.Text, 1, 1) = '2') then
Wesley Kowalski

Wesley Kowalski

Responder

Posts

03/03/2016

Raimundo Pereira

(Length(edCodigo.Text) = 13) Conta quantidade de caracteres dentro do edcoódigo e verifica se é = 13
(Copy(edCodigo.Text, 1, 1) = '2') Verifica se o primeiro digito é =2
Responder

Gostei + 0

03/03/2016

Rafael Bosco

Exatamente como o P2 falou, você pode também alterar esse Copy, e utilizar uma Função chamada StartWith, já que o Copy ta pegando o primeiro caracter:


   
var
   Codigo: String;
begin
   Codigo := edCodigo.text;

  if (Length(Codigo) = 13) and (Codigo.StartsWith('2') then
      // faz algo
end;
Responder

Gostei + 0

04/03/2016

Marco Antônio

Exatamente como o P2 falou, você pode também alterar esse Copy, e utilizar uma Função chamada StartWith, já que o Copy ta pegando o primeiro caracter:


   
var
   Codigo: String;
begin
   Codigo := edCodigo.text;

  if (Length(Codigo) = 13) and (Codigo.StartsWith('2') then
      // faz algo
end;




pode ser tb


if (Length(Codigo) = 13) and (Codigo[1] = '2' ) then
// faz algo


opções não faltam.

Abc.
Responder

Gostei + 0

08/03/2016

Wesley Kowalski

Obrigado por me responder consegui entender agora
Responder

Gostei + 0

08/03/2016

Wesley Kowalski

Obrigado a todos (y) haha
Responder

Gostei + 0

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

Aceitar