삭제를 위한 암호를 넣어 주세요

Type
  TStringArray  = Array of AnsiString;

function GetCommaItems(Const Source : String; var  aItemArray : TStringArray; Const Delimiter : Char = ',') : Integer;
Const
  QuoteChar = '"';
var
  P, P1: PChar;
  S : string;
begin
  Result := 0;
  Setlength(aItemArray, 0);
  if Source = '' then
    Exit;
  Try
    Result := 0;
    P := PChar(Source);
    while CharInSet(P^, [#1..#$1F]) do
       P := CharNext(P);

    while P^ <> #0 do begin
      if P^ = QuoteChar then
        S := AnsiExtractQuotedStr(P, QuoteChar)
      else begin
        P1 := P;
        while (P^ > #$1F) and (P^ <> Delimiter) do
          P := CharNext(P);
        SetString(S, P1, P - P1);
      end;

      Setlength(aItemArray, Result + 1);
      aItemArray[Result] := S;
      Inc(Result);
      while CharInSet(P^, [#1..#$1F]) do
        P := CharNext(P);

      if P^ = Delimiter then begin
        P1 := P;
        if CharNext(P1)^ = #0 then
          Inc(Result);
          Setlength(aItemArray, Result);
        repeat
          P := CharNext(P);
        until not CharInSet(P^, [#1..#$1F]);
      end;
    end;
  finally
    Result := length(aItemArray);
  end;
end;
//-----------------------------------------------------

위코드를 수행하면 aItemArray에 님이 얻고자하는 문자열이 구분되어 담기며 갯수를 리턴합니다.

루프를 돌려 리스트박스에 담으시면 끝...
 
 
2017-09-13 오후 1:03:13

삭제를 위한 암호를 넣어 주세요

질답란인 줄 알고 답변 달았네요.
담부턴 질문은 질답란에.... 
2017-09-13 오후 1:05:27