Текстовые файлы

[Asira]

Склад. Найти общую стоимость всего товара на складе, самый дешевый товар, а также по запросу наименования товара – его количество на складе (один и тот же товар может быть записан несколько раз)
проблема как выполнить данное условие? - "один и тот же товар может быть записан несколько раз"

begin
 b1:=false;
 for i:=1 to StringGrid1.RowCount-1 do
  begin
   s:=StringGrid1.Cells[0,i];
   j:=length(s);
   while s[j]=' ' do
    begin
     Delete(s,j,1);
     j:=j-1;
    end;
   if s=Edit1.Text then
    begin
     b1:=true;
     n1:=i;
     f1:=s;
    end;

  end;
 if b1
  then
   begin

otch:='Количество: ' + Inttostr(Strtoint(StringGrid1.Cells[1,n1])+Strtoint(otch));

                   ShowMessage(otch);
   end
  else MessageDlg('Таких наименований в списке нет!',mtError,[mbOK],0);
end;

[Stilet]

один и тот же товар может быть записан несколько раз

В цикле например просуммировать количество если название товара такое то.

самый дешевый товар

Да не парься. Если товар повторяется то повторится и его стоимость, ничего не изменится ведь она одна и та же будет.

[Serge_Bliznykov]

Да не парься. Если товар повторяется то повторится и его стоимость, ничего не изменится ведь она одна и та же будет.

угу. Но количество будет изменяться.

Рекомендую не заморачиваться и сделать два прохода.
1) находится самый дешёвый товар.
2-проход - подсчитывается количество товара на складе (просто суммируются количество из всех строчек, где товар совпадает с самым дешёвым товаром!)

[Stilet]

количество будет изменяться.

Да уж... база у автора избыточностью хвастает...
Значит запоминать уже считанные значения в некий массив, при считке следующего проверять есть ли такое значение и если есть увеличивать его кол-во вместо создания нового элемента