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

1. 함수 overload 를 사용. 
2. 파라미터 default 를 사용.
3. 파라미터를 레코드나 기타 자료형을 사용. 
2017-03-24 오전 11:47:19

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

제 개인 라이브러리의 파싱 함수 입니다. 

function xyToken2(var AList: TszString; const AText: string; const ASub: char = ',';
    const AStart: integer = 1; const AEnd: integer = 0; const AutoSize: boolean = true; const AQuote: char = '"'): integer;

함수 호출은 다음과 같습니다.

xyToken2(MyList, sText);
xyToken2(MyList, sText, #13);
xyToken2(MyList, sText, #13, 10);
xyToken2(MyList, sText, #13, 10, 100);
xyToken2(MyList, sText, #13, 10, 100, false);
xyToken2(MyList, sText, #13, 10, 100, false, ''''); 
2017-03-24 오후 12:51:17

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

array 사용
procedure TForm4.Button1Click(Sender: TObject);
var
  s: string;

  function Test(const vStr: array of string): string;
  var
    i: integer;
  begin
    result := '';
    For i := 0 to High(vStr) do
      result := result + vStr[i] + ',';
  end;

begin
  s := Test(['a']);
  s := s + Test(['a', 'b']);
  s := s + Test(['a', 'b', 'c']);
  Caption := s;
end;

 
2017-03-24 오후 3:07:50