нужен совет

[shalgan]

добрый день
задание"
На складе хранится ряд деталей, наименование которых представляют некоторую последовательность символов (например, D21A, D52H и т.д.). Подсчитать количество наименований деталей, которые начинаются с D2. Все имеющиеся наименования вводить с клавиатуры. Число деталей произвольное."
Подскажите пожалуйста,как узнать какие детали начинаются с D2?Сначала хотел сделать так " if a[1]=D and a[2]=2 then begin...."но
a[i]в мемо будет считать же с верху в низ.

[ATL]

при условии, что a[i] - наименование

  position := AnsiPos('D2', a[i]);
  if position = 1 then
  ShowMessage('Found');

[shalgan]

Сообщение от ATL

при условии, что a[i] - наименование

  position := AnsiPos('D2', a[i]);
  if position = 1 then
  ShowMessage('Found');

а чтобы потом начать счетчик нужно будет inc(position)?

[reflexx]

var
  DetailsCount: Integer; //Количество деталей
  position: Integer;
...
  DetailsCount:=0;
  for i:=1 to количество_деталей do begin
    {Код ATL}
    position := AnsiPos('D2', a[i]);
    if position = 1 then
      Inc(DetailsCount); //Увеличиваем количество деталей
    {/Код ATL}
  end;

[shalgan]

Сообщение от reflexx

var
  DetailsCount: Integer; //Количество деталей
  position: Integer;
...
  DetailsCount:=0;
  for i:=1 to количество_деталей do begin
    {Код ATL}
    position := AnsiPos('D2', a[i]);
    if position = 1 then
      Inc(DetailsCount); //Увеличиваем количество деталей
    {/Код ATL}
  end;

спасибо большое,разобрался,с AnsiPos был не знаком