function TForm1.GetSubStr(sInput, sSeparator : string; iOrder : Integer): string;

var I, iSpr : Integer;

begin //특정 문자로 분리된 문자열에서 iOrder번째 하위문자열을 돌려주는거에요

//sinput : 입력 스트링입니다.

//sSeparator : 토큰 분리 기준 예를 들어서 #32

//iorder : iorder 번째 토큰 리턴

iSpr := 0;

Result := '';



for I := 1 to Length(sInput) do begin

if sInput[I] = sSeparator then begin

Inc(iSpr);

if iSpr=iOrder then Exit else Result := '';

end else Result := Result + sInput[I];

end;



if iOrder <> iSpr+1 then Result := '';



end;



여기서요...sSeparator를 #32(공백)으로 주었거든요

리턴 값이 공백이면 다음 토큰을 찾아서 리턴하고 싶어요...

으앙..정말..프로그램의.세계는..엄청..힘들군요..

고수님들..좀..도와주세요...