Поиск в Мемо.

[Vado]

Я понял как ее сделать, дмаю к вечеру сделаю. и выложу

http://depositfiles.com/files/2pg5c11q0
Вот она) как и говорил.

[Quadro_O]

Спасибо, доработать только надо чуток, а так работает

[Quadro_O]

Всё оказалось намного проще (14ти значное число):

procedure TForm1.Button1Click(Sender: TObject);
var i,c,k:integer;
s,z:string;
begin
for c:=0 to Memo1.Lines.Count-1 do
  begin
  k:=0;
  z:='';
  s:=Memo1.Lines.Strings[c];
  for i:=0 to Length(s) do
  if s[i] in ['0'..'9'] then
    begin
    k:=k+1;
    z:=z+s[i];
    if k=14 then Memo2.Lines.Add(z);
    end
    else
    begin
    k:=0;
    z:='';
    end;
  end;
end;

end.

Как-то само пришло на ум, сел написал... :P

[IT-man]

а если оно 15 значное? ты первые 14 запишешь а остальные обрежешь?

[Quadro_O]

Мне первоначально и надо было определённое кол-во цифр... Можно сделать чтобы числа >14 цифр записывались, просто мне это уже не надо