программа

[258167]

привет всем.. у меня задана задача сделать программу "тест на память". А сделать нужна ее в программе lazarus.
Вот условия задачи.
Игрок выбирает уровень сложности(однозначные или двузначные числа).Прогамма случайным образом генерирует 5 чисел и <показывает> их игроку на определеное время (время зависит от сложности). Затем числа исчезают, и пользователь должен их ввести в том же порядке. В зависимости от количества правильно введеных чисел присваиваются баллы. В программе должно быть окно для регистрации игрока, и баллы игрока записываются в файл. Также должно быть главное меню с окнами Игра(Начать игру,Результаты,Выход),Помощь, О программе. Данные файла можно посмотреть в другой форме при нажатии кнопки <Результаты> главного меню.
я папробовал с прастого начать но он почемуто даже не работает вот набросок

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
X : Integer;
min : Integer;
max : Integer;
begin

min := 100000000;
max := 999999999;

Randomize;

X := RandomRange(min, max + 1);


StaticText1.Caption := IntToStr(X);

Timer1.Enabled := True;

end;

Код для таймера:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
StaticText1.Caption := '';
end;

Код для второй кнопки (проверки введённого числа):
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
if (Edit1.Text) <> X then
begin
Edit1.Text := ' Не правильно';
end
else Edit1.Text := ' Правильно';

end;

[Serge_Bliznykov]

код не оформлен тегом.

Тема не отражает суть вопроса/проблемы.

Закрыто.