CommaText, StrictDelimiter, ExtractStrings함수

TStringList의 CommaText는 여러줄의 문자열을  대신할 수 있어 무척 편리한 속성이다.

 

그런데 기본적인 구분자는 콤마(,)와 스페이스 이다.

 

'우리,나라,대한 민국'  은

 

우리

나라

대한

민국

 

으로 표현된다.

 

그런데 여러 이유에서  스페이스를 문자열 중간에 넣어야 할 경우가 있다   "대한 민국" 처럼 말이다.

 

이때는 기본 구분자에서 스페이스를 제외해야 하는데

 

이때 사용하는 속성이  StrictDelimiter = True; 이다.

 

ListBox1.Items.StrictDelimiter := True; 일때 구분자는 콤마(,)만 사용되고 스페이스는 문자열의 일부가 된다.

 

예를들어

 

ListBox1.Items.StrictDelimiter := True; 

ListBox1.Items.CommaText := '우리,나라,대한 민국'; 

 

우리

나라

대한 민국

 

으로 표현된다.

 

주의할 것은 문자열 중간 뿐만의 스페이스 뿐만 아니라 시작, 끝부분의 스페이스도 포함되니 주의해야한다.

 

'우리, 나라,대한 민국' 은  ( 나라 앞에 스페이스 있음)

 

우리

 나라

대한 민국

 

(추가) ------------------------------------------------------------------------

  참고 http://bloodguy.tistory.com/99

 

아래 예 처럼 Delimiter 속성을 이용하면 콤마(,)아닌 다른 문자도 구분자로 사용가능하다.

CommaText는 DelimitedText와 비슷하다.

 

sList:=TStringList.Create; 

try 

// StrictDelimiter=False: 공백 등도 delimiter 로 인식 

sList.Delimiter:=','; 

sList.DelimitedText:=문자열; 

Memo1.Lines.Add('Count (strict=False): '+IntToStr(sList.Count)); 

for i:=0 to sList.Count-1 do Memo1.Lines.Add(sList[i]); 

  

// StrictDelimiter=True: 지정한 문자만 delimiter 로 인식 

sList.Clear; 

sList.Delimiter:=',';    // 세미콜론(;) 이나 콜론(:) 도 구분자로 가능할 듯

sList.StrictDelimiter:=True; 

sList.DelimitedText:=문자열; 

Memo1.Lines.Add('Count (strict=True): '+IntToStr(sList.Count)); 

for i:=0 to sList.Count-1 do Memo1.Lines.Add(sList[i]); 

finally 

if Assigned(sList) then

  FreeAndNil(sList);   

 

end; 

 

 

 // 참고로 Free 와 FreeAndNil 의 차이는 Free만 하면 인스턴스 변수는 nil이 되지 않지만

FreeAndNil은 Free하고 인스턴스 변수에 Nil값을 할당하여  해당 인스턴스가 Nil 인지(할당되었는지)를

Assigned함수 또는 if stlist1 <> nil then  문으로 판단할 수 있다.

 

(추가)--------------------------------------------------------------------------------------------------------------------

 

ExtractStrings함수 를 이용하면 원하는 문자로 구분자로 사용하고 제외시킬 문자도 포함할 수 있다.

 

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar;
  Strings: TStrings): Integer;

 

첫번째 인자가 구분자

두번째 인자는 무시할 문자(예를 들어 스페이스)

세번째 인자는 null-terminated string , c언어타입, pchar

네번째 인자는 구분한 결과를 할당할 스트링리스트

리턴값은 추가된 strings 갯수

 

예)

tStr := '우리/나라/대한/민국';

ExtractStrings(['/'],[],Pchar(tStr),sList);   // 스트링리스트 sList에 할당된다.

(참고) 델파이 StringList 객체 정리

http://www.zetswing.com/bbs/board.php?bo_table=DELPHI_GRA&wr_id=19