Duvidas sobre if com copy

Delphi

03/03/2016

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

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

03/03/2016

(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
GOSTEI 0
Rafael Bosco

Rafael Bosco

03/03/2016

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;
GOSTEI 0
Marco Antônio

Marco Antônio

03/03/2016

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.
GOSTEI 0
Wesley Kowalski

Wesley Kowalski

03/03/2016

Obrigado por me responder consegui entender agora
GOSTEI 0
Wesley Kowalski

Wesley Kowalski

03/03/2016

Obrigado a todos (y) haha
GOSTEI 0
POSTAR