VPF::Как передать процедуру в качестве параметра в TP?

Lucky

Дата 25.12.2003, 10:14 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

сначала код:

Код


type DataRecord = record
        data1: integer;
        data2: integer;
    end;

type DataArray = array [0..10] of DataRecord;

type DataRecordCompareFunction = procedure (val1, val2 : DataRecord);

const CMP_LESS = -1;
const CMP_EQUIV = 0;
const CMP_MORE = 1;

(* процедура сортировки массива 
data -- ссылка на сортируемый массив;
cmpf -- функция, которая будет использоваться алгоритмом
сортировки для сравнения двух элементов массива 
*)
procedure DataArray_sort(var Self: DataArray; 
    cmpf : DataRecordCompareFunction);
var
  dr1 : DataRecord;
  dr2 : DataRecord;
begin
    { алгоритм сортировки }
     ...
     if cmpf (dr1, dr2) = CMP_LESS then 
     ...
end;

function DataRecord_CompareByData1(val1, val2 : DataRecord):integer;
begin
  DataRecord_CompareByData1 := CMP_EQUIV;
  if val1.data1 < val2.data1 then DataRecord_CompareByData1 := CMP_LESS;
  if val1.data1 > val2.data1 then DataRecord_CompareByData1 := CMP_MORE;
end;

var
    da : DataArray;
begin
 ....
  DataArray_sort (da, DataRecord_CompareByData1); {вот тут Turbo Pacal выдает ругань на на счет второго параметра}
 ...
end.

короче, хочется параметризировать процедуру сортировки массива при помощи функции сравнения двух его элементов. во FreePascal это работает. подскажите как записать вызов DataArray_sort() для Turbo Pascal (видимо я что-то путаю с синтаксисом...)? где ошибка?

Это сообщение отредактировал(а) Lucky - 25.12.2003, 10:17

p0s0l

Дата 25.12.2003, 13:59 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Забыл про собаку

...
DataArray_sort (da, @DataRecord_CompareByData1);

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

С уважением, г-н Посол.

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