Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Как прибавить к числу 1 
V
    Опции темы
199602
Дата 11.4.2009, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.4.2009

Репутация: нет
Всего: нет
Здраствуите!помогите пожалуиста сделать так: допутим если в поле Edit1 прописано число '111111' то как сделать чтоб по нажатию кнопки оно стало 111112 затем через 1 сек. 111113 и т.д
Зарание спасибо  smile  smile 
PM MAIL   Вверх
Данкинг
Дата 11.4.2009, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Повесить на таймер процедуру:
Код

edit1.text:=inttostr(strtoint(edit1.text)+1);

 smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
199602
Дата 11.4.2009, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.4.2009

Репутация: нет
Всего: нет
всё спасибо большое работает!
PM MAIL   Вверх
Hellen
Дата 11.4.2009, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 168
Регистрация: 3.7.2006
Где: Москва

Репутация: 1
Всего: 3
Цитата

Повесить на таймер процедуру:
А на кнопку что повесить???
Данкинг Как всегда не договаривает......Некоторые новички докумекают сами, а некоторые.........
PM MAIL   Вверх
Данкинг
Дата 11.4.2009, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Hellen @ 11.4.2009,  17:19)
А на кнопку что повесить???
Данкинг Как всегда не договаривает......Некоторые новички докумекают сами, а некоторые.........

Тем, кто сам не докумекает, лучше не лезть из новичков в большое программирование... smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Hellen
Дата 11.4.2009, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 168
Регистрация: 3.7.2006
Где: Москва

Репутация: 1
Всего: 3
Данкинг, а что бы порибавляло к числу постоянно через определенный промежуток надо цикл делать или как???
почему у меня таймер прибавляет еденицу девять раз и всё??
PM MAIL   Вверх
Данкинг
Дата 11.4.2009, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Hellen @  11.4.2009,  21:52 Найти цитируемый пост)
Данкинг, а что бы порибавляло к числу постоянно через определенный промежуток надо цикл делать или как???

Код

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='1';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.text:=inttostr(strtoint(edit1.text)+1);
end;


Цитата(Hellen @  11.4.2009,  21:52 Найти цитируемый пост)
почему у меня таймер прибавляет еденицу девять раз и всё?? 

Ошибка в 17-й строке. smile


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
bems
Дата 12.4.2009, 02:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Hellen, жжошь


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1492 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.