0
procedure TForm1.Button4Click(Sender: TObject);
var 
  k: integer;
begin
  for k:=1 to memo1.Lines.Count-1 do
  begin
    if AnsiPos('%', Memo1.Lines.Strings[k]) <>0 then
     begin
    //  Edit1.Text := ?
     end;
  end;
end;

Есть цикл в Button, который смотрит каждую строку в Memo. Если находится первый символ '%', но как сделать чтобы в Edit добавились все символы идущие после него до тех пор, пока не встретится такой же символ?

Пример текста в Memo:

%Здесь какой-то текст, необходимый для того чтобы его куда-то перенести.%

Что должно оказаться в Edit:

Здесь какой-то текст, необходимый для того чтобы его куда-то перенести.

1 ответ 1

2

Давайте сделаем функцию, которая принимает строку текста и возвращает все что есть между %%:

function GetTextInPercent(aLine: string): string;
var
  i1, i2: Integer;
begin
  i1 := Pos('%', aLine) + 1;
  i2 := PosEx('%', aLine, i1);
  Result := Copy(aLine, i1, i2 - i1);
end;

P.S. Естественно вам надо будет предусмотреть поведение для случаев, когда в тексте не два знака %, а больше или меньше.

4
  • Пишет: Undeclared identifier: 'PosEx'
    – Ник
    26 мая 2016 в 11:15
  • 1
    В секцию uses нужно добавить модуль StrUtils
    – androschuk
    26 мая 2016 в 11:33
  • Не выгружает несколько строк. Видимо потому, что превышает число доступных символов. Как быть?
    – Ник
    26 мая 2016 в 13:48
  • @Ник Это из-за переносов строк. Добавьте уточнение в вопрос или задайте новый )
    – Kromster
    26 мая 2016 в 14:09

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.