Skip to main content
adicionou 20 caracteres ao conteúdo
Fonte Link
Tmc
  • 2,5mil
  • 3
  • 25
  • 46

Em Delphi o código é executado linha a linha logo se tiver o seguinte código:

A := 5;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem:Mensagem: A=5; B=5

Está a atribuir o mesmo valor de A á variavel de B.
Para B ter um valor diferente de A basta para isso remover a atribuição da mesma "B := A;" exemplo de código:

A := 10;
//B := A;
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem:Mensagem: A=10; B=62

Não sendo a opção mais correta (dependendo dos casos) pode ainda reatribuir o valor da variavel B, exemplo:

A := 10;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem:Mensagem: A=10; B=10

B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem:Mensagem: A=10; B=62

Existe ainda uma ultima opção que é atribuir um novo valor a A da seguinte forma, exemplo:

A := 5;
B := A;
A := 10;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem:Mensagem: A=10; B=5

Em Delphi o código é executado linha a linha logo se tiver o seguinte código:

A := 5;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=5; B=5

Está a atribuir o mesmo valor de A á variavel de B.
Para B ter um valor diferente de A basta para isso remover a atribuição da mesma "B := A;" exemplo de código:

A := 10;
//B := A;
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=62

Não sendo a opção mais correta (dependendo dos casos) pode ainda reatribuir o valor da variavel B, exemplo:

A := 10;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=10

B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=62

Existe ainda uma ultima opção que é atribuir um novo valor a A da seguinte forma, exemplo:

A := 5;
B := A;
A := 10;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=5

Em Delphi o código é executado linha a linha logo se tiver o seguinte código:

A := 5;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=5; B=5

Está a atribuir o mesmo valor de A á variavel de B.
Para B ter um valor diferente de A basta para isso remover a atribuição da mesma "B := A;" exemplo de código:

A := 10;
//B := A;
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=62

Não sendo a opção mais correta (dependendo dos casos) pode ainda reatribuir o valor da variavel B, exemplo:

A := 10;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=10

B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=62

Existe ainda uma ultima opção que é atribuir um novo valor a A da seguinte forma, exemplo:

A := 5;
B := A;
A := 10;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=5

Fonte Link
Tmc
  • 2,5mil
  • 3
  • 25
  • 46

Em Delphi o código é executado linha a linha logo se tiver o seguinte código:

A := 5;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=5; B=5

Está a atribuir o mesmo valor de A á variavel de B.
Para B ter um valor diferente de A basta para isso remover a atribuição da mesma "B := A;" exemplo de código:

A := 10;
//B := A;
B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=62

Não sendo a opção mais correta (dependendo dos casos) pode ainda reatribuir o valor da variavel B, exemplo:

A := 10;
B := A;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=10

B := 62;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=62

Existe ainda uma ultima opção que é atribuir um novo valor a A da seguinte forma, exemplo:

A := 5;
B := A;
A := 10;
showmessage('A=' + IntToStr(A) + '; B=' + IntToStr(B));

Mensagem: A=10; B=5