В текстовом файле представлены названия лекарств, срок их годности, количество стандартов и стоимость

[Катила]

Мне дана прога:
В текстовом файле представлены названия лекарств, срок их годности, количество стандартов и стоимость одного стандарта (через пробелы), например:
Аспирин 15.04.99 127 1.35
Настойка валерианы 27.09.01 23 5.40
Вывести на экран данные о лекарствах с истекшим сроком годности на сегодняшний день (с учетом перехода через столетие) и подсчитать общую стоимость таких лекарств. Срок годности для каждого лекарства определите самостоятельно.
Никто в моей группе не имеет понятия как ее написать, 3 курс....

[GreenWizard]

читай строку и парсь её на части:
1) от начала до первого блока "пробел-число-число-точка" - название
2) от конца названия до пробела - дата
3) остальное - время
далее (либо между 2 и 3) в дате выделяешь год, переводишь в число, и смотришь больше ли он, скажем, 50.... если да, то это 19хх, иначе 20хх год
если это Делфя, то, возможно, все эти телодвижения уже есть в StrToDateTime и тебе останется разделить строку на название и дата-время

[Stilet]

читай строку и парсь её на части:

Да. Согласен.
Автор:
Считку можно сделать так:

var st:TStringList;
...
st.LoadFromfile('Файл');

Поиск так:

function Search():TStringList;
Var i:integer; s:TStringList; dt:TDateTime;
begin
 Result:=TStringList.Create(); s:=TStringList.Create(); 
 for i:=0 to st.Count-1 do begin
  s.DelimitedText:=st[i];
  dt:=StrToDateTime(st[st.count-3]);
  if BetweenYear(Now,dt)>100 then Result.Append(st[i]);
 end;
 s.free;
end;

Подходит идейка?

[min@y™]

Подходит идейка?

в наименованиях могут быть разделители.
поэтому, думаю, парсить строку надо справа налево.

[Stilet]

парсить строку надо справа налево.

А я так и делаю: dt:=StrToDateTime(st[st.count-3]);
Привязываюсь к концу, сколько бы там в начале не получилось элементов.