[Opsidon]

Есть SringList в нем данные:

010234567
010334567
010434567
первые четыре знака(всегда цифры) это уникальный код записи.
Количество записей в листе не превышает 100.

вопрос как мне найти нужную запись в листе по коду?

[icWasya]

Код:

for i:=0 to List.Count-1 do 
  if copy(List[i],1,4) = '1234' then
          ......

[@Rafa3L]

Код:

i:= pos('1234', List.Text);
if i > 0 then s:= Copy(List.Text, i, 9);