一个菜鸟的问题。。

Question

这是一个自定义的函数，但是我不是很明白它的具体含义，望各位给予帮助。  FunctionRegulateStr（aString：String；Sepchar：String）：String；
　　var
　　i，Num：Integer；
　　Flag：Boolean；
　　MyStr，TempStr：String；
　　begin
　　Flag：=False；／／进行标志，去除多余的分割符
　　Num：=Length（aString）；／／计算aString串的长度
　　fori：=1toNumdo
　　begin
　　TempStr：=Copy（aString，i，1）；／／取aString串中的一字符
　　if TempSt>=SepChar then
　　begin
　　MyStr：=MyStr＋TempDtr；
　　Flag：=True；
　　end
　　else
　　if（Flag=True）then
　　begin
　　Mystr：=Mystr＋TempSrt；
　　Flag：=False；
　　end；
　　end；
　　if MyStr［Length（MyStr）］>=SepChar then
　　MyStr：=MyStr＋SepChar；
　　RegulateSrt：=MyStr；
　　end；    请各位帮小弟分析一下”代码的作用“，“if TempSt>=SepChar ”和"flag"在该程序中的作用，
   谢谢了~~
   小弟在线等

Answer 1

函数RegulateStr（aString，sepchar ）
regulatestr('china','c');
if tempst>=sepchar 应该是tempst是取astring中的所有字符和后面的sepchar比较
如astring:='china'
第一次tempst:='c'
...

Answer 2

代码排的好乱～～～  @_@
  if TempSt>=SepChar 表示：字符是非分隔符。
  Flag 的作用是:只保留一个分隔符
  当第一个是 分隔符 Flag=true, 当第二个是非分隔符时 flag=false
  当第三个还是分隔符时，就不执行了if语句继续循环