проблемы с chart, при внесении изменения данных график не хочет рисоваться

[alun]

А ты не пробовала по шагам компилировать и в watch посмотреть изменение твоих параметров. Может новые значения просто не передаются на другую форму...

[Барби]

таймер так и надо чтоб колошпатил, препод от этого тащится, при повторном запуске все ок если не менять параметры, в BitBtn2Click копаюсь, думаю,пробую, пока не вышло, я уже туда всю процедуру рисования заново впихнула, ноль реакции

[Барби]

я сейчас с ума сойду, и так и сяк делаю и все равно не пойму в чем проблема, но самое ужасно в том, что у знакомых кому отправила посмотреть этот график строится. я имею в виду когда сначла меняю параметры,а потом только запускаю. ну как так почему у них строится а у меня не строится. у кого безлимитный интернет скачайте плиз мое вложение, при открытии файла не нажимая кнопку запустить поменяйте параметры,а потом нажать запустить. ну ведь не будет же строится. если у кого строится будет я точно застрелюсь.

[mihali4]

Строится, хоть как и хоть когда меняй параметры...
Внес небольшие изменения:
1. Исходно (в редакторе объектов) Timer1.Enabled -> False;
2. Добавил:

...
if (curTime=stopTime) then begin
    Timer1.Enabled:=False;
...

3. Изменил:

if (inWork) then begin
    //if (curTime>=stopTime) then // прошлая модель закончена, начинаем новую
    if btnRun.Caption = 'Запустить!' then

4. Добавил:

procedure TfrmMain.BitBtn2Click(Sender: TObject);
begin
...
    ProgressBar1.Max := StopTime-StartTime;
    ProgressBar1.Position:=0;

5. Добавил:

procedure TfrmMain.BeginModelling;
begin
...
  Timer1.Enabled:=True;
end;

Осталось загадкой - почему, какое бы другое время начала работы не выбирай, отсчет все равно начинает идти с 06:00 ? Это - ваше ноу-хау?

[Барби]

Осталось загадкой - почему, какое бы другое время начала работы не выбирай, отсчет все равно начинает идти с 06:00 ? Это - ваше ноу-хау?[/QUOTE]

нет, это мой косяк.

внесла все коррективы, и все равно график не строится при изменении параметров. вот если запустить и менять параметры строится продолжает. а если в самом нажале НЕ нажимая "запустить" поменять параметры, а потом "запустить", то уже ничего не строиться. во вложении с внесенными коррективами в доказательство моих слов. возможно я что то не так поняла, но все изменения и дополнения учла и внесла.

[Stilet]

Бариби у тебя баг в таймере в коде:

if (curTime=startTime) then begin
      inModel := TRUE;
      ToLog('Моделирование (учет статистики) начато.');
    end;

При изменении параметров у тебя curTime увеличивается а StartTime =0 постоянно. А стало быть InModel всегда = FALSE

Нужно менять в procedure TfrmMain.BitBtn2Click(Sender: TObject);
Формулу:
StartTime := frmOptions.tbHour1.Position*60 +
frmOptions.tbMinute1.Position - 360;
На что-то другое

Или просто сделай так:

 if (inWork) then begin
    // прошла 1 модельная минута


    // показываем текущее время
    lblClock.Caption := FormatCurTime;
    // входим в режим статистического учета
    if (curTime=startTime) then begin
      inModel := TRUE;
      ToLog('Моделирование (учет статистики) начато.');
    end;       
curTime := curTime+1;// Это увеличивай после всех операторов
......................................................

И Диаграмма тут ни при чем.

[Барби]

о счастье нереальное! и даже не обидно что ник исказили.спасибище огромное все заработало.
подскажите что я напутала в процедуре

procedure TfrmMain.showSupermanStatistic;
begin
  // отказы выборки
  lblFailures.Caption := IntToStr(Superman.failures);
  // расфасовано
  lblSupermanCount.Caption := IntToStr(Superman.count);

  // время обработки
  lblIMaxtime.Caption := IntToStr(Superman.maxtime);
  if (Superman.mintime=MAXINT) then
    lblIMintime.Caption := ''
  else
    lblIMintime.Caption := IntToStr(Superman.mintime);
  if (Superman.timenum=0) then
    lblIMidTime.Caption := '0'
  else
    lblIMidtime.Caption := FloatToStrF(Superman.sumtime/Superman.timenum,
      ffGeneral, 3, 10);

  // время простоя
  lblIMaxwait.Caption := IntToStr(Superman.maxwait);
  if (Superman.minwait=MAXINT) then
    lblIMinwait.Caption := ''
  else
    lblIMinwait.Caption := IntToStr(Superman.minwait);
  if (Superman.waitnum=0) then
    lblIMidwait.Caption := '0'
  else
    lblIMidwait.Caption := FloatToStrF(Superman.sumwait/Superman.waitnum,
      ffGeneral, 3, 10);
  lblIWaitnum.Caption := IntToStr(Superman.waitnum);

  // время отдыха
  lblIMaxrest.Caption := IntToStr(Superman.maxrest);
  if (Superman.minrest=MAXINT) then
    lblIMinrest.Caption := ''
  else
    lblIMinrest.Caption := IntToStr(Superman.minrest);
  if (Superman.restnum=0) then
    lblIMidrest.Caption := '0'
  else
    lblIMidrest.Caption := FloatToStrF(Superman.sumrest/Superman.restnum,
      ffGeneral, 3, 10);
end;

это цифры, которые выводятся по подсчетам на главной форме после запуска, почему то количество отказов выборки считается, а разгруженно не считается.

[Stilet]

и даже не обидно что ник исказили

Млин. Так и знал что бессонные ночи подготовки к диплому (а точнее гуляния и прочего веселий даром не пройдут)
Мона тея попросить код оформлять соответствующим тегом.

Поясни где тут параметр "разгруженно"?
Ты его сюда не вставила.

[Барби]

Сообщение от Stilet

Млин. Так и знал что бессонные ночи подготовки к диплому (а точнее гуляния и прочего веселий даром не пройдут)
Мона тея попросить код оформлять соответствующим тегом.

Поясни где тут параметр "разгруженно"?
Ты его сюда не вставила.

ты про бессонные ночи про себя или про меня говорил? ссори не разгружено а расфасовано, это вторая строчка после отказов выборки. точно также ниже прекрасно считается время отдыха и почему то несчитается время простоя.
а соответсвующий тег это какой? это когда надо через скопобки и слеш в скобочках волшебные слова прописывать?
посмотрела как ты поправил предыдущее сообщение, следущий раз код выделю как надо.

[Stilet]

ты про бессонные ночи про себя или про меня говорил?

Про себя Походу ты тоже на дипломке, если так то мы коллеги по проблемам

А у тебя Superman.count нигде не увеличивается. Постоянно нулю равен.
Подумай где нужно прописать его увеличение.

Кста в том проекте что ты приложила на форме именно "Разгружено" написано