안녕하세요. 타락임돠.

제가 쓰는 문자열 파싱 함수 입니다.

function xyToken(var AList: TszString; const AText: string;
    const ASub: string = #13#10; const AutoSize: boolean = true): integer; overload;

function xyToken(const AText: string; const ASub: string = #13#10;
  const ADelim: string = #13#10): string; overload;

***** 모든 델파이 버젼에서 사용 할 수 있습니다 *****

첫번째 함수는 제가 즐겨쓰는 문자열 파싱 함수 이고, 
두번째 함수는 파싱 결과를 TStringList.Text 으로 받기 위한 함수 입니다.

문자열 파싱 함수를 만들어 쓰는 이유는

TStringList 의 Quoted string 파싱 루틴에 버그가 있어서,
TStringList.CommaText := '"AB"CD", "FGHI","JK""MN"'; 하면

AB
CD"
FGHI
JK"MN 

과 같이 문자열이 깨집니다.

DataSet 의 Record를 Quoted string 으로 받을 때 데이타에 " 가 들어 있으면 데이터가 깨지는 것이 불편해서, 만들어 쓰고 있습니다.

(example)
var
  MyList: TszString;
  sID, sKind, sTheDay: string;
  cMoney: currency;
begin
  ...
  xyToken(MyList, ARequest.mText);

  if Length(MyList) < 4 then
  begin
    DoSendText(AContext, RE_ErrPacket, '패킷 에러');
    exit;
  end;

  sID := MyList[0];
  sTheDay := MyList[1];
  sKind := MyList[2];
  cMoney := StrToCurrDef(MyList[3], 0.0);

  if sID <> AUser.FID then
  begin
    DoSendText(AContext, RE_ErrData, '데이타 에러');
    exit;
  end;
  ...


<함수 소스>


type
  TszString = array of string;


function xyToken(var AList: TszString; const AText: string;
    const ASub: string = #13#10; const AutoSize: boolean = true): integer; overload;

function xyToken(const AText: string; const ASub: string = #13#10;
  const ADelim: string = #13#10): string; overload;


implementation


function xyToken(var AList: TszString; const AText: string; const ASub: string;
   const AutoSize: boolean): integer;
var
  nPast, nPos, nLen, nSub: integer;
begin
  integer(Result) := 0;
  nLen := Length(AText);
  nSub := Length(ASub);

  nPos := Pos(ASub, AText);
  nPast := 1;
  while nPos > 0 do
  begin
    if Result = Length(AList) then
      SetLength(AList, Result + 1024);

    if nPos = nPast then
      AList[Result] := ''
    else
      AList[Result] := Copy(AText, nPast, nPos - nPast);
    Result := Result + 1;

    nPast := nPos + nSub;
    nPos := PosEx(ASub, AText, nPast);
  end;

  if nPast <= nLen then
  begin
    if Result = Length(AList) then
      SetLength(AList, Result + 1);
    AList[Result] := Copy(AText, nPast, MaxInt);
    Result := Result + 1;
  end;

  if AutoSize then
    SetLength(AList, Result);
end;

function xyToken(const AText: string; const ASub: string = #13#10;
  const ADelim: string = #13#10): string;
var
  nPos, nPast: integer;
begin
  Result := '';
  nPast := 0;
  nPos := Pos(ASub, AText);
  whil&#