VPF::Ошибка при попытке сортировать содержимое ComboBox

srd

Дата 25.12.2003, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Нереварин

Профиль
Группа: Участник Клуба
Сообщений: 951
Регистрация: 30.8.2003
Где: Владивосток

Репутация: нет
Всего: 49

Программа прекрасно работает на одном компьютере, но при запуске ее на другой машине выдала "Access Violation по такому-то адресу в ntdll.dll". Это произошло при попытке отсортировать содержимое ComboBox'а. Что это за глюк?

Cashey

Дата 25.12.2003, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

А на какой версии Дельфей откомпилировано? Если на второй машине XP стоит, то лучше на 7-ой версии перекомпилить - там адаптировка к XP есть, может поможет. А лучше фрагмент кода приведи, может компоненты какие глючные используешь?

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Guest

Дата 25.12.2003, 18:37 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Компилировалось все седьмой версией. Программа работает на WinXP SP1 ENG, но глюкнулась на WinXP RUS и Win2k Server RUS.

Компонент самый обычный - TComboBox. В следующем куске кода этот компонент имеет имя NmList.

Код


procedure TContractorsForm.FormCreate(Sender: TObject);
var
  bm : TBookmark;
  s  : String;
begin
  Codes := TStringList.Create;
  Codes.Capacity := Dm.Contractors.RecordCount;

  NmList.Items.Capacity := Dm.Contractors.RecordCount;

  Dm.Contractors.DisableControls;
  bm := Dm.Contractors.GetBookmark;

  try

    Dm.Contractors.First;
    while not Dm.Contractors.Eof do
    begin
      s := Trim(Dm.CsNm.Value);

      NmList.AddItem(s, nil);
      Codes.Values[s] := Trim(Dm.CsCd.Value);

      dm.Contractors.Next;
    end;
    dm.Contractors.GotoBookmark(bm);

  finally
    Dm.Contractors.FreeBookmark(bm);
    Dm.Contractors.EnableControls;
  end;

  // глюк именно на этой строчке
  NmList.Sorted := True;
end;

Cashey

Дата 26.12.2003, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

Вероятно глюки RUS'ов, думаю в них какие-то прблемы с сортировкой текста. Либо русского либо английского, а может у тебя там смешанные данные? Попробуй заключить NmList.Sorted := True; в блок try except и запросить текст ошибки.

--------------------

библия учит любить ближнего, а камасутра обучает как именно

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »