[100分]求排列五[排列组合]算法!(100分)

体彩排列五由5个数组成,比如64379
第一位78
第二位234
第三位15
第四位6
第五位378
如何按以上位置选择的数字排列成排列五[体彩]
虽然有许多排列五的软件,但是不知其源码算法,我的Delphi基础,请高手给个源码.谢谢!

排列五每期奖金有10万,值得一算哦![]

有需要其他算法[足球彩票,双色球]源代码,请到我的笔记查询.
里面收集了大量彩票源代码[不是我写的,转载的,呵呵]

请高手指教!

是不是只有5個列?
如果是5個...那麼..
5個loop是不是可以做?
利用數字的長度可以知道第一個78要運行2次
在運行第一取第一個值7
再找出234的數值長度
如此類推..
到第5個合拚吧

var
aa,bb,cc,dd,ee,final:String;
a,b,c,d,e:Integer;
begin
ListBox1.Items.Clear;
for a:=1 to edit1.GetTextLen do begin
aa:=copy(edit1.text,a,1);
for b:=1 to edit2.GetTextLen do begin
bb:=copy(edit2.text,b,1);
for c:=1 to edit3.GetTextLen do begin
cc:=copy(edit3.text,c,1);
for d:=1 to edit4.GetTextLen do begin
dd:=copy(edit4.text,d,1);
for e:=1 to edit5.GetTextLen do begin
ee:=copy(edit5.text,e,1);
final:=aa+bb+cc+dd+ee;
ListBox1.Items.Add(final);
final:='';
end;
end;
end;
end;
end;
這是小弟自己寫出來
測試過一會都可以了

接受答案了.