[Edvix]

Код:

Type import=record
name: string[15];
cena: Real;
kraina: string[15];
partia: Real;
data: tdatetime;
end;
var f: file of import; //файл записів
z: import; //запис
namefile: string; //ім'я файла
nbtn2: integer;

MAD: теги!

Есть типизированный файл.(Обьявление выше).Нужно найти товары проданные за ПОСЛЕДНЮЮ неделю.Как это можно реализовать?

[M.A.D.M.A.N.]

Ф-я filter.

[Edvix]

помоги,с реализацией плиз

[lmikle]

Для начала, определи что такое "ПОСЛЕДНЯЯ НЕДЕЛЯ".
последняя неделя года, месяца, текущая, предыдущая (полная), просто последние 7 дней?

[NumLock]

проверяй поле data на попадание в нужный диапазон из 7 дней, т.к. в неделе 7 дней.