[Antipirat]

Помогите люди найти исходный код программы "тест на память"....
поясняю.....
программа выдаёт числа на некоторое время, потом числа исчезают и пользователь должен ввыести их.

[Ross]

Ха, этоже довольно таки легко реализовать. Таймер и генератор чисел и всё тут... Ну а дальше скрывается сгенерированное число, пользователь вводит своё число, производится проверка и выдаётся результат = усё

[Ross]

На форму кидаешь один таймер, один статиктекс (для понта - в него будет выводить число), две кнопки, и один Едит:

Код для первой кнопки (генерация числа):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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);   // Вывожу в StaticText   Timer1.Enabled := True;   // Запускаю таймер   end;

Код для таймера:

Код:

1 2 3 4

procedure TForm1.Timer1Timer(Sender: TObject); begin StaticText1.Caption := '';    // Очищаю StaticText end;

Код для второй кнопки (проверки введённого числа):

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Button2Click(Sender: TObject); begin if (Edit1.Text) <> X then   begin     Edit1.Text := ' Не правильно';   end else Edit1.Text := ' Правильно';   end;

Таймеру выставляешь в енаблед ставишь False, а интервал 10000 - тогда он будет прятать чило через 10 секунд.


Подходит???