[델파이/Delphi] TStringList - Delimiter & LineBreak, CommaText 예제

[델파이/Delphi] TStringList - Delimiter & LineBreak, CommaText 예제

---

 

# TStringList.Delimiter

- 구분자를 이용하여 문자열을 분할할 때 사용한다.

- 주의점은 문자열 내의 공백값을 자동으로 분할시킨다는 것.

- "Delimiter"는 [Char] 타입이라서 한번에 여러개의 구분자를 입력할 수 없다.

procedure Delimiter;
var
  sList :TStringList;
begin
  try
    sList := TStringList.Create;
    sList.Delimiter := '|';
    sList.DelimitedText := 'AAA|BB B|CCC|DDD|EEE';  //값 대입과 동시에 분할이 이루어진다.

    Memo1.Lines.Clear;
    Memo1.Lines := sList; //sList[0] = AAA
                          //sList[1] = BB
  finally                 //sList[2] = B
    sList.Free;           //sList[3] = CCC  ....
  end;
end;

* 'BB B' 의 공백값을 구분자로 삼아 분할시키는 것을 알 수 있다.

 

---

# TStringList.LineBreak

- 구분자를 [String] 타입으로 써야할 때 사용한다.

procedure LineBreak;
var
  sList :TStringList;
begin
  try
    sList := TStringList.Create;
    sList.LineBreak := '<>';      // String 타입
    sList.Text := 'AAA<>BBB<>CCC<>DDD<>EEE';

    Memo1.Lines.Clear;
    Memo1.Lines := sList;  //sList[0] = AAA
                           //sList[1] = BBB
  finally                  //sList[2] = CCC
    sList.Free;            //sList[3] = DDD  ....
  end;
end;

 

---

# TStringList.CommaText

- TStringList 배열 전체 값을 "," 를 구분자로 삼아, String으로 만들어서 돌려준다.

procedure CommaText;
var
  sList :TStringList;
begin
  try
    sList := TStringList.Create;
    sList.Add('AAA');
    sList.Add('BBB');
    sList.Add('CCC');
    sList.Add('DDD');
    sList.Add('EEE');

    Memo1.Lines.Clear;
    Memo1.Lines.Text := sList.CommaText;  //AAA,BBB,CCC,DDD,EEE

  finally
    sList.Free;
  end;
end;