델파이 전이나 특수 기호 문자 뒤에 문자열을 인수

작동 GetBefore (: SUBSTR, STR 문자열 :) 문자열 ;
{ © Drkb의 3 절 (2007 년) : www.drkb.ru, 
®Vit (비탈리 Nevzorov은) - [email protected] } 
시작 
하면 pos가 (SUBSTR, STR)> 0  다음 
  결과 : = 복사 (STR, 1 , POS (SUBSTR, STR) - 1 )
 다른 
  결과 : = "" ;
끝 ; 


함수 GetAfter (SUBSTR, STR : 문자열 ) 문자열 ;
{ © Drkb의 3 절 (2007 년) : www.drkb.ru, 
®Vit (비탈리 Nevzorov) - [email protected] } 
시작
만약 POS는 (SUBSTR, STR)> 0  다음 
  결과 : = 복사 (STR, POS (SUBSTR, STR) + 길이 (SUBSTR), 길이 (STR))
 다른 
  결과 : = '를' ;
끝 ; 
 

演示: 

1 ) 
GetBefore ( ' - ' , ' 총-2.00 $를 ' ) // 结果"총" 

2 ) 
GetAfter를 ( ' - ' , ' 총-2.00 $를 ' ) // 结果"2.00 $" 

3 ) 
GetBefore ( ' $ ' ,' - ' , ' Total- $ 2.00를 (전체) ' )   // 结果"2.00"