Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.07.2017, 11:45
nnm4evr nnm4evr вне форума
Прохожий
 
Регистрация: 10.07.2017
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
Вопрос Не правильный пересчет integer'а

Или я туплю или Delphi тупит. И так. Delphi 7. Пишу прогу в которой значение integer'а должно прибавляться на 1, начиная от -1, причем по таймеру, и при достижении некоего значения таймер должен отключатся. Но почему-то прибавление значения происходит как то не так. При запуске программы значение равно -1, при запуске таймера должно прибавится + 1 и значение integer'а по идее и по математическим законам должно стать 0, потом 1, 2, 3 и т.д. до достижения значения N, при котором цикл должен остановится, но почему то вместо 0 он выдает 1, а уже потом 0. Причем если проделывать операцию происходящую по таймеру просто кнопкой, то все нормально. Почему???
Вот код:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  idirs: integer;
  icount: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
idirs:=5; //Тут число задавалось немного другим кодом
icount:=-1;
ShowMessage('icount: ' + IntToStr(icount) + ' idirs: ' + IntToStr(idirs));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If icount = idirs - 1 then
Timer1.Enabled:=False
else begin
Inc(icount); // До этого использовалось icount:=icount + 1
ShowMessage('icount: ' + IntToStr(icount));
// некий код, который к данному вопросу не имеет отношения и лишь считывает значение icount
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Inc(icount); // До этого использовалось icount:=icount + 1
ShowMessage('icount: ' + IntToStr(icount));
end;

end.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:12.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter