// 문자열에 따라 문자열을 분할합니다.
함수 splitstring (const source, ch : string) : tstringlist;
var
온도 : 문자열;
I : 정수;
시작하다
결과 : = tstringlist.create;
// 빈 문자열 인 경우 빈 목록으로 돌아갑니다.
소스 = ''인 경우
그런 다음 종료하십시오.
온도 : = 소스;
i : = pos (ch, source);
I <> 0은 수행합니다
시작하다
result.add (copy (temp, 0, i-1));
삭제 (온도, 1, i);
i : = pos (ch, temp);
끝;
result.add (temp);
끝;
www.sinoprise.com