很简的一个算法问题？希望得到高手支持。

[种瓜的]

有这样一个字符串12?12??? 就是由数字和?号组成的字符串，长8位，怎么根据这个字符串得到如下序列 12112111 12112112 就是把所有的？号改成以0-9填充的序列。头都大了。

[zswangII]

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
S: string;
T: string;
begin
Memo1.Lines.BeginUpdate;
try
for I := 0000 to 9999 do begin
S := Format('%.4d', [I]);
T := '12?12???';
T := StringReplace(T, '?', S[1], []);
T := StringReplace(T, '?', S[2], []);
T := StringReplace(T, '?', S[3], []);
T := StringReplace(T, '?', S[4], []);
Memo1.Lines.Add(T);
end;
finally
Memo1.Lines.EndUpdate;
end;
end;

[jinjazz]

要返回多少个字符串？

[种瓜的]

当然是8个了，也有可能全部是？号，如果是的话则返回序列就是从00000000-99999999
如果不是则返回相应的序列