Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 팁&트릭
Delphi Programming Tip&Tricks
[374] Commandline Parser
첫눈 [hadugo] 683 읽음    2017-10-19 16:33
간혹 커맨드라인옵션에 값을 전달하고 싶을때가 있습니다.

예를들어
c>test.exe ID=haudgo Kor=80 Eng=90 Math=100
이런식으로요.

이렇게 막상 커맨드라인옵션에 값을 전달하려고 하니 델파이에서 기본적으로 제공하는 기능만으로는 전달된 값을 분석해 낼 수가 없네요.
그래서 하나 만들었습니다.

unit CmdLineParserU;
interface
uses
  System.Classes, System.SysUtils;
type
  TCmdLineParser = class(TObject)
  private
    FParams     : TStringList;
  protected
  public
    constructor Create; overload;
    destructor Destroy; override;
    property Params     : TStringList read FParams;
    function CmdLine    : String;
    function ParamStr(Index: Integer): String;
    function ParamCount : Integer;
    function FindParam(AParamStr: String) : Integer;
end;
implementation
constructor TCmdLineParser.Create;
var
  I     : Integer;
  Param : String;
begin
  FParams := TStringList.Create;
  for I := 1 to ParamCount do
  Begin
    Param := Trim(System.ParamStr(i));
    if Copy(Param, 1, 1) = '/' then Delete(Param, 1, 1);
    if Copy(Param, 1, 1) = '-' then Delete(Param, 1, 1);
    FParams.Add(Param);
  End;
end;

destructor TCmdLineParser.Destroy;
begin
  FreeAndNil(FParams);
end;

Function TCmdLineParser.CmdLine    : String;
Begin
  Result := System.CmdLine;
End;

Function TCmdLineParser.ParamStr(Index: Integer): String;
Begin
  Result := System.ParamStr(Index);
End;

Function TCmdLineParser.ParamCount: Integer;
Begin
  Result := System.ParamCount;
End;

Function TCmdLineParser.FindParam(AParamStr: String): Integer;
Begin
  IF Params.Find(AParamStr, Result) Then Exit;
  Result  := Params.IndexOfName(AParamStr);
  if Result > 1 then Exit;
  Result  := -1;
End;
end.


이렇게 유닛을 하나 만들어 놓고 아래와 같이 사용합니다.

procedure TForm1.Button1Click(Sender: TObject);
Var
  i: Integer;
  CmdLineParser : TCmdLineParser;
begin
  CmdLineParser := TCmdLineParser.Create;

  ;커맨드라인옵션으로 전달된 모든 값들
  for I := 0 to CmdLineParser.ParamCount - 1 do
  Begin
    Memo1.Lines.Add(CmdLineParser.Params.Names[i] + ' = ' + CmdLineParser.Params.ValueFromIndex[i]);
  End;

  ;커맨드라인옵션으로 전달된 값 중 "Kor"의 값
  Memo1.Lines.Add('Kor = ' + CmdLineParser.Value['Kor']);

 ;커맨드라인옵션으로 전달된 값 중 두번째 인수
  Memo1.Lines.Add(CmdLineParser.ParamStr(2));
  
;커맨드라인옵션 중 "Kor"이 있는지 검사
  IF CmdLineParser.FindParam('Kor') > -1 Then
    Memo1.Lines.Add('Param "Kor" is Exist');

  FreeAndNil(CmdLineParser);
end;

+ -

관련 글 리스트
374 Commandline Parser 첫눈 683 2017/10/19
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.