Игра, Буквы Опции

[Mick]

Братцы помогите написать прогу Угадай букву есле кто может помогите

[мисс_граффити]

ну, если тебя глобальные переменные не смущают:

procedure TForm1.Button1Click(Sender: TObject); //кнопка "Новая игра"
begin
Randomize;
sim:=char(random(26)+ord('a'));
n:=0;
Button2.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject); //Кнопка "Проверить"
var popytka: char;
begin
try
  popytka:=Edit1.Text[1];
except //Если ничего не ввели
  ShowMessage('а где обещанный символ?! попробуйте еще раз');
  Edit1.Clear;
  Edit1.SetFocus;
  Exit;
end;
if not (popytka in ['a'..'z','A'..'Z']) then //Если ввели не латинскую букву
  begin
  ShowMessage('Введите латинскую букву!!!');
  Edit1.Clear;
  Edit1.SetFocus;
  Exit;
  end;
inc(n);//Подсчет попыток
if upcase(popytka)<upcase(sim) then //Программка не чувствительная к регистру, А и а - одно и то же
  Label1.Caption:='Введите букву выше от введеной вами по алфавиту'
else
  if upcase(popytka)>upcase(sim) then
     Label1.Caption:='Введите букву ниже от введеной вами по алфавиту'
  else
    begin
      Button2.Enabled:=false;
      case n of
        1..3:Label1.Caption:='Отлично с '+IntToStr(n)+' попытки Угадали Привосходно';
        4..6:Label1.Caption:='Пойдет с '+IntToStr(n)+' попытки Угадали молодцы';
      else
        Label1.Caption:='Очень плохо с '+IntToStr(n)+' попытки Угадали';
      end;
    end;
end;

Сообщение отредактировано: мисс_граффити - 11.01.2007 22:59