[Skeefrus]

Я был наслышан в свое время о том, что разработчики языков программирования и различных оболочек частенько оставляют "сюрпризы" простым юзерам. Но ТАКОГО прикола я не ожидал... А Вы знали, что если в программе использовать Series для TChart и задать первую точку в ней через Series.AddXY со значением, большим чем 1818, то компилятор начнет дико ругаться и указывать на совершенно неведомую ошибку (причем в последней строчке END.) Это я понял через несколько мучительных часов проб и ошибок, когда просто других вариантов у меня не оставалось, кроме как сам Delphi меня опрокидывает. И действительно, оказалось, что просто нельзя задавать первое значение больше, чем 1818 . Английская версия википедии подсказала, что в этом году был подписан т.н. "Договор св. Мари" в городке Делфи(тогда он еще по другому назывался), штат индиана, США.
М.б. есть еще какие-нибудь "приколы", как считаете?

[M.A.D.M.A.N.]

Это больше на баг смахивает, нежели на прикол.

[Skeefrus]

Вполне возможно, хотя я не понимаю того кода, который вы выложили .

[Asinkrit]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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, обратите внимание, так же, что среда только три строки кода видит, вместо всех, по крайней мере у меня.

[Asinkrit]

А еще вот так, попробуйте скомпилировать:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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;

[Konrad]

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

Что-то в твоем коде не так.

[Skeefrus]

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

Код:

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin  Series3.AddXY(15,2000,''); end;

[Konrad]

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

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

Код:

Перед добавлением точки - выставил максимум ну скажем 2500 - и все ОК.

[Skeefrus]

Спасибо, таким способом проблема легко решается

[FuckYeah]

Многобукафнеасилил

[Freedom]

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

Многобукафнеасилил

А ты читай постепенно, в день по 3 слова