[Antipirat]

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

[Ross]

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

[Ross]

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

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

Код:

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;

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

Код:

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

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

Код:

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

end;

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


Подходит???