[starcon]

Пишу программу выполняющую поиск определённых строк.
В двух словах , открывается файл в формате txt для поиска нужных строк , потом в combobox выводится из другого файла значение для поиска в таком формате :
1766219869
1239869469
2148796896.

Всё прекрасно работает и значения ищет .
Но мне не удобно , хочу вот так

1766219869:Валера
1239869469:Женя
2148796896:Коля

Но при таком раскладе , поиск не работает.
Таких строк в искомом файле нет.
:Валера
:Женя
:Коля
Вопрос , как сделать поиск именно так
1766219869:Валера
1239869469:Женя
2148796896:Коля
и вот эти значения при поиске отсекались
:Валера
:Женя
:Коля
, а поиск выполнялся по
1766219869
1239869469
2148796896

Вот кусок кода

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button3Click(Sender: TObject); var Find:string; i:integer; s:string; begin Combobox2.Clear; memo2.Clear; find:=('Продажи'+Combobox1.Text); For i:=0 to Memo1.Lines.Count-1 do begin    s := Memo1.Lines[i];    If Pos(FIND, s)<>0 Then      Memo2.Lines.Add(s);      statusbar1.Panels[2].Text:= 'Строк:'+IntToStr(Memo2.Lines.Count); end;   end;

Спасибо

[Страдалецъ]

Судя по коду вы ищете тоже не номер, а комбинацию из двух строк. Ну а взять часть значения из комбика можно так:

Код:

1	find:='Продажи'+Copy(Combobox1.Text, 1, Pos(':',Combobox1.Text)-1);

[starcon]

Спасибо, разобрался