[Skeefrus]

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

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

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

[Skeefrus]

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

[Asinkrit]

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

Код:

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]

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

Код:

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 с багом...

Код:

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

[Konrad]

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

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

Код:

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

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

[Skeefrus]

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

[FuckYeah]

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

[Freedom]

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

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

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