duvida conversao de variaveis

Delphi

27/03/2012

Olá pessoal!

Estou com um problema no código abaixo...

quando quero que uma variavel do tipo INTEIRO receba um valor de um EDIT, da erro em tipo de variaveis incompativeis entre integer e Tcaption.

Alguem pode me ajudar.. é trabalho pra facul =/

DESDE JÁ AGRADEÇO!

procedure TFormVendaPagamento.BtnMostrarVendaClick(Sender: TObject);
var
codigo, produto, marca, cliente, pagamento: string;
itens, fone: Integer;
valorUnit, PrecoCusto, Desconto, ValorTotal: Real;
begin
codigo:=EdtCodigo.Text;
produto:=EdtProduto.Text;
marca:=CbBMarca.Text;
cliente:= EdtCliente.Text;
MemoMostrarVenda.Lines.Add(Codigo: + codigo);
MemoMostrarVenda.Lines.Add(Produto: + produto);
MemoMostrarVenda.Lines.Add(Marca: + marca);
MemoMostrarVenda.Lines.Add(Cliente: + cliente);
end;
Juliano Sk

Juliano Sk

Curtidas 0

Respostas

Gustavo Bretas

Gustavo Bretas

27/03/2012

Juliano,

Para converter de String para Integer use StrToInt ou StrToIntDef, a segunda testa o valor, e caso não foi um Inteiro devolve o valor passado como parâmetro!

Para fazer o inverso, IntToStr.

A título de curiosidade, o que vc esta tentando fazer pode ser feita um pouco diferente:

procedure TFormVendaPagamento.BtnMostrarVendaClick(Sender: TObject);
begin
MemoMostrarVenda.Lines.Add(Codigo: + EdtCodigo.Text);
MemoMostrarVenda.Lines.Add(Produto: + EdtProduto.Text);
MemoMostrarVenda.Lines.Add(Marca: + CbBMarca.Text);
MemoMostrarVenda.Lines.Add(Cliente: + EdtCliente.Text);
end;

Dessa forma vc não precisa converter os dados pq o Memo recebe String!

Boa sorte com o trabalho!
GOSTEI 0
Juliano Sk

Juliano Sk

27/03/2012

nossa amigo.. vc ajudou muito..

Obrigado mesmo!
GOSTEI 0
POSTAR