TStringList Замена символа на ряд символов.

[Alex Cones]

Имеется TStringList на 100 строк.
Имеется символ "@", который нужно во всех строках заменить на "001".
Раньше ходил циклом по каждому символу строки, потом Copy выдирал строку до символа и после, между ними вставлял "001". А можно это сделать одним оператором? Или без цикла

While Pos(List[N],'@')<>0 do

не обойтись?

P.S. На поиск не посылайте, ничего схожего не обнаружил (только 1 на 1, а у меня 1 на 3).

[Kotofff]

Попробуй

StringReplace(SL.Text,  '@',  '001',  [rfReplaceAll]);

тут SL - StringList

[puporev]

На поиск не посылайте, ничего схожего не обнаружил (только 1 на 1, а у меня 1 на 3).

Это не есть правда. Даже чисто по Паскалевски будет работать.

for i:=length(s) downto 1  do
if s[i]='@' then 
 begin 
   delete(s,i,1);
   insert('001',s,i);
 end;

Но конечно в Делфи нужно писать по Делфийски, как Вам и написали выше.

[Alex Cones]

puporev, это опять есть цикл, что не есть хорошо, Kotofff, спасибо, помогло. На будущее тем, кто будет её юзать: это функция, её нужно присваивать.

[puporev]

это опять есть цикл, что не есть хорошо,

А Вы почитайте как организована функция StringReplace(SL.Text, '@', '001', [rfReplaceAll]);
Думаете там внутри не цикл?

Вот, если Вам некогда. Это Вы вызываете функцией.

function StringReplace(const S, OldPattern, NewPattern: string;
  Flags: TReplaceFlags): string;
var
  SearchStr, Patt, NewStr: string;
  Offset: Integer;
begin
  if rfIgnoreCase in Flags then
  begin
    SearchStr := AnsiUpperCase(S);
    Patt := AnsiUpperCase(OldPattern);
  end else
  begin
    SearchStr := S;
    Patt := OldPattern;
  end;
  NewStr := S;
  Result := '';
  while SearchStr <> '' do //отсюда начинается так ненавистный Вам цикл
  begin
    Offset := AnsiPos(Patt, SearchStr);
    if Offset = 0 then
    begin
      Result := Result + NewStr;
      Break;
    end;
    Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
    if not (rfReplaceAll in Flags) then
    begin
      Result := Result + NewStr;
      Break;
    end;
    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
  end;
end;

А это предложил я.

for i:=length(s) downto 1  do
if s[i]='@' then 
 begin 
   delete(s,i,1);
   insert('001',s,i);
 end;

[Alex Cones]

если Вам некогда

Если я отсутствую 20 минут, это не значит, что я пустил тему в игнор.

А это предложил я.

Да, теперь, после сравнения видно. Хотя, если надо сделать много замен, придется малевать функцию, но все равно спасибо.

[puporev]

Хотя, если надо сделать много замен, придется малевать функцию,

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

[Alex Cones]

Да нет, не надо ничего писать

Procedure RepString(Str, FrstSym, ReplSym:String);
 Var
  I:Integer;
 Begin
  for I:=length(Str) downto 1  do
   if Str[I]=FrstSym then 
    begin 
     delete(Str,I,1);
     insert(ReplSym,S,I);
    end;
 End;

RepString(S,'A','001');
RepString(S,'B','002');
RepString(S,'G,'##4');

А говорите не надо.

[Kotofff]

Если интересует скорость - можно попробовать использовать Q_ReplaceStr из модуля QStrings, который я уже давал где-то тут. Там вообще валом функций для работы со строчными данными.

[Liite]

всем доброго времени суток, у меня вопрос в продолжение темы, хотя может и не совсем, есть строчка из плэйлиста винампа <#EXTINF:254,дубовыйъ гай - синяя лирика> надо что бы при обнаружении в начали строки этого самого #EXTINF:254 эта строчка убивалась полностью , может кто чем помочь?