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#的?
谢谢!!!
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#的?
谢谢!!!
{
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凑合着看吧