안녕 하세요?

BacTeria 박종민 입니다.

오늘은 제가 자주쓰는 함수 한넘(?)을 소개해 드리려 합니다.

문자열을 특정 구분자로 쪼개주는 함수 입니다.

예를 들어 '가&나&다&라&마' 이런 문자열이 있을때 '&'를 기준으로 몇번째 문자열을 리턴해라.

뭐 이런거죠... ㅋㅋ 넘 허접한가??

하여간 유용하게 쓰시구요.

오늘 하루도 열심히...

function StringSlice(Separator: Char; Content: String; Number: Integer): String;
var
  i, Max, Count: Integer;
  Str: String;
begin
  Str := '';
  Count := 1;
  Max := Length(Content);

  for i:=1 to Max do
    if Content[i] = Separator then Count := Count + 1
    else begin
           if Count > Number then Break;
           if Count = Number then Str := Str + Content[i];
         end;

  Result := Str;
end;