delphi 문자열 구분 함수 사용법 실례

본고의 실례는delphi 문자열 분리 함수의 용법을 설명하였다.여러분에게 참고하도록 공유하다.구체적인 실현 방법은 다음과 같다.
이 예제에서는 문자열 Separator의 표현에 따라 다음과 같이 문자열 s를 여러 문자열로 구분하여rs 문자열 목록에 저장할 수 있습니다.

   procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList); 
  
 var 
  
   AStr: string; 
  
   idx: Integer; 
  
   ASubStr: string; 
  
 begin 
  
   AStr := Trim(s); 
  
   while Pos(Separator, AStr) > 0 do 
  
   begin 
  
     idx := Pos(Separator, AStr); 
  
     ASubStr := Copy(AStr, 1, idx - 1); 
  
     rs.Add(ASubStr); 
  
     AStr := Copy(AStr, idx + 1, Length(AStr)); 
  
   end; 
  
  if AStr+'a' <> 'a' then  rs.Add(AStr); //          ，            
  
 end; 
 

본고에서 서술한 것이 여러분의 Delphi 프로그램 설계에 도움이 되었으면 합니다.