equal
deleted
inserted
replaced
127 tempstr: shortstring; |
127 tempstr: shortstring; |
128 begin |
128 begin |
129 tempstr:= fmt; |
129 tempstr:= fmt; |
130 for i:=0 to MAX_FORMAT_STRING_SYMBOLS - 1 do |
130 for i:=0 to MAX_FORMAT_STRING_SYMBOLS - 1 do |
131 begin |
131 begin |
132 p:= Pos('%'+IntToStr(i), tempstr); |
132 p:= Pos('%'+IntToStr(i+1), tempstr); |
133 if (p = 0) or (i >= Length(args)) then |
133 if (p = 0) or (i >= Length(args)) then |
134 break |
134 break |
135 else |
135 else |
136 begin |
136 begin |
137 delete(tempstr, p, 2); |
137 delete(tempstr, p, 2); |