[boxep]

Нужно, программка, которая меняет в адресе (http://i12.one.lv/getImage?photoId=1...973&photoType=1&gender=0) я выделил 1, её нужно будет каждый раз менять на ноль... Как я понимаю нужно перебрать каждый символ в строке и потом нужную единицу заменить на ноль, только не могу додуматься .... как заменить именно ту которую я выделил?

[Yurk@]

выделенный текст:

Код:

Edit1.SelText

потом перебираешь всю строку и меняешь на требуемое

[boxep]

Сообщение от Yurk@

выделенный текст:

Код:

Edit1.SelText

потом перебираешь всю строку и меняешь на требуемое

ну да в том то и дело что "1" там не одна, а нужно поменять ту которую я выделил (Type=1) на (Type=0).... или я что-то не догоняю?

[lmikle]

Код:

var
  S : String;
begin
  S := Edit1.Text;
  S := StringReplace(S,'Type=1','Type=0',[rfReplaceAll]);
  Edit1.Text := S;
end;

Можно без доп. преобразований. Это просто для наглядности.

[Yurk@]

тогда так:

Код:

StuffString(Edit1.Text,Edit1.SelStart,Edit1.SelLength,'Type=0');

[boxep]

Сообщение от Yurk@

тогда так:

Код:

StuffString(Edit1.Text,Edit1.SelStart,Edit1.SelLength,'Type=0');

Огромное спасибо!!!