StartprogrammingusingObjectPascal:StringReplaceFunction

From 흡혈양파의 번역工房
Jump to: navigation, search

StringReplace 함수

StringReplace 함수는 주어진 문자열에 대해 문자들이나 하위 문자열을 다른 문자나 문자열로 대체합니다.

Program StrReplace;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes, SysUtils
    { you can add units after this };

var
    Line: string;
    Line2: string;
begin
    Line:= 'This is a test for string replacement';
    Line2:= StringReplace(Line, ' ', '-', [rfReplaceAll]);
    Writeln(Line);
    Writeln(Line2);
    Write('Press enter key to close');
    Readln;
end.

StringReplace 함수의 인자는 다음과 같습니다

  1. Line : 수정하려고 하는 원본 문자열입니다.
  2. ‘ ‘  : 바꾸려는 하위 문자열입니다. 이 예제에서는 공백문자입니다.
  3. ‘-’  : 원본 문자열에서 앞의 것을 바꾸려는 하위 문자열입니다.
  4. [rfReplaceAll] : 바꿀 형식입니다. 이 경우 공백문자 하위 문자열의 모든 위치에 대해 바꾸려고 합니다.


다음 수정한 예제에서 보듯이, 단지 하나의 문자열 변수만 사용하고 Line2 변수를 무시할 수도 있습니다만, 원본 텍스트 값을 잃게 될 것입니다.

var
    Line: string;
begin
    Line:= 'This is a test for string replacement';
    Writeln(Line);
    Line:= StringReplace(Line, ' ', '-', [rfReplaceAll]);
    Writeln(Line);
    Write('Press enter key to close');
    Readln;
end.