[starcon]

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

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

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

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

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

Код:

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;

Спасибо

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

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

Код:

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

[starcon]

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