Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2017-05-06 15:25:10 ЛС | профиль | цитата
nesco, ага.
sla8a,ты что копировал не в русской раскладке?
   for i := 0 to FList.Count-1 do
begin
Items[i] := ToReal(mt);
if Items[i] < 0 then
Items[i] := 0;//íèêàêèõ îòðèöàòåëüíûõ ÷èñåë
if mt.ldata <> nil then
mt := mt.ldata^;
sum := sum + items[i];
Может быть где-то ещё есть.
Будь другом, перезалей.

Пустышка смотрится нормально...
Даже красиво.

Редактировалось 2 раз(а), последний 2017-05-06 15:36:05
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#17: 2017-05-06 16:40:50 ЛС | профиль | цитата
Это окончательная версия?
Я жду окончательную версию.

Сначала показалось, что это мне написано

Редактировалось 4 раз(а), последний 2017-05-06 16:45:35
карма: 22

0
Ответов: 2193
Рейтинг: 673
#18: 2017-05-06 17:01:02 ЛС | профиль | цитата
Вот это можно тестировать: скачать архив
Внесенные изменения:
  1. Добавил свойство: TextNoData=Текст выводимый в центре диаграммы при отсутствии данных.
  2. Изменил перебор вводимых данных (строки 89-101).
  3. Проверка на отрицательные числа (строка 96).
  4. Проверка на пустые данные (строка 124).
  5. Вывод пустого графика с текстом (см. пункт 1) об отсутствии данных (стоки 125-131).
  6. Добавлены TRY,FINALLY,END (стоки 82,190,193)

Tad, ваш выход.

Редактировалось 4 раз(а), последний 2017-05-06 17:04:31
карма: 10

3
Голосовали:Tad, Nickname, Galkov
Ответов: 16884
Рейтинг: 1239
#19: 2017-05-06 17:39:13 ЛС | профиль | цитата
Полет нормальный. Совсем другой табак.
nesco, твой выход.
sla8a писал(а):
как с вами бывает тяжело.
Вот и полегчало.

Редактировалось 3 раз(а), последний 2017-05-06 18:05:58
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#20: 2017-05-06 18:57:54 ЛС | профиль | цитата
Пофиксил
карма: 22

1
Голосовали:Tad
20
Сообщение
...
Прикрепленные файлы
(файлы не залиты)