如何生成这样的字符串(40分)

  • 主题发起人 主题发起人 绯红之王
  • 开始时间 开始时间

绯红之王

Unregistered / Unconfirmed
GUEST, unregistred user!
s:string
for n :=1 to 3 do
s = '0'+s

s = s+'1'
为什么最后结果s为1而不是0001
怎么生成000·
 
不可能像你说的这样.
给你贴一个别人写的函数,觉得很不错.
function setlen(TmpStr:string;TmpChr:char;TmpLen:integer;const TmpFlag:integer):string;
begin
case Tmpflag of
0: Result := StringOfChar(TmpChr,TmpLen-Length(TmpStr)) + TmpStr;
1: Result := TmpStr + StringOfChar(TmpChr,TmpLen-Length(TmpStr));
end;
end;
s:=setlen('1','0',4,0);
 
s:string
s:='0'

for n :=1 to 2 do
s = '0'+s

s = s+'1'
 
不可能,结果就是 '0001'。不过你随手贴出来的代码有些错的地方:
s:string ;
n: integer;
...
s:='';
for n :=1 to 3 do
s := '0'+s;
s := s+'1';
 
s = '0'+s <<-- 是 = 还是 := ,如果是 = 就没赋值,结果s不会改变。

s = s+'1' <<-- 这里也是,楼主先仔细检查下代码。
 
多人接受答案了。
 
后退
顶部