谁能帮我转换代码?

maomao171314 2008-07-01 03:33:50
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#的?
谢谢!!!
...全文
82 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
noky 2008-07-01
  • 打赏
  • 举报
回复
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凑合着看吧
live_7sky 2008-07-01
  • 打赏
  • 举报
回复

有点难度

62,046

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧