Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
const
digits36: array [0..35] of Char = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
i: Integer;
begin
ListBox1.Clear;
for i:=0 to StrToInt(ComboBox1.Text)-1 do ListBox1.Items.Add(digits36[i]);
end; |