Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как прибавить к числу 1

Автор: 199602 11.4.2009, 10:45

Здраствуите!помогите пожалуиста сделать так: допутим если в поле Edit1 прописано число '111111' то как сделать чтоб по нажатию кнопки оно стало 111112 затем через 1 сек. 111113 и т.д
Зарание спасибо smile

Автор: Данкинг 11.4.2009, 10:49

Повесить на таймер процедуру:

Код


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

Автор: 199602 11.4.2009, 10:52

всё спасибо большое работает!

Автор: Hellen 11.4.2009, 16:19

Цитата

Повесить на таймер процедуру:

А на кнопку что повесить???
Данкинг Как всегда не договаривает......Некоторые новички докумекают сами, а некоторые.........

Автор: Данкинг 11.4.2009, 17:24

Цитата(Hellen @ 11.4.2009, 17:19)

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

Автор: Hellen 11.4.2009, 20:52

Данкинг, а что бы порибавляло к числу постоянно через определенный промежуток надо цикл делать или как???
почему у меня таймер прибавляет еденицу девять раз и всё??

Автор: Данкинг 11.4.2009, 21:23

Цитата(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

Автор: bems 12.4.2009, 02:52

Hellen, жжошь