各位大大:
我有一字串共16個 0 --------> tmpString="0000000000000000";
例如:
int input =1; 字串變成 ---------> tmpString="1000000000000000";
字串第一個字變成1 其餘為0
int input=2;字串變成------------> tmpString="0100000000000000";
字串第二個字變成1 其餘為0
int input=3;字串變成------------> tmpString="0010000000000000";
字串第三個字變成1 其餘為0
以下以此類推~~
請教各位大大 我該如何完成這個小程式呢?

function StringMaker(P: Integer) : String;
var
s: String;
i,j: Integer;
begin
s:='';
for i:=1 to p-1 do
s:= s '0';
s:= s '1';
for i:=1 to 16-p do
s:= s '0';
StringMaker := s;
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

BCB 的話，您可以用這個方式試試
AnsiString tmpString="0000000000000";
int Input=1;
tmpString[Input] = '1';
or
tmpString.c_str()[Input-1] = '1';

------
無限的想像，無盡的延伸。

function StringMaker(P: Integer) : String;
var
s : String;
begin
s:='0000000000000000';
s[p]:='1';
result := s;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
tmpString : String;
begin
Memo1.Clear;
tmpString:=StringMaker(1);
Memo1.Lines.Add(tmpString);
tmpString:=StringMaker(2);
Memo1.Lines.Add(tmpString);
tmpString:=StringMaker(3);
Memo1.Lines.Add(tmpString);
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！