VPF::Ошибка в Delphi XE - Форум программистов

xamel87

Дата 5.1.2012, 21:39 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 5.1.2012

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

При компиляции выкидывает ошибку [DCC Error] ZSysUtils.pas(1028): E2010 Incompatible types: 'PPointerList' and 'TPointerList' ссылаясь на данный кусок кода

Код


procedure TZSortedList.Sort(Compare: TZListSortCompare);
begin
  if (List <> nil) and (Count > 0) then
    QuickSort(list, 0, Count - 1, Compare);
end;

Ругается на 4 строку, на List
П.С. попытка адаптировать ZeosLIB 7.0.0 под Delphi XE
П.С.С. Проблемму с PChar решил путем PAnsiChar (вроде)

Это сообщение отредактировал(а) xamel87 - 5.1.2012, 22:04

CodeMonkey

Дата 7.1.2012, 03:24 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 29
Всего: 89

Гм, а чего его портировать, если он и так DXE поддерживает?

В любом случае, ...

D7:

Код

type
  PPointerList = ^TPointerList;
  TPointerList = array[0..MaxListSize - 1] of Pointer;
...
procedure QuickSort(SortList: PPointerList; L, R: Integer;
  SCompare: TListSortCompare);

DXE:

Код

type
  PPointerList = ^TPointerList;
  TPointerList = array[0..MaxListSize - 1] of Pointer;
...
procedure QuickSort(SortList: PPointerList; L, R: Integer;
  SCompare: TListSortCompareFunc);

DXE2:

Код

type
  PPointerList = ^TPointerList;
  TPointerList = array of Pointer;
...
procedure QuickSort(SortList: TPointerList; L, R: Integer;
  SCompare: TListSortCompareFunc);

Разницы между Delphi 7 и Delphi XE никакой нет. Разница есть между DXE и DXE2. Поэтому есть мнение, что кто-то врёт.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

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