Пишу программу выполняющую поиск определённых строк.
В двух словах , открывается файл в формате 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;
Спасибо