Question

我已经有一点没有运气了。

我有这个delphi程序，我没有写，也没有原始程序要测试。请注意评论，看看它应该做什么：

// first parameter is an input string, and the others are returned contents
// parsed. Example: "Okay:C15" would be parsed as "Okay", "C", 15, 0
procedure TestingThis(const astring: string; var aname: string;
                     var atype: char; var alength: byte; var adecimals: byte);
var
  ipos,jpos: integer;
  aa: string;
begin
  aname:='';
  atype:='C';
  alength:=1;
  adecimals:=0;
  aa:=astring;
  ipos:=pos(':',aa);
  if ipos > 1 then
  begin
     aname:=copy(aa,1,ipos-1);
     aa:=copy(aa,ipos+1,length(aa)-ipos);
     atype:=aa[1];
     if atype = 'A' then exit;
     if atype = 'B' then
     begin
       alength:=8;
       exit;
     end;
     if atype = 'C' then
     begin
        alength:=strtoint(copy(aa,2,length(aa)-1));
        exit;
     end;
     if atype = 'D' then
     begin
       jpos:=pos('.',aa);  
       if jpos < 1 then  
       begin
         alength:=strtoint(copy(aa,2,length(aa)-1));
         adecimals:=0;
       end
       else
       begin
         alength:=strtoint(copy(aa,2,jpos-2));
         adecimals:=strtoint(copy(aa,jpos+1,length(aa)-jpos));
       end;
       exit;
     end;
  end;
end;

这是我的C＃版本：

public static void TestingThis(string astring)
        {
            int ipos;
            int jpos;
            string aa;
            string aname = "";
            char atype = 'C';
            // def
            byte alength = 1;
            byte adecimals = 0;
            aa = astring;
            ipos = aa.IndexOf(':'); 

            if (ipos > 0)
            {
                aname = aa.Substring(0,ipos); 
                aa = aa.Substring(ipos + 1, aa.Length - ipos - 1); 
                atype = aa[0]; 

                if (atype == 'L')
                {
                    return; 
                }
                if (atype == 'D')
                {
                    alength = 8;
                }
                if (atype == 'C')
                {
                    if (Byte.TryParse(aa.Substring(1, aa.Length - 1), out alength)) //Get the last two elements of string and convert to type byte
                    {
                        return;
                    }
                }
                if (atype == 'N')
                {
                    jpos = aa.IndexOf('.'); 

                    if (jpos < 0) // if '.' isn't found in string
                    {
                        if (byte.TryParse(aa.Substring(1, aa.Length - 1), out alength))
                        {
                            adecimals = 0;
                            return; 
                        }
                    }
                    else
                    {
                        if ((byte.TryParse(aa.Substring(2, jpos - 2), out alength)) && (byte.TryParse(aa.Substring(jpos + 1 ,aa.Length - jpos), out adecimals)))
                        {
                            return;
                        }
                    }
                    return;
                }
            }    
        }

我通过给它一个字符串来测试它：

string test = "Okay:C15"
TestingThis(test)

我很困惑。在Delphi代码中，只有一个参数是输入：astring，其余的应该是返回的值？这怎么可能？我还没有看到任何关于一个参数的内容和4个出去从我读到的，var关键字意味着它们通过引用传递，这意味着我应该在c＃版本中使用ref 。假设函数本身只调用一次，输入实际上是一个字符串。

编辑：将我的功能更改为：

public static void TestingThis(string astring, out string aname, out char atype, out byte alength, out byte adecimals)

我称之为：

    string test = "Okay:C15";
    string aname;
    char atype;
    byte alength;
    byte adecimals;
    TestingThis(test, out aname, out atype, out alength, out adecimals);

这是从Delphi到C＃的正确转换吗？

Answer 1

如果您想要在一个非ref的方法中返回多个值，例如，如果您调用一个方法并想要返回某个人的年龄，那么为什么要使用ref键将年龄更改为返回值age当你需要做的就是使用一个简单的out参数...在C＃out上执行一个msdn google搜索你需要了解ref ..和out之间的明显差异..如果你想用作全局变量例如，您将在方法中传递这些ref值。但是窗口和网络是不同的..所以当你开始更频繁地编码时要小心

无法将delphi过程转换为C＃

1 个答案: