TStringList的一个问题,急急

                            
我有两个过程,一个ParseRecord,用来将sRecord解析为一个个字段,然后将其存入TStringList中   
  另一个过程GenerateSQL,接受TStringList类型的参数,即前面解析后的字段.  
  我现在的问题是,如果将ParseRecord过程的GenerateSQL注释掉,解析出来的字段是正确的,  
  但如果加上GenerateSQL过程,有些字段解析出来是乱码了..  
   
  想问各位大虾,我在GenerateSQL过程中对TStringList的操作,会改变原来的实参吗?如果会,我应该怎么做?  
   
   
   
  procedure   ParseRecord(const   sRecord:   String);  
  var  
      slFields:   TStringList;  
  begin  
      .....  
      GenerateSQL(slFields);  
  end;  
   
  procedure   GenerateSQL(const   slFields:   TStringList);  
  var  
      //iFileHandle:     Integer;  
      //iBytesWrite:     Integer;  
      buffer:               String;  
      index:                 Integer;  
  begin  
      buffer   :=   '';  
      for   index   :=   0   to   slFields.Count-2   do  
          buffer   :=   buffer   +   sTemp   +   ',';  
      buffer   :=   buffer   +   slFields[slFields.Count-1];  
   
      buffer   :=   Format(FmtString,   [buffer]);    
  end;  
 

查看回复