Двойное вхождение буквы в строку.

[Roman1295]

Решил сделать небольшую игру. Мне надо проверять каждый раз введенную букву, содержится ли она в слове. Всё работает, но вот если в слове 2 и более таких же букв, как их найти?

]procedure TForm2.Button2Click(Sender: TObject);
begin
if pos(edit1.Text, s) <> 0 then
begin    //Если введенная буква есть в загаданном слове
pozition:=pos(edit1.Text, s); //Позиция буквы в слове
zagad:=Label2.Caption;  //загаданное слово в переменную
delete(zagad, pozition, 1); //удаляем звездочку
Insert(Edit1.Text, zagad, pozition); //вставляем букву
Label2.Caption :=zagad; //Показываем слово с угаданной буквой
end

[Slym]

StrUtils.posEx

[Utkin]

Либо сканировать в цикле самому

[FaTaL]

Поле чудес что ли пишите?
Просто пробегитесь по слову циклом и всё.

[Roman1295]

Сообщение от FaTaL

Поле чудес что ли пишите?
Просто пробегитесь по слову циклом и всё.

Нет, игра "Виселица". Пробежаться мало, надо еще и заменить найденное.

[FaTaL]

Это не проблема, ведь String это массив букв Просто вставь нужную букву в нужное место.

[Slym]

procedure TForm1.Button1Click(Sender: TObject);
const TheWord='qwertyqazqsc';
var
  XWord:string;
  Ch:Char;
  i:integer;
begin
  XWord:=StringOfChar('*',Length(TheWord));
  Ch:='q';
  for i:=1 to Length(TheWord) do
    if TheWord[i]=Ch then
      XWord[i]:=Ch;
  Caption:=XWord;
end;