Kod
//ornek kullanim: DuzenliKelimeUreteci(0,5); procedure DuzenliKelimeUreteci(basla,hane:integer); const v='0123456789';//karakter dizesi degistirilebilir (kodda da ufak birkac degisiklik ister) var i,c:integer; s:string; begin if basla=0then for c:=1to length(v)do form1.listbox1.items.Add(v[c]); if length(form1.ListBox1.Items[form1.listbox1.Items.Count-1])=hane then exit; for i:=basla to form1.listbox1.Items.Count-1do for c:=1to length(v)do form1.listbox1.items.Add(form1.listbox1.items[i]+v[c]); s:=inttostr(form1.listbox1.Items.Count); s[1]:='0';//integer'a gore ilk karakteri silmis olduk. DuzenliKelimeUreteci(strtoint(s),hane); end;