Forumunuz.Com - WordList-Dictionary-Kelime Ureteci

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;