急!把delphi代码转换成VC++代码,请高手帮帮忙
procedure TSG_Form.SpeedButton1Click(Sender: TObject);
begin
CurrentSGWave := (Sender as TSpeedButton).Tag;
SetupWavePara_Btn.Enabled := True;
ReDraw_timer.Enabled := False;
if (CurrentSGWave = 0) or (CurrentSGWave = 6) or (CurrentSGWave = 7) then
begin
SetupWavePara_Btn.Enabled := False;
ReDraw_timer.Enabled := True;
end;
if SGSendWave then
begin
DownLoad;
DrawWave(Wave_Pic);
end
else
DrawWave(Wave_Pic);
end;
procedure TSG_Form.TrigerType_CBChange(Sender: TObject);
begin
case TrigerType_CB.ItemIndex of
0: SGSetConByte := SGSetConByte and $fb; // 1111 1011 内触发
1: SGSetConByte := SGSetConByte or $06; // 0000 0110 外触发上升沿
2: begin
SGSetConByte := SGSetConByte or $04;
SGSetConByte := SGSetConByte and $fd; // 1111 1101 外触发下降沿
end;
end;
SetCON(SGSetConByte, 0);
end;
procedure TSG_Form.Frequency_EditExit(Sender: TObject);
begin
try
SGFrequency := StrToFloat(F
相关问答:
请问各位高手如何用C/C++获得系统未安装补丁
好像很专业的东西。。。
查注册表
每个补丁如果安装了都会在注册表里面登记
请问能不能更清晰些,我想用c\c++查出来,不好意思,我是新手。还望指教。谢
分值 ......
我写了个小程序,上面添加了一个shockwaveflash控件,然后在movie里写入swf文件的路径,然后执行没有问题。
当我把这个程序转移到另一台电脑执行时, shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
由于客戶端有的文件經常更新(遠程的,不是局域網),
所以想寫個自動更新的 程序。
看網上的 方法資料,知道些方法,但不知道具體怎么寫。
......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
我的程序中有一段更新某一条记录的语句:
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......