Замена одного символа другим в строке

[D!zel]

Привет всем!

Скажите, пожалуйста, как в строке заменить один символ другим?
Допустим, заменить двоеточие на точку.

Пробовал через format(), но я его не понимаю вообще... =\

[tsar_]

Строка есть массив символов.
Перебираешь символы в цикле по индексу, если символ равен двоеточию, то меняешь его на точку.

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
begin
  s := 'А это что, салат по южному, тогда дайте сосиску: Как-то так:';

  for i := 1 to Length(s) do
  begin
    if s[i] = ':' then s[i] := '.';
  end;

  ShowMessage(s);
end;

[Аватар]

StringReplace

[D!zel]

var
 i: integer;
 s: string;
begin
 s := '000:000:000';
 for i := 1 to length(s) do
  begin
   if s[i] = ':' then s[i] := '.';
  end;

 Form1.Caption := s;
end;

Слишком длинно получается...

Использовал StringReplace.
Спасибо всем. Добавил отзывы

[Serge_Bliznykov]

Использовал StringReplace.

Угу. Нормально.
Но, если любопытно, то вот что внутри себя представляет StringReplace:

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;

очевидно, что в цикле ищется совпадение с помощью AnsiPos
вот его код:

function AnsiPos(const Substr, S: string): Integer;
var
  P: PChar;
begin
  Result := 0;
  P := AnsiStrPos(PChar(S), PChar(SubStr));
  if P <> nil then
    Result := Integer(P) - Integer(PChar(S)) + 1;
end;

очевидно, что в ней вызываются функции:

function StrPos(const Str1, Str2: PChar): PChar; assembler;
asm
        PUSH    EDI
        PUSH    ESI
        PUSH    EBX
        OR      EAX,EAX
        JE      @@2
        OR      EDX,EDX
        JE      @@2
        MOV     EBX,EAX
        MOV     EDI,EDX
        XOR     AL,AL
        MOV     ECX,0FFFFFFFFH
        REPNE   SCASB
        NOT     ECX
        DEC     ECX
        JE      @@2
        MOV     ESI,ECX
        MOV     EDI,EBX
        MOV     ECX,0FFFFFFFFH
        REPNE   SCASB
        NOT     ECX
        SUB     ECX,ESI
        JBE     @@2
        MOV     EDI,EBX
        LEA     EBX,[ESI-1]
@@1:    MOV     ESI,EDX
        LODSB
        REPNE   SCASB
        JNE     @@2
        MOV     EAX,ECX
        PUSH    EDI
        MOV     ECX,EBX
        REPE    CMPSB
        POP     EDI
        MOV     ECX,EAX
        JNE     @@1
        LEA     EAX,[EDI-1]
        JMP     @@3
@@2:    XOR     EAX,EAX
@@3:    POP     EBX
        POP     ESI
        POP     EDI
end;

function AnsiStrPos(Str, SubStr: PChar): PChar;
var
  L1, L2: Cardinal;
  ByteType : TMbcsByteType;
begin
  Result := nil;
  if (Str = nil) or (Str^ = #0) or (SubStr = nil) or (SubStr^ = #0) then Exit;
  L1 := StrLen(Str);
  L2 := StrLen(SubStr);
  Result := StrPos(Str, SubStr);
  while (Result <> nil) and ((L1 - Cardinal(Result - Str)) >= L2) do
  begin
    ByteType := StrByteType(Str, Integer(Result-Str));
{$IFDEF MSWINDOWS}
    if (ByteType <> mbTrailByte) and
      (CompareString(LOCALE_USER_DEFAULT, 0, Result, L2, SubStr, L2) = CSTR_EQUAL) then Exit;
    if (ByteType = mbLeadByte) then Inc(Result);
{$ENDIF}
{$IFDEF LINUX}
    if (ByteType <> mbTrailByte) and
      (strncmp(Result, SubStr, L2) = 0) then Exit;
{$ENDIF}
    Inc(Result);
    Result := StrPos(Result, SubStr);
  end;
  Result := nil;
end;

и т.д. и т.п.

Вы уверены, что это намного проще и быстрее работает, чем

for i := 1 to length(s) do
   if s[i] = ':' then s[i] := '.';

?????!!




p.s. приведённый выше код взят из папки исходников Delphi 2006 - модуль SysUtils.pas

[D!zel]

Serge_Bliznykov, вы просто растоптали мой разум... :D
Но по "набиранию" кода - StringReplace меньше. Другой вопрос - кто из них более быстродействующий, и какой дает меньшую нагрузку на ЦП и ОЗУ в частности? Вчера также копнул в сторону repeat ... until, и while. И что касается repeat ... until и while, то при тестировании они нагрузили ЦП на 50% (из-за объема текста), и, подозреваю, что если бы они работали в режиме 64-бита, то нагрузили бы ЦП на 100%.
Как быть?

[s-andriano]

Сообщение от D!zel

Другой вопрос - кто из них более быстродействующий, и какой дает меньшую нагрузку на ЦП и ОЗУ в частности?

Вы правильно поняли замечание.
Код Shouldercannon будет меньше нагружать и ЦП и ОЗУ.

... при тестировании они нагрузили ЦП на 50% (из-за объема текста), и, подозреваю, что если бы они работали в режиме 64-бита, то нагрузили бы ЦП на 100%.
Как быть?

А вот это в корне неверный вывод. (да и вообще неверный подход к оценке эффективности кода)
Ваша программа нагрузила ЦП на 50% исключительно потому, что у Вас двухъядерный процессор. (и 32 или 64 - не важно)
А любое однопоточное приложение приложение во время своей работы грузит ЦП ровно на 1 поток (если ему не мешают другие приложения), т.е. в Вашем случае - наполовину.

И поэтому вычислительную нагрузку следует оценивать не по процентам, а по времени работы. Т.е. любой код (кроме многопоточного) нагрузит Ваш процессор на 50%, но более эффективный будет нагружать его в течение более короткого времени.

[D!zel]

s-andriano, спасибо большое, что все разъяснили.
Добавил отзыв

P.S.
Пойду переписывать код