Código Delphi [-] for i:=1 to nItems do if (StrtoInt(Vec[i].DameAnio)=antiguo) and (Vec[i].DameMonto=Mayor) then Form1.ListBox1.Items.Add('Codigo: '+Vec[i].DameCodigo)
for i:=1 to nItems do if (StrtoInt(Vec[i].DameAnio)=antiguo) and (Vec[i].DameMonto=Mayor) then Form1.ListBox1.Items.Add('Codigo: '+Vec[i].DameCodigo)