Generar caracteres alfanumericos y simbolos
 

Hola amigos, necesito una rutina que me permita generar el listado completo de caracteres alfanumericos y simbolos especiales, a mi se me ocurre un ciclo for desde 1 hasta 126 que por cada indice i imprima el resultado #i
Ejemplo
#1
#2
#3
.
.
#126
si a alguien se le ocurre algo mejor, sera bien recibida la respuesta....

Gracias de antemano ...

¿Y qué llevas hecho?, veamos tu código :)

Pues la verdad no tengo casi codigo pero se me ocurre algo asi
 

Código Delphi [-]
For l:=1 to 126 do
Begin
lista.items.add(#i)
End;

sin embargo eso no funciona ya que tipo de dato que devuelve #i no corresponde por el esperado por los items de la lista

Gracias espero que me puedan ayudar

Será algo así?...

Código Delphi [-]
For l:=1 to 126 do
Begin
lista.items.add('#'+chr(i));
End;