TList - Erro TypeCast

Delphi

04/05/2007

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.


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

Maic.rio

Curtidas 0

Respostas

Marco Salles

Marco Salles

04/05/2007

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;



GOSTEI 0
Maic.rio

Maic.rio

04/05/2007

Funcionou perfeitamente...
Obrigado amigo ...

Att,
Maic Nogueira


GOSTEI 0
POSTAR