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

[Mick]

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

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

Показывай, что у тебя получилось...

[Гость]

Показывай, что у тебя получилось...

Вот видешь, деаппзон при генирации как указать Латинских букв от ... до подскажи пожалуйста...

procedure TForm1.Button4Click(Sender: TObject);
Var
   Code:Integer; // код символа
Begin
Edit1.Text:=sim;
  Edit1.Clear;
  Edit1.SetFocus;
    Code:=ord(sim);
     n:=n+1;    
      
       if code>B then Label2.Caption:='Введите букву выше от 

введеной'+#13
       +'вами по алфавиту' else
         if code<B then Label2.Caption:='Введите букву ниже 

от введеной'+#13
         +'вами по алфавиту'
           else

Сообщение отредактировано: volvo - 13.01.2007 15:19