[kokj007]

Текстовый файл грузится в stringList. В загруженном тексте есть где-то символы $40, нужно найти эти символы, а затем сдвинуться влево на 5 символов от найденных $40 и переписать сверху старые символы на новые два (на число 15)
Например:аааааааааа$40аааааааа, результат: ааааа15ааа$40аааааааа.

Спасибо большое за работающие ответы!!!

[Konrad]

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

Текстовый файл грузится в stringList. В загруженном тексте есть где-то символы $40, нужно найти эти символы, а затем сдвинуться влево на 5 символов от найденных $40 и переписать сверху старые символы на новые два (на число 15)
Например:аааааааааа$40аааааааа, результат: ааааа15ааа$40аааааааа.

Спасибо большое за работающие ответы!!!

Ну так в чем беда то?

1. находишь длину строки.
2. находишь позицию символа $40.
3. склеиваешь заново строку. с учетом -5 символов.

[kokj007]

логику я понял, а какие функции использовать чтобы это реализовать?

[Konrad]

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

логику я понял, а какие функции использовать чтобы это реализовать?

2. pos
3. copy
1. length

[kokj007]

а зачем мне длину строки определять, мне типа такого надо:

Код:

i := Pos('$40',s);
  i := i -5;
  s[i] := '1';
  s[i+1] := '5';

правильно?? Или что-то лучше есть?

[lmikle]

Ну, в общем правильно. Только эф-нее будет как-то так

Код:

var
  S : String;
  I, J : Intger;
begin
  For I := 0 To StringList.Count-1 Do
    Begin
       S := StringList[i];
       For J := 1 To Length(S) Do
          If (S[J] = #40) And (J > 4) Then // Если поз-я <= 4 то -5 не получится
            Begin
               S[J-5] := '1';
               S[J-4] := '5';
            End;
       StringList[i] := S;
    End;
end;