Código Delphi [-] var i:Integer; begin // Limpio el ComboBox, por si no es la primera vez que lo llamo. ComboBox.Items.Clear: // Abro la tabla de configuracion si está cerrada if not (TablaIvas.Active) then TablaIvas.Open; // Recorro los 3 campos de IVA (IVA[n]) agregando su valor a la lista de items for i:=1 to 3 do begin // Utilizo .AsString, pero quizás se debería utilizar .AsFloat y darle formato mediante FormatFloat(formato, numero). ComboBox.Items.Add( TablaIvas.FieldByName('IVA' + IntToStr(i)).AsString ); end; end;
var i:Integer; begin // Limpio el ComboBox, por si no es la primera vez que lo llamo. ComboBox.Items.Clear: // Abro la tabla de configuracion si está cerrada if not (TablaIvas.Active) then TablaIvas.Open; // Recorro los 3 campos de IVA (IVA[n]) agregando su valor a la lista de items for i:=1 to 3 do begin // Utilizo .AsString, pero quizás se debería utilizar .AsFloat y darle formato mediante FormatFloat(formato, numero). ComboBox.Items.Add( TablaIvas.FieldByName('IVA' + IntToStr(i)).AsString ); end; end;