Работа со строками

[Aleksandr]

Необходимо текст из Memo1 вида

Ѓ    0.04 N 
Ѓ   
  0.0
 4 N 
 Ѓ   
  0.04 N 
  

 Ѓ    0.0
 4 N 
  

 Ѓ   
  0.0
 4 N 
  

 Ѓ   
  0.04 N 
  

 Ѓ    0.0
 4 N 
  

Ѓ    0.04 N

преобразовать к виду
0.04
0.04
0.04
0.04 и т.д.

[Аватар]

1. Выдернуть в одну строку из Memo.Text
2. Удалить все #13 и #10
3. Искать в строке 'Ѓ' и следущий 'N' после него
4. Взять текст между ними удалив левые и правые пробелы - нашли
5. Удалить по 'N' включительно
6. Перейти на 3

[Aleksandr]

У меня последний символ может быть не только N

[Аватар]

А в чем проблема? Искать значит N или другие и ориентироваться на тот, который ближе к Ѓ

[Баламут]

Ну а если так? Грубо конечно, но это ведь просто идея

var
  i: Integer;
  s: string;
begin
  s := '';
  Memo1.Text := StringReplace(Memo1.text, #13, '',[rfReplaceAll]);
  Memo1.Text := StringReplace(Memo1.text, #10, '',[rfReplaceAll]);
  Memo1.Text := StringReplace(Memo1.text, ' ', '',[rfReplaceAll]);
  for i := 1 to Length(Memo1.Text) do
  begin
    if Memo1.Text[i] in ['0'..'9','.'] then s := s + Memo1.Text[i]
  else
      begin
       if Length(s) > 0 then Memo2.Lines.add(s);
        s := '';
      end;
  end;

[stalker1995s]

При желании, можно и вовсе одним Delete(); Обойтись