Question

帮忙把一段C#翻译为delphi

public static string GenerateClientID() { return new Random(Guid.NewGuid().GetHashCode()).Next(0, 99) + "" + GetTime(DateTime.Now) / 1000000; }public static long GetTime(DateTime dateTime) { DateTime startDate = new DateTime(1970, 1, 1); DateTime endDate = dateTime.ToUniversalTime(); TimeSpan span = endDate - startDate; return (long)(span.TotalMilliseconds + 0.5); }

Answer 1

翻译很简单，直接问百度。

Answer 2

程序Tsbrkform.Button1Click （发件人： TObject ） ;
开始
如果edit6.Text = ''然后
开始
showmessage （ '该记录不能为空' ） ;
退出;
edit6.Clear ;
edit6.SetFocus ;
结束;
如果长度（修剪（ edit1.Text ） ） “ ” 6然后
开始
showmessage （ '请输入6位设备编号');//判断设备编号是否为6位
edit1.Clear ;
edit1.SetFocus ;
退出;
结束;
这样做与adoquery1
开始
关闭;
adoquery1.SQL.Clear ;
adoquery1.SQL.add （ '选择*从设备表在编号= ：编号' ） ;
parameters.parambyname （为' id ' ） 。值： = edit1.text ;
adoquery1.Open ;
如果recordcount “ 0然后
开始
adoquery1.Edit ;
adoquery1.fieldbyname （ '数量' ） 。值： = strtoint （ edit3.text ） + strtoint （ adoquery1.FieldByName （ '数量' ） 。 asstring ） ;
adoquery1.FieldByName （ '总金额） 。值： = strtoint （ adoquery1.fieldbyname （ '单价' ） 。 asstring ） * strtoint （ adoquery1.fieldbyname （ '数量' ） 。 asstring ） ;
adoquery1.FieldByName （ '编号' ） 。值： = edit1.Text ;
adoquery1.FieldByName （ '设备名称' ） 。值： = edit2.Text ;
adoquery1.FieldByName （ '单价' ） 。值： = edit4.Text ;
员额;
末端
别人开始
adoquery1.Append ;
adoquery1.FieldByName （ '编号' ） 。值： = edit1.Text ;
adoquery1.FieldByName （ '设备名称' ） 。价值： = edit2.Text ;
adoquery1.FieldByName （ '数量' ） 。值： = edit3.Text ;
adoquery1.FieldByName （ '单价' ） 。值： = edit4.Text ;
adoquery1.FieldByName （ '总金额） 。值： = strtoint （ edit4.Text ） * strtoint （ edit3.Text ） ;
员额;

结束;
这样做与adoquery2
adoquery2.Close ;
adoquery2.SQL.Clear ;
adoquery2.SQL.Add （ '选择*从入库记录表' ） ;
adoquery2.Open ;
adoquery2.Edit ;
adoquery2.Append ;
adoquery2.Fields [ 0 ] 。价值： = edit1.Text ;
adoquery2.Fields [ 1 ] 。价值： = edit2.Text ;
adoquery2.Fields [ 2 ] 。价值： = edit3.Text ;
adoquery2.Fields [ 3 ] 。价值： = strtoint （ edit3.Text ） * strtoint （ edit4.Text ） ;
adoquery2.Fields [ 4 ] 。价值： =日期;
adoquery2.Fields [ 5 ] 。价值： = edit6.Text ;
adoquery2.Fields [ 6 ] 。价值： = memo1.Text ;
adoquery2.Post ;
结束;
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;
edit6.Clear ;
memo1.Clear ;
edit1.SetFocus ;
结束;

Answer 3

额。智商有限呐