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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.03.2011, 05:38
Skeefrus Skeefrus вне форума
Прохожий
 
Регистрация: 01.03.2011
Сообщения: 4
Репутация: 10
Злость Программисты-приколисты. Про разработчиков Delphi

Я был наслышан в свое время о том, что разработчики языков программирования и различных оболочек частенько оставляют "сюрпризы" простым юзерам. Но ТАКОГО прикола я не ожидал... А Вы знали, что если в программе использовать Series для TChart и задать первую точку в ней через Series.AddXY со значением, большим чем 1818, то компилятор начнет дико ругаться и указывать на совершенно неведомую ошибку (причем в последней строчке END.) Это я понял через несколько мучительных часов проб и ошибок, когда просто других вариантов у меня не оставалось, кроме как сам Delphi меня опрокидывает. И действительно, оказалось, что просто нельзя задавать первое значение больше, чем 1818 . Английская версия википедии подсказала, что в этом году был подписан т.н. "Договор св. Мари" в городке Делфи(тогда он еще по другому назывался), штат индиана, США.
М.б. есть еще какие-нибудь "приколы", как считаете?
Ответить с цитированием
  #2  
Старый 01.03.2011, 19:19
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Это больше на баг смахивает, нежели на прикол.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 01.03.2011, 21:17
Skeefrus Skeefrus вне форума
Прохожий
 
Регистрация: 01.03.2011
Сообщения: 4
Репутация: 10
По умолчанию

Вполне возможно, хотя я не понимаю того кода, который вы выложили .
Ответить с цитированием
  #4  
Старый 01.03.2011, 21:24
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Я вот другой прикол знаю, однажды он мне очень много крови попил, код вроде прозрачный, а среда на нем бредит.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  c:variant;
begin
  case TVarType(c) of
  varEmpty: ;
  varNull: ;
  varSmallint: ;
  varInteger: ;
  varSingle: ;
  varDouble: ;
  varCurrency: ;
  varDate: ;
  varOleStr: ;
  varDispatch: ;
  varError: ;
  varBoolean: ;
  varVariant: ;
  varUnknown: ;
  varShortInt: ;
  varByte: ;
  varWord: ;
  varLongWord: ;
  varInt64: ;
  varStrArg: ;
  varString: ;
  varAny: ;
  varTypeMask: ;
  varArray: ;
  varByRef: ;
  end;
 Inc(c);
end;
Компилируется, но попробуйте точку останова поставить на последнем операторе, а еще если пару сотен строк кода далее будет следовать, то попробуйте погулять по коду через Ctrl+Shift+вверх, Ctrl+Shift+вниз, а так же по Ctrl+MouseClick, обратите внимание, так же, что среда только три строки кода видит, вместо всех, по крайней мере у меня.
Ответить с цитированием
  #5  
Старый 01.03.2011, 21:26
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

А еще вот так, попробуйте скомпилировать:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  c:byte;
begin
  case TVarType(c) of
  varEmpty: ;
  varNull: ;
  varSmallint: ;
  varInteger: ;
  varSingle: ;
  varDouble: ;
  varCurrency: ;
  varDate: ;
  varOleStr: ;
  varDispatch: ;
  varError: ;
  varBoolean: ;
  varVariant: ;
  varUnknown: ;
  varShortInt: ;
  varByte: c:=0 div 0;
  varWord: ;
  varLongWord: ;
  varInt64: ;
  varStrArg: ;
  varString: ;
  varAny: ;
  varTypeMask: ;
  varArray: ;
  varByRef: ;
  end;
 Inc(c);
end;
Ответить с цитированием
  #6  
Старый 01.03.2011, 22:10
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Только что проверил, без никаких приколов постороил график f(x)=1855, x=[0..35];

Что-то в твоем коде не так.
Ответить с цитированием
  #7  
Старый 01.03.2011, 23:33
Skeefrus Skeefrus вне форума
Прохожий
 
Регистрация: 01.03.2011
Сообщения: 4
Репутация: 10
По умолчанию

А что в таком коде может быть не так? Я меняя значение второй входной переменной, постепенно вышел на 1818. Может просто у меня версия Delphi 7 с багом...

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Series3.AddXY(15,2000,'');
end;
Ответить с цитированием
  #8  
Старый 01.03.2011, 23:46
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от Skeefrus
А что в таком коде может быть не так? Я меняя значение второй входной переменной, постепенно вышел на 1818. Может просто у меня версия Delphi 7 с багом...

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Series3.AddXY(15,2000,'');
end;
Перед добавлением точки - выставил максимум ну скажем 2500 - и все ОК.
Ответить с цитированием
  #9  
Старый 01.03.2011, 23:59
Skeefrus Skeefrus вне форума
Прохожий
 
Регистрация: 01.03.2011
Сообщения: 4
Репутация: 10
По умолчанию

Спасибо, таким способом проблема легко решается
Ответить с цитированием
  #10  
Старый 17.03.2011, 12:37
FuckYeah FuckYeah вне форума
Прохожий
 
Регистрация: 17.03.2011
Сообщения: 3
Репутация: 10
По умолчанию

Многобукафнеасилил
Ответить с цитированием
  #11  
Старый 31.05.2011, 14:45
Freedom Freedom вне форума
Прохожий
 
Регистрация: 30.05.2011
Сообщения: 7
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от FuckYeah
Многобукафнеасилил
А ты читай постепенно, в день по 3 слова
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter