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

种瓜的 2004-05-08 11:50:14
有这样一个字符串12?12??? 就是由数字和?号组成的字符串,长8位,怎么根据这个字符串得到如下序列 12112111 12112112 就是把所有的?号改成以0-9填充的序列。头都大了。
...全文
17 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
种瓜的 2004-05-08
当然是8个了,也有可能全部是?号,如果是的话则返回序列就是从00000000-99999999
如果不是则返回相应的序列
  • 打赏
  • 举报
回复
jinjazz 2004-05-08
要返回多少个字符串?
  • 打赏
  • 举报
回复
zswangII 2004-05-08
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;
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4969

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-05-08 11:50
社区公告
暂无公告