н однаковий символ записуємо в соотв. йому позиції;// Тобто якщо в слові 3 букви О, то всі 3 і запишуться в StringList2 на їх позиції з відповіді;;// Закінчили перевірку зустрічі символу
{tempS - це тимчасова рядок, яка складається із символів всередині StringGrid2
Розглядаємо StringGrid2 як рядок і заповнюємо tempS, виходячи з наявності в StringGrid2 символів}
for i: = 0 to StringGrid2.ColCount do Begin: = tempS + StringGrid2.Cells [i, 0];
{Очищаємо пробіли з TempS} j: = length (tempS) downto 1 do Beginpos ('', tempS)> 0 then delete (tempS, pos ('', tempS), 1);
end;;// Закінчили роботу з TempS
{Перевіряємо відповідність TempS і ZagadalTemp. В обох рядках видалені прогалини
і залишається перевіряти тільки на символи. Якщо вони співпали, значить користувач вгадав слово
і виводиться повідомлення - Ти переміг}
if tempS = ZagadalTemp then Begin ('Перемога');
end;. Cells [ACol, ARow]: ='';// Очищаємо натиснуту клітинку від Букви, щоб не натискали тисячі разів вже натиснуту
end; TForm1.Button1Click (Sender: TObject); i, j: Integer;: TStringGrid;
begin;// Наша процедура, що заповнює таблицю Літерами
i: = 1;; odd (i) do i: = Random (S.Count-1);// Це рядок перевіряє i на нечетнссть.
{Так як питання непар - Питання, Чет - відповідь, логічно Вибирати питання з непарної
рядки, а відповіді з парною. Поки i не прийме непарне значення йде вибірка i
випадковим чином}. Caption: = S.Strings [i];// Питання обраний, відображаємо його в Label1: = (S.Strings [i +1]);// Запам'ятовуємо відповідь для в питання в глобальну змінну: = Zagadal;// Це той же відповідь, тільки в ньому ми виключимо пробели.ColCount: = length (S.Strings [i +1]);// Відображаємо в StringGrid2 стільки осередків скільки символів в ответе.Width : = length (S.Strings [i +1]) * StringGrid2.DefaultColWidth +15;// Міняємо ширину в залежності від довжини відповіді
for i: = 0 to StringGrid2.ColCount do StringGrid2.Cells [i, 0]: ='';// При натисканні на кнопку очищаємо StringGrid2 від минулого ответаj: = length (ZagadalTemp) downto 1 do// Видаляємо пробіли з ZagadalTemppos ('', ZagadalTemp)> 0 then Delete (ZagadalTemp, pos ('', ZagadalTemp), 1);
end;
{Створена нами процедура заповнює StringGrid1, літерами}
procedure TForm1.zapolnenie; i, j, k: Integer;
begin: = 192;// 192 - це Числовий код Букви А. Заповнюємо нашу таблицю літерами А.. Я
for j: = 0 to 3 do Begin// 4 строкіi: = 0 to 7 do StringGrid1.Cel...
