procedure Tfrm_main.Query1AfterScroll(DataSet: TDataSet);
var
   strInfo:string;
   i:integer;
begin
   //Query1.Fields[i]
   if (g_Retrieving = true) then
        Exit;
   Memo1.Text := '';
   try
       //形成记录明细字符串和显示变量字符串
       g_DispVarStr:='';
       for i:=0 to Query1.FieldCount - 1 do
       begin
            strInfo:=strInfo+DBGridEh1.Columns[i].Title.Caption+':'+DBGridEh1.Fields[i].AsString+#13#10;
            g_DispVarStr:=g_DispVarStr+g_DispVar[i+1]+'='+DBGridEh1.Fields[i].AsString+';'
       end;
   except
   end;
   Memo1.Text := strInfo;
end;
谁能帮我把上面这段delphi代码改成c#的?
谢谢!!!

解决方案 »

  1.   

    private Tfrm_main.Query1AfterScroll()// DataSet: TDataSet函数中没有用到,是否考虑去掉。
    {
      string strInfo = string.Empty;
      int i = 0;
      if( g_Retrieving )
         return;//  
      Memo1.Text = "";
      try
      {
         g_DispVarStr = string.Empty;
         for(i = 0;i < Qurey1.FiledCount -1;++i)
         {
            strInfo += DBGridEh1.Columns[i].Caption + ":" + DBGridEH1.Fields[i].AsString + +#13#10; 
            g_DispVarStr+= g_DispVar[i+1]+ "=" + DBGridEh1.Fields[i].AsString+";" 
            // DBGridEh1.Fields其中的Fields在C#中已经没有这个概念了。这要看你具体用的什么控件了。你在自己查查资料吧。
         }
      }
      catch(Exception ex)
      {
      }
      Memo1.Text = strInfo;
    }
    N就没有写过delphi的代码了,lz凑合着看吧