Delphi 2009 + case = глюк

[lexaltd]

У меня Windows 7 и Delphi 2009
Создаю простой класс, но только я вставляю в функцию case, и делаю ошибку ниже этой функции или в ней , но в case или ниже него , то подчёркивается выше там где сделана ошибка, если начать компилировать - то тоже выделит строку выше ошибки.
И если навести курсор на переменую - то должно выскакивать окошко где облявлена переменая и что за переменая, то это окошко начинает моргать, и если так и оставить курсор то делфи вылетит с ошибкой

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

unit Unit4;

interface

uses Variants;

type
TCells=class
  private
    FC:PVariant;
    FCellObj:Variant;
    Col, Row: Longint;
    function GetValue :Variant;
    procedure SetValue(const Value: Variant);
  public
    property Value:Variant read GetValue write SetValue;
  end;

implementation

{ TCells }


function TCells.GetValue: Variant;
var
 iType : Integer;
begin
  iType := FCellObj.getType;
  case iType of
   1 : Result := FCellObj.GetValue;
   2 : Result := FCellObj.GetString;
   3 : Result2 := FCellObj.GetValue;
  end;

 FCellObj:=Unassigned;
end;

procedure TCells.SetValue(const Value: Variant);
begin

end;

end.

Ошибка тут

3 : Result2 := FCellObj.GetValue;

а подчёркивает тут

1 : Result := FCellObj.GetValue;

[Аватар]

Нет ничего совершенного, в т.ч. не совершенна и среда разработки, любая. В низу же показывает, что Result2 не определено, мало?

[lexaltd]

Сообщение от Аватар

Нет ничего совершенного, в т.ч. не совершенна и среда разработки, любая. В низу же показывает, что Result2 не определено, мало?

Конечно мало - у меня после этой функции ещё штук 20 других и тогда смещение происходит не 2 строки, а на 20-30 строк , тоесть курсор при компиляции становится вобще не понятно где, закладки тоже сбиваются

И у меня таких функций с case - несколько

И если сделал ошибку ,и начал компилировать то всё иди ищи где напортачил.

Может у кого то стоит Delphi 2009 - попробуйти код выше приведёный - будет такая лажа или нет?

[Serge_Bliznykov]

мужики рассказывали, что такие глюки в среде Delphi бывают, когда в тексте программы переводы строк некорректные:

3-11-00 18:01
Не всё так радужно, у меня как-то синие маркеры на три строчки
вниз относительно текста уехали Трассировка забавнейшая была -
нажимаешь F8, а сам ищешь взглядом строку, которая выполняется
в данный момент на самом деле....
Dmitriy O Popkov


28-11-00 15:44
Отчет о вскрытии "неправильного" кода.
Ха, вскрытие показало, что в исходниках в нескольких местах вместо
стандартного CR LF (#13#10) наличиствовало только LF #10. Компилятор
строки разделенные LF считает одной строкой, а редактор этот LF все-таки
отображает. В результате компайлер дает один номер строки, а в редакторе
это выглядит по другому. Это ни в коем сл-е не баг компайлера,
а скорее редактора. И даже не дельфовского, а того в кот-м это первоначально
писалось .
Вылечено было заменой LF на CR LF.
Вывод -- не спешите с выводами . Анализируйте проблему.
Не может глючить компайлер, если прога работает.
Serge S. Fakas


29-11-00 07:15
Исправляеться просто. СКопируйте текст модуля в Ворд, сохраните документ, откройте его заново,
и скопируйте текст обратно в окно пректа.

p.s. если не поможет, возьмите Unit4.pas и Unit4.dfm - запакуйте в архив, архив сюда, на форум. Посмотрим..

[lexaltd]

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

мужики рассказывали, что такие глюки в среде Delphi бывают, когда в тексте программы переводы строк некорректные:

Исправляеться просто. СКопируйте текст модуля в Ворд, сохраните документ, откройте его заново,
и скопируйте текст обратно в окно пректа.


p.s. если не поможет, возьмите Unit4.pas и Unit4.dfm - запакуйте в архив, архив сюда, на форум. Посмотрим..

Огромное Спасибо помогло!
И самое и интересное скопировал текст с выше приведённого и тоже заработало.
А я уже и Делфи переустанавливал, хорошо что операционку не успел переустановить.

[Serge_Bliznykov]

Да не за что!
Рад, что совет оказался полезным!