Fórum duvida conversao de variaveis #414680
27/03/2012
0
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;
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
Curtir tópico
+ 0
Responder
Posts
27/03/2012
Gustavo Bretas
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!
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!
Responder
Gostei + 0
27/03/2012
Juliano Sk
nossa amigo.. vc ajudou muito..
Obrigado mesmo!
Obrigado mesmo!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)