StringReplace

[s1s1s1]

 st := TStringList.Create;
          ts := TStringList.Create;
for i:=st.Count-1 downto 0 do 
if Pos('5555',st.Strings[i])>0  then
 for v:=ts.Count-1 downto 0 do
    if Pos('6',ts.Strings[v])>0  then
St[I]:= StringReplace(st[i],st[i],ts[v], [rfReplaceAll]);

заменяет,но одной строкой 1-ой /|\ как заменить следующие строки
|

[Serge_Bliznykov]

какова задача в целом? что на что надо заменить ?

Hint.. у объекта типа TSTringList есть свойстов .Text - там все строки вместе. Может его и использовать при замене?

[s1s1s1]

два файла ,оба в StringList'e надо заменить все строчки в 1-ом где встречается '5' ,на строчки из второго где встречается '6' (чтобы из вторго брались строчки в цикле).

[Serge_Bliznykov]

примерно понял. поясните, пожалуйста для примера:

файл 1
ууу
еее 5
ww 555 w
ttt
g5

файл 2
t1
t2
t767
ку9
q6

что нужно получить?

[s1s1s1]

файл 1
123ууу548 найти в тексте строки с ( ууу )
258686ууу и заменить их по очереди
859214723 строчками из 2-ого файла
147820369
ууу147852

именно строчками

файл 2
уу1458885 найти в тексте строки с ( уу )
t21478562 и заменить этими строчками по
t76714785 очереди в 1-ом файле ,только те
1458уу147 где есть ( ууу)
уу1478524

[s1s1s1]

кто подскажет?

[Человек_Борща]

немного подправлю ваш код:

  st := TStringList.Create;
  ts := TStringList.Create;
  for i := st.Count - 1 downto 0 do
  begin
    if Pos('5555', st.Strings[i]) > 0 then
    begin
      for v := ts.Count - 1 downto 0 do
      begin
        if Pos('6', ts.Strings[v]) > 0 then
          St[I] := StringReplace(st[i], st[i], ts[v], [rfReplaceAll]);
      end;
    end;
  end;
end;

Блоки кода begin..end не обязательны когда после then,do идёт только одна строка кода.
У вас их много.

[s1s1s1]

теперь выдает ошибку на эту строку

 St[I]:= StringReplace(st[i],st[i],ts[v], [rfReplaceAll]);

[Человек_Борща]

А ошибку показывать не судьба?

[s1s1s1]

Debugger exception notification

Project Project1 raised exception class Eaccessviolation with message access violation at adress 0049aa2c in module Project1.exe. read of adress 00000000,
Process stopped. Use Step or Run to continue.