[Harima Hario]

1) В Компоненте TMemo со временем появляется разный текст (неединоразово, а частями через какое-то рандомное время). Мне необходимо при обнаружении слова, допустим VSE выполнить следующее действие

Код:

image2.visible:=true;

Пробовал реализовать, но не получается.

2) В Компоненте TMemo уже загружен весь текст, теперь мне необходимо сохранить определенный промежуток, начиная со значка $ и по слово VSE, это я делаю посредством следующей процедуры:

Код:

procedure TForm1.Button_save_to_fileClick(Sender: TObject);
var
  A, B: Integer;
begin
  if SaveDialog1.Execute then
  begin
    A := Pos('$', Memo.Text);
    B := Pos('VSE', Memo.Text) - A;
    with TStringList.Create do
    begin
      Text := Copy(Memo.Text, A, B);
      SaveToFile(SaveDialog1.FileName);
      Free;
    end;
    ShowMessage('Done! file path: '+saveDialog1.FileName)
  end;
end;

Проблема в следующем: в этом промежутке попадаются строки в следующем формате:
PAGE000001000
PAGE000001012
И т.д. как мне сделать так, чтобы этих строк не было в текстовом файле?

Заранее спасибо за ответы.

[Gravitas]

1) У вас ответ во втором пункте.

Код:

if Pos('VSE', Memo.Text) <> 0 then
  ...

2) StringReplace

[Harima Hario]

Где-то так?

Код:

procedure TForm1.Image_done(Sender: TObject);
begin
if Pos('VSE', Memo.Text) <> 0 then
image1.visible:=true;
end;

[Harima Hario]

С вторым вопросом мне никто не поможет?

[M.A.D.M.A.N.]

Сообщение от Harima Hario

С вторым вопросом мне никто не поможет?

(c)

[ryderx34]

Код:

Text := Copy(Memo.Text, A, B);
for i := Count - 1 downto 0 do
  if Pos('PAGE', Strings[i]) <> 0 then Delete(i);
SaveToFile(SaveDialog1.FileName);

[Harima Hario]

Спасибо, получилось.