Result是默认的返回值,但sResult是什么?好像代码中不见声明

解决方案 »

  1.   

    function  TForm_Connect.JudgeSign(sText :AnsiString):AnsiString;
    var
      AnsiString_Change,AnsiString_Result :AnsiString;
      i :integer;
    begin
       AnsiString_Result:='';
      for i := 0 to Length(sText) do
      begin
        if Copy(sText,i,1)='''' then
            AnsiString_Change := '‘'
        else
          AnsiString_Change := Copy(sText,i,1);
        AnsiString_Result := AnsiString_Result + AnsiString_Change;
      end;
       
      Result:=AnsiString_Result; 
     end;
      

  2.   

    Result相当于一个类型为所在函数的类型的实例.可参照以下代码:function GetString: string;
    begin
      Result := 'string';end;function GetListString: TListString;
    begin
      Result := TListString.Create;
      Result.Add('1');
    end;...
     aa\