我有一段delphi代码，请高手能给我详细的解释，谢谢(争取每句都能翻译成中文)

急!求帮忙详细解释delphi代码 最好能翻译成C#的代码~

这段程序首先定义两个临时变量，一个是2行的数组tempvalue，一个是双字节的整型变量temp，后面个过程其实很简单，
第一步，把字符串变量strData转换成浮点型数据strtofloat()，并乘以10取整；
第二步，把上面得到的整型值，高位存入tempvalue数组的第一行，低位存入第二行，那高位和地位怎么定义，举个例子你就明白，比如一个数字1000，转换成16进制就是0x03E8，那么高位就是0x03,低位就是0xE8
最后一步，TestDataStream应是一个流，或者是文件句柄，目的是吧这个数组TempValue写入流中。

if not (form1.ClientHeight = 50) then //如果窗体的高不等于50那么
begin
form1.ClientHeight := form1.ClientHeight - 10; //窗体的高度等于窗体的高减去10
end else timer2.Enabled := false; //否则将timer2停止.


下边那个思路一样.略.

form1.ClientWidth := 400; //窗体宽为400
form1.ClientHeight := 40; //高为50
timer1.enabled := true; //timer1启动


timer2.enabled := true; //timer2启动
button2.visible := true; //button2设置为可视

{创建窗体自动生成的代码}
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls;

type

{这一段是注册控件,窗口中的所有空间在这里列出}
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Table1EmpNo: TIntegerField;
Table1LastName: TStringField;
Table1FirstName: TStringField;
Table1PhoneExt: TStringField;
Table1HireDate: TDateTimeField;
Table1Salary: TFloatField;
Edit2: TEdit;

{空间的事件注册}
procedure FormCreate(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

{定义全局变量}
var
Form1: TForm1;
Checked:array [1..3]of boolean;
MinNo,MaxNo:integer;

implementation

{$R *.dfm}

{这个是当窗体被打开，但是没有进行任何动作之前，窗体要进行的操作}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit2.Enabled:=False;//文本框2可见，但不可编辑
Table1.Open;//表控件
Table1.FindLast;//表中数据的最后一行
MaxNo:=Table1EmpNo.Value;//将最后一行的编号给变量MaxNo
Table1.FindFirst;//表中数据的第一行
MinNo:=Table1EmpNo.Value;//将第一行的编号给变量MinNo

end;

{RadioButton1控件的单击事件}
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
RadioButton1.Checked:=True;//RadioButton1控件设为选中状态
Showmessage('编号的最大范围为'+inttostr(MinNo)+'~'+inttostr(MaxNo));//弹出窗口提示,范围是上面赋值的MinNo到MaxNo,IntToStr是字符串类型转换成整型
end;

{同RadioButton1Click}
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
RadioButton2.Checked:=True;
Showmessage('编号的最大范围为'+inttostr(MinNo)+'~'+inttostr(MaxNo));
end;

{同RadioButton1Click}
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
RadioButton3.Checked:=True;
Edit2.Enabled:=True;//文本框2设置为可编辑状态
Showmessage('编号的最大范围为'+inttostr(MinNo)+'~'+inttostr(MaxNo)+';请分别输入!');
end;

{button按钮控件单击事件}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (not RadioButton1.Checked)and (not RadioButton2.Checked)and (not RadioButton3.Checked)then//判断如果RadioButton1,2,3同事没有被选中时
begin
showmessage('请选择查询方式!');//弹出窗口提示
Exit;//直接跳出，下面代码不再执行
end;
if RadioButton1.Checked then //如果RadioButton1被选中了
if Table1.FindKey([Edit1.Text]) then//如果选中状态下,文本框1中内容在表数据中找到了，提示记录找到，否则提示没找到
showmessage('您要查询的记录已找到!') else
showmessage('对不起,没有您要查询的记录!');
if RadioButton2.Checked then
begin
//同上，如果找到提示找到记录
Table1.FindNearest([Edit1.text]);
showmessage('已找到相关记录!');
end;
if RadioButton3.Checked then
begin
//如果RadioButton3被选中,在表中查找文本框1和文本框2的值之间的数据
Table1.SetRange([Edit1.Text],[Edit2.Text]);
Edit2.Enabled:=False;//文本框2不可编辑状态
end;
end;

end.

建议打开Delphi自己写一个，马上就明白了

晕，没必要了吧，很多代码都是delphi环境给自动生成的。
procedure TForm1.RadioButton1Click(Sender: TObject);
像上面这种类似的函数都是按钮的点击事件。
不理解可以问我，不过建议还是自己多看看书。书上都写的很明白。
看书之后还可以一劳永逸。

谷歌翻译结果如下：
单位组1;

接口

使用
窗口，邮件，sysutils的，变体，类，图形，控件，窗体，
对话，数据库，DBTables，网格，DBGrids，StdCtrls，ExtCtrls;

类型
TForm1 =类（TForm）
RadioGroup1：TRadioGroup;
RadioButton1：TRadioButton;
RadioButton2：TRadioButton;
RadioButton3：TRadioButton;
Button1的：TButton;
Edit1：t编辑;
Label1的：TLabel;
DBGrid1：TDBGrid中;
DataSource1：TDataSource;
表一：TTable;
Table1EmpNo：TIntegerField;
Table1LastName：TStringField;
Table1FirstName：TStringField;
Table1PhoneExt：TStringField;
Table1HireDate：TDateTimeField;
Table1Salary：TFloatField;
Edit2：t编辑;
程序FormCreate（发件人：TObject）;
程序RadioButton1Click（发件人：TObject）;
程序RadioButton2Click（发件人：TObject）;
程序RadioButton3Click（发件人：TObject）;
程序Button1Click（发件人：TObject）;
私人
（）私人声明
公众
公开声明）（
结束;

变种
Form1中：TForm1;
检查时间：数组[1 .. 3]布尔;
明诺，MaxNo：整数;

实施

（$?*. dfm）

程序TForm1.FormCreate（发件人：TObject）;
开始
Edit2.Enabled：=虚假;
Table1.Open;
Table1.FindLast;
MaxNo：= Table1EmpNo.Value;
Table1.FindFirst;;
明诺：= Table1EmpNo.Value;
结束;

程序TForm1.RadioButton1Click（发件人：TObject）;
开始
RadioButton1.Checked：=真;
Showmessage（编号的最大范围为+ inttostr（明诺)+~+ inttostr（MaxNo））;
结束;

程序TForm1.RadioButton2Click（发件人：TObject）;
开始
RadioButton2.Checked：=真;
Showmessage（编号的最大范围为+ inttostr（明诺)+~+ inttostr（MaxNo））;
结束;

程序TForm1.RadioButton3Click（发件人：TObject）;
开始
RadioButton3.Checked：=真;
Edit2.Enabled：=真;
Showmessage（编号的最大范围为+ inttostr（明诺)+~+ inttostr（MaxNo）+;请分别输入！）;
结束;

程序TForm1.Button1Click（发件人：TObject）;
开始
如果（不RadioButton1.Checked）和（不RadioButton2.Checked）和（不RadioButton3.Checked），则
开始
showmessage（请选择查询方式！）;
退出;
结束;
然后，如果RadioButton1.Checked
如果Table1.FindKey（[Edit1.Text]），则
showmessage（您要查询的记录已找到！）其他
showmessage（对不起，没有您要查询的记录！）;
然后，如果RadioButton2.Checked
开始
Table1.FindNearest（[Edit1.text]）;
showmessage（已找到相关记录！）;
结束;
然后，如果RadioButton3.Checked
开始
Table1.SetRange（[Edit1.Text]，[Edit2.Text]）;
Edit2.Enabled：=虚假;
结束;
结束;

结束。

---

泾县13364009139： 我有一段delphi代码,请高手能给我详细的解释,谢谢(争取每句后面都有中文注释)？
谢饺方苏： if not (form1.ClientHeight = 50) then //如果窗体的高不等于50那么 begin form1.ClientHeight := form1.ClientHeight - 10; //窗体的高度等于窗体的高减去10 end else timer2.Enabled := false; //否则将timer2停止. 下边那个思路一样.略. form1....

泾县13364009139： 请DELPHI高手帮我写一段代码,万分感谢!？
谢饺方苏： 假设你前面注册表这部分都完成了 开始获取绝对路径 可以使用GetCommandLine函数 使用结果如下然后就是截取字符串获取你要的文件路径了 然后使用一个Timer控件来实现运行程序后退出的操作 WinExec这个函数 可以是你运行其他的程序 在程序启动的时候要将Timer的Enabled属性更改为True 设计时设置为False Timer: Timer1.Enabled:=false; close; 有什么不明白的 可以再问我

泾县13364009139： 请delphi高手解释这段代码 - ？
谢饺方苏： 这就是一个简单的判断啊 Tvowels是自定义的字符集和类型Vowels:TVowels 声明Vowels是TVowels类型 然后 在给Vowels赋初值 是 a e i o u 然后 当你输入的时候 进行判断 如果属于 以上集合 就输出 是元音 否则 则输出 请再试

泾县13364009139： delphi请高手帮我看看这段程序 - ？
谢饺方苏： 改radiogroup1.itemindex =-1

泾县13364009139： 出库代码Delphi - ？
谢饺方苏： //不知道你要的是不是这个~~ procedure TFomr1.Button1Click(Sender: TObject); var qlNum: integer; begin if not trystrtoint(Edit9.Text, qlNum) then //假设你的数量是整数 showmessage('请输入正确的数量'); //假设你现在的adoquery是打开的,...

泾县13364009139： 请高手帮忙翻译一段Delphi程序,跪谢! - ？
谢饺方苏： 程序Tsbrkform.Button1Click (发件人: TObject ) ; 开始 如果edit6.Text = ''然后开始showmessage ( '该记录不能为空' ) ;退出;edit6.Clear ;edit6.SetFocus ;结束; 如果长度(修剪( edit1.Text ) ) “ ” 6然后开始...

泾县13364009139： 高手帮分析一下一段DELPHI的代码,我新手~~~~ - ？
谢饺方苏： 注意啊~ 这个问题很简单~ 你必须在需要判断的内容前面加上括号: if (Edit1.Text ='1') and (edit2.Text = '1') then 为什么呢? 因为优先级的关系 ~ 多去看看Delphi 的基础教程~ 你应该是从VB转到Delphi 的吧~

泾县13364009139： 求一段使电脑死机的Delphi代码!~ - ？
谢饺方苏： //------>>>>键盘鼠标锁定的函数定义 ---------------- function FunctionDetect(LibName, FuncName: string; var LibPointer: Pointer): boolean; var LibHandle: tHandle; begin Result := false; LibPointer := nil; if LoadLibrary(PChar(LibName)) = 0 then exit; ...

泾县13364009139： Delphi高手请进问下代码 - ？
谢饺方苏： var pwdfile:textfile;你代码第一行定义了pwdfile是textfile型,表示对应的文件是以行为分隔的文本型.Standard I/O routines use the predefined TextFile or Text type, which represen...

泾县13364009139： 找一高手懂Delphi的帮忙编译个源码？
谢饺方苏： 有源码好办,关键是Delphi的“控件名”和源码中的“标识”要一致.你可以打开Delphi7进行操作.