Fórum TList - Erro TypeCast #341295
04/05/2007
0
Bom dia galera,
Estou com a seguinte dúvida.
Criei um TList, em seguida dou um Add(Meu Objeto), até aí tudo bem.
Porem na hora de pegar os valores desse Objeto não está vindo o valor correto.
Acho que devo está errando na hora de fazer o TypeCast.
Segue abaixo uma parte do código.
Na hora que vou inserir o valor no ListBox, não vem o valor correto.
Att,
Maic Nogueira
Estou com a seguinte dúvida.
Criei um TList, em seguida dou um Add(Meu Objeto), até aí tudo bem.
Porem na hora de pegar os valores desse Objeto não está vindo o valor correto.
Acho que devo está errando na hora de fazer o TypeCast.
Segue abaixo uma parte do código.
procedure TFrmLista.InsereLista;
var
I: Integer;
begin
fLista := TList.Create;
with TCalcMetros.Create do
begin
Descricao := edtDescricao.Text;
Metros := StrToFloat(edtMetros.Text);
Largura := StrToFloat(edtLargura.Text);
Qtd := StrToFloat(edtQtd.Text);
end;
fLista.Add(TCalcMetros);
for i := 0 to fLista.Count - 1 do
ListBox1.Items.Add(TCalcMetros(fLista[i]).Descricao);
end;Na hora que vou inserir o valor no ListBox, não vem o valor correto.
Att,
Maic Nogueira
Maic.rio
Curtir tópico
+ 0
Responder
Posts
04/05/2007
Marco Salles
faça assim que dá
var
I: Integer;
umObjeto:TCalcMetros;
begin
fLista := TList.Create;
umObjeto:=TCalcMetros.Create;
with umObjeto do
begin
Descricao := edtDescricao.Text;
Metros := StrToFloat(edtMetros.Text);
Largura := StrToFloat(edtLargura.Text);
Qtd := StrToFloat(edtQtd.Text);
end;
[b:956aeabb6c]fLista.Add(umObjeto);[/b:956aeabb6c]
for i := 0 to fLista.Count - 1 do
ListBox1.Items.Add(TCalcMetros(fLista[i]).Descricao);
end;
Responder
Gostei + 0
04/05/2007
Maic.rio
Funcionou perfeitamente...
Obrigado amigo ...
Att,
Maic Nogueira
Obrigado amigo ...
Att,
Maic Nogueira
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)