Програма по замене чисел в Ворде

[Iron Monk]

Первый шаг к решению.
Смотрите, осмысливайте, спрашивайте.
Каков, по Вашему, должен быть следующий шаг?

[Iron Monk]

Сообщение от Alexander_

В этом коде понимаю от силы только половину, но предполагаю что происходит ошибка когда в переменную tmp1 залезают не числовые символы и соответственно операция n:= StrToInt(tmp1); дает сбой (но возможно я неправ)

Прав. В программе конец числа считался пробелом или концом строки. Ибо в исходных данных другого дано не было.

[Alexander_]

Честно говоря уже пробовал через Мемо, но в тексте есть так же формулы сделанные Ворд-инструментами которые нужно сохранить. К тому же вон в Мемо добавляет строчку [t1;t2], а ее изменять не нужно

[Iron Monk]

Сообщение от Alexander_

К тому же вон в Мемо добавляет строчку [t1;t2], а ее изменять не нужно

Проверить - цыфры там, или нет. Если не цыфры - не трогать.

[Alexander_]

Сообщение от Iron Monk

В программе конец числа считался пробелом или концом строки.

А нельзя добавлять в переменную tmp1 по цифре, ну или пока символ подходит под integer?

[Iron Monk]

Сообщение от Alexander_

А нельзя добавлять в переменную tmp1 по цифре, ну или пока символ подходит под integer?

Пожалста...

function digit(dig: Char): boolean;
begin
  if (dig >= '0') and (dig <= '9') then
      Result:= true else
      Result:= false;
end;

[Iron Monk]

Сообщение от Alexander_

Честно говоря уже пробовал через Мемо, но в тексте есть так же формулы сделанные Ворд-инструментами которые нужно сохранить. К тому же вон в Мемо добавляет строчку [t1;t2], а ее изменять не нужно

Так в мемо мы загрузим только то, что нужно обработать, а потом изменения загрузим обратно в Ворд - все картинки останутся на месте.

[Alexander_]

У меня есть код что изменяет текст (точнее перекидывает измененный в Мемо2), но как добавить результаты обратно в Ворд?

procedure TForm1.Button1Click(Sender: TObject);
var
 s, s1, v: string;
 i, i1, M, N: integer;
 flg, fgl: boolean;
begin
 s:= Memo1.Text;
 M:= StrToInt(Edit1.Text);
 Memo2.Clear;
 s1:= '';
 flg:= false;
 i1:= 0;

 for i := 1 to Length(s) do
  begin
   s1:= s1 + s[i];
   if (s[i] = '[') or (s[i] = ';') then flg:= true;
   if flg then
    begin
     fgl := s[i+1] = ' ';
     if s[i] in ['0'..'9'] then inc(i1);
     if (not (s[i+1] in ['0'..'9'])) and (not fgl) then
      begin
       v:= Copy(s1, (Length(s1)-i1)+1, Length(s1));
       flg:= false;
       if v <> '' then
         begin
          N:= StrToInt(v);
          if N > M then v:= IntToStr(N+1);
          if N = M then v:= 'Ы';
          if N < M then v:= IntToStr(N-1);
          Delete(s1, (Length(s1)-i1)+1, Length(s1));
          s1:= s1 + v;
          i1:= 0;
         end;
      end;
    end;
  end;
 Memo2.Text:= s1;
end

[Iron Monk]

Сообщение от Alexander_

У меня есть код что изменяет текст (точнее перекидывает измененный в Мемо2), но как добавить результаты обратно в Ворд?

Как-то ошибок многовато, на первый взгляд...
Да и вместо увеличения цыфири уменьшились...

[Alexander_]

Странно, у меня все правильно. Вот что ли исходники:
Но по моему этот код все равно нужно редактировать под передачу результатов в док