Поиск в Мемо.

[Quadro_O]

Как реализовать, чтобы в каждой строке Memo искалось n-значное число(допустим 8ми), если найдётся, чтобы вставлялось в Memo2 (к примеру). Помимо чисел есть и другая информация в строке.
P.S: По Делфи конечно же вопрос ^_^ Буду очень признателен, если поможете, идей вообще нету, только начал изучать Delphi :P

[Vado]

сущ-ет ф-ия lenght - возвращает длину строки.
Можно запустить цикл по всем элементам массива (memo1)
и спрашивать у каждого элемнта, какой он длины. если = 8, то записывается в мемо 2.
Не забудь про счетчики

[Quadro_O]

"запустить цикл по всем элементам массива и спрашивать у каждого элемнта, какой он длины"
Можно чуток поподробней

Тем не менее, спасибо за подсказку

[Vado]

procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  n,i,m:integer;
begin
  n:=form1.memo1.Lines.count;
  label1.Caption:=inttostr(n);
  m:=0;
  for i:=1 to n do
    begin
      a:=form1.Memo1.Lines[i-1];
      if length(a)= 8
        then
          begin
            form1.Memo2.Lines[m]:=a;
            m:=m+1;
          end
  end;
end;

[Quadro_O]

Это если линия равна 8ми... А у меня линия с многими данными, в которой есть 8-значное число. Мне его надо вытянуть.

[KREGI]

Quadro_O, вы пробовали и разбирали код что Вам дали?

[Quadro_O]

Да,

  n:=form1.memo1.Lines.count; - количество строк
  label1.Caption:=inttostr(n); - количество строк выводится в Label
  m:=0; 
  for i:=1 to n do - для каждой строки Memo1
    begin
      a:=form1.Memo1.Lines[i-1]; - строка добавляется в переменную
      if length(a)= 8 - если длина строки равна 8, то...
        then
          begin
            form1.Memo2.Lines[m]:=a; - добавление a в Memo2
            m:=m+1; - Переход на следующую строку
          end
  end;
end;

У меня в строке НЕ ТОЛЬКО число, ещё море всякой информации, строка никогда не будет равна 8, т.к. там в строке более 50 символов, надо вытянуть именно это число.

[Пепел Феникса]

цикл по строкам мемо с проверкой на нужный символ
if Memo1.lines[i][j] in ['0'..'9'] then //цифра

[Vado]

Это если линия равна 8ми... А у меня линия с многими данными, в которой есть 8-значное число. Мне его надо вытянуть.

Эти числа они разделены пробелами или они вперемешку с символами?

[Quadro_O]

между числами и всякими словами стоят пробелы