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

델파이 Q&A
Delphi Programming Q&A
[3019] [답변] 폭주족/ string에서 원하는 단어 추출?
grcsb [ ] 1444 읽음    1998-05-29 23:17
아래를 참고하세요..
사용법은 다음과 같습니다..
Index는 0번이 시작임을 명심하세요..
  stTemp:= GetPara('abcd;1234;가나다라;', 2);
(음..  코딩이 좀..  맘에 안들지만..
도둠이되었으면 좋겠네여..)

From 류..

---------

Function  GetPara(stText:String; Index:Integer):String;
Var
   Loop, Loop1, Loop2, Count, TempIndex : Integer;
Begin
  Loop:= 0;
  Loop2:= 0;
  Count:= 0;
  TempIndex:= Index+1;
  While (Loop < Length(stText)) and (Count < TempIndex) do
    Begin
      Inc(Loop);
      If stText[Loop] = ';' then
         Begin
           Loop1:= Loop2+1;
           Loop2:= Loop;
           Inc(Count);
         End;
    End;
  If TempIndex = Count then Result:= Copy(stText, Loop1, Loop2-Loop1)
  Else Result:= '';
End;


+ -

관련 글 리스트
3019 [답변] 폭주족/ string에서 원하는 단어 추출? grcsb 1444 1998/05/29
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.