Ошибка при работе с типом String

[Sibedir]

Delphi 7, Windows 7

Имеется следующий код:

// ЗАГРУЗКА ДАННЫХ ИЗ ФАЙЛА ====================================================
procedure TSCADDocument.LoadFromOpenFile(var TF: TextFile; ResStr: TStrings; var Err, Mes:  Integer);
type
  TSlovoType = (stInt, stReal, stStr, stInterv);
var
  rabR: Real;
  rabInt: TInterval;
  FileCh, DocCh, RazdCh, StrCh, DS: Char;
  Document, Razdel, Str, Slovo, StrSlovo: String;
  NomDocum, NomStr, NomDocCh, NomRazdCh, NomStrCh, NomFileStr: Integer;

  ...

  // Следующий раздел ----------------------------------------------------------
  procedure NextRazdel;
  var
    Flag: Boolean;
  begin
    Razdel := '';
    Flag := False;
    while not EOD do begin
      DocCh := Document [NomDocCh];
      NomDocCh := NomDocCh + 1;

      case DocCh of
        '/': begin
          if {Некоторое условие, завясящее от формата файла} then begin
            Razdel := Razdel + DocCh;
          end
          else begin
            Flag := True;
            Break;
          end;
        end;
        #13: begin
        end;
        else begin
          Razdel := Razdel + DocCh;                            
        end;
      end;
    end;
    if not Flag then Razdel := '';
    NomRazdCh := 1;
  end;

  ...

begin
...
  NextRazdel;
...
end;
// КОНЕЦ LoadFromFile ==========================================================

В строке подсвеченной красным цветом возникает ошибка

Project ArmSACD.exe raised exception class EAccessViolation with message 'Access violation at address 004001C52 in module 'ArmSCAD'. Write of address 00000000'. Process stopped. Use Step or Run to continue

Сообщение от перевод

Проект ArmSACD.exe повысил класс исключений EAccessViolation с сообщением 'Нарушение прав доступа в адресе 004001C52 в модуле 'ArmSCAD'. Запись адреса 00000000'. Процесс остановился. Используйте Шаг или Выполнение, чтобы продолжать

Это происходит при добавлении символа к строке. При этом Razdel <> nil.
Безымянный.jpg
В следующий момент ОШИБКА.
Примечательно, что до этого момента операция уже успешно проходила раз эдак 10000. Но дойдя именно до этого состояния (Razdel='1 1 Name="ГА_ПС_Бв" : 1500-1630 1638 1639 ' и DocCh = '1') программа вылетает.

Это у меня на работе, тут Windows 7. Дома на XP (и не только дома) все работает нормально. EXE-шник откомпилированный дома на работе тоже выдает ошибку:
Безымянный1.jpg

Не сложно догадаться, что я это гружу данные из файла. Так вот, с другим файлом, этого не происходит.

[Johnson]

Хм... быть может в семерке нельзя складывать стринг и чар? Попробуй DocCh сделать типом String[1]

[Stilet]

Sibedir

А можно твой проект пощупать? Что-то смутно верится что семерка так со строками работает...

[Sibedir]

Помогло вот это

          try
            Razdel := Razdel + DocCh;
          except
            sss := Razdel + DocCh;
            GetMem (Pointer (Razdel), 1);
            Razdel := sss;
          end;

Я в шоке

Добавлено ----------------------------------------
Правда вылетает Invalid pointer operation, но все работает.

[Stilet]

Помогло вот это

Плохое спасение... Может боком вылиться... Я бы дальше искал способы.
Всетки если не сложно прикрепи сюда архив с проектом, если конечно не используешь там чего-то сторонненго.

[Sibedir]

Вот проект со злощастным файлом:
111.zip
1. Вырианты схем -> Добавить
2. Схема -> [...]
3. Вибираем мой файл (в той же папке должны быть и *.arr)

С этими файлами все нормально. Они были сделаны еще на XP
222.zip

[Stilet]

Sibedir

Проверил на 2010-ке и на D6 - все прекрасно работает. Ничего не падает.
Специально поставил бряк на те строки - все идеально прошло.
То видать тебе кривучая 7-ка попалась.

[Sibedir]

DocCh: String[1]

не помогло

Еще нюанс: ArmSCAD.exe остается висеть в процессах даже после закрытия окна, если при его работе была ошибка "Invalid pointer operation".

То видать тебе кривучая 7-ка попалась.

А в чем ее кривизна? Все программы работают нормально. И главное: почему с другими файлами этого не происходит.
Кстати, вы имеете в виду Delphi 7 или W7?

[Stilet]

вы имеете в виду Delphi 7 или W7?

Delphi 7. Я лично еще не видел нормально семерки. Все мне попадались ужасные с глюками в неожиданное время и неожиданных местах.
Потому доси на D6 работаю, ну постепенно на D2010 планирую перебираться.

И главное: почему с другими файлами этого не происходит.

Не знаю... Мне всетки кажется что именно библы этой версии с червоточинкой.

[Sibedir]

И на том спасибо. Хотя почему так скупо. ОГРОМНОЕ СПАСИБО!!!
Я думал меня еще год никто на RAD Studio не пересадит. Вот, установил. Буду теперь на Delphi 2010 работать. Боялся что D7 начнет конючить. Не-е-е, все нормально.
А там смотри и сбудется мечта идиота образно выражаясь. Хочу знаете ли освоить Си.
Ну да ладно, освою-не освою, а прога под D2010 работает на ура.