|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.01.2009, 01:43 | #1 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 31
|
числа от 500 до 999
нужен код который будет набирать число от 500 до 999 ....тоестьк ак жмём кнопку выводит 500 жмём еще 501...и так до 999...
|
10.01.2009, 01:52 | #2 |
Бредовый
Форумчанин
Регистрация: 15.11.2008
Сообщений: 285
|
Код:
Чем точнее и проще задан вопрос, тем проще на него получить точный ответ.
|
10.01.2009, 04:52 | #3 |
Пользователь
Регистрация: 09.01.2009
Сообщений: 24
|
Можно так еще:
у кнопки есть свойство Tag - установить его в 500, а для кнопки прописать код: Код:
|
10.01.2009, 12:13 | #4 |
Пользователь
Регистрация: 13.12.2008
Сообщений: 33
|
у меня вопрос:
=================================== ====================== чем отличается этот код: =================================== ====================== procedure TForm3.Button1Click(Sender: TObject); begin with (Sender as TButton) do begin if Tag < 999 then Tag := Tag + 1; Caption := IntToStr(Tag); end; end; =================================== ====================== от этого: =================================== ====================== procedure TForm3.Button1Click(Sender: TObject); begin with Button1 do begin if Tag < 999 then Tag := Tag + 1; Caption := IntToStr(Tag); end; end; |
10.01.2009, 12:52 | #5 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Теоретически, код with (Sender as TButton) do является более универсальным, чем with Button1 do, потому что позволяет использовать в одном обработчике несколько кнопок, а не одну конкретную.
P.S. Единственное, что можно добавить, если заранее известно, что Sender это TButton, то можно писать попроще: with TButton(Sender) do Последний раз редактировалось Jeni; 10.01.2009 в 12:54. |
10.01.2009, 13:23 | #6 |
Регистрация: 10.01.2009
Сообщений: 6
|
ну, вообщем-то ничем код не отличается. развечто, если несколько кнопок, как говорил Jeni
|
10.01.2009, 13:44 | #7 |
Форумчанин
Регистрация: 28.09.2008
Сообщений: 344
|
Лучше перед
Код:
Код:
В противном случе Код:
|
10.01.2009, 19:36 | #8 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 31
|
Спасибо!..Сделал...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Client-Server на 500+ пользователей. | Mixasik | Работа с сетью в Delphi | 8 | 22.08.2008 12:01 |
Даны числа от 100 до 999. Вводится индекс... | Ci_novice | Помощь студентам | 4 | 19.04.2008 12:59 |
ImageList1.Draw(Canvas,500,500,n); | KAMASUTR | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 6 | 12.08.2007 01:44 |