Вопросы

[Stilet]

Наверное потому что ты забыл указать Sorted для SList.

[Аватар]

Из справки

Duplicates does nothing if the list is not sorted

[Poma][a]

Спасибо..
Начал понимать.. Чтобы удалить дубликаты нужно или <TList.Count>*<TList.Count> раз пробежаться по массиву.. а когда он уже отсортирован только один раз..

Из справки

Точно.. Спасибо!

[Poma][a]

А можно еще один вопрос..
Я понимаю, что возможен холивар.. однако..
Группа перешла на Си. Сейчас активно шпарит С++.. Никакого смысла я в этом не вижу.. Прошу привести аргументы в пользу крестов.. (конечно, понимаю, что глупо просить сделать это в разделе "Паскаль".. но именно Ваши мнения меня интересуют)..
Спасибо!

[Вадим Мошев]

В C++ есть концепция ООП в отличие от простого C. Хотя, это не всем мешает.

[Poma][a]

Я не совсем правильно выразился.. Меня интересует именно Pascal VS C++

[Stilet]

Какая группа? Имеется ввиду в учебном заведении?
Если на производстве то имеет смысл не переход на другую систему а внедрение единой системы в организации. Выбрали Си - значит всем стоит перейти на Си для полного взаимопонимания в исходниках.

[Poma][a]

Имеется ввиду в учебном заведении?

Ага.. Она самая...

[Poma][a]

Еще вопрос, если можно..

Начал писать.. а уже не работает.. печалька..

uses Classes, Math;

function Compare(a, b : Pointer) : Integer;
begin
	Compare := Sign(PInteger(a)^-PInteger(b)^)
end;

var
	n, i, t : Integer;
	p : PInteger;
	f : TList;
	a, b : Pointer;

begin
	ReadLn(n);
	f := TList.Create;
	for i := 1 to n do begin
		Read(t);
		New(p);
		P^ := t;
		t := f.Add(p)
	end;

	f.Sort(Compare)	
end.

Ругается на f.Sort(Compare)

[Аватар]

f.Sort(@Compare)