아래를 참고하세요..
사용법은 다음과 같습니다..
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;
|