Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¼±£¡°Ñ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


Ïà¹ØÎÊ´ð£º

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

Delphi ʹÓÃshockwaveflash¿Ø¼þµÄÎÊÌâ

ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......

delphiÖÐselect µÄ whereºóÃæµÄid=±äÁ¿Ôõôд°¡

ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾ­È¡µÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......

ÈçºÎÔÚdelphiÀïÓôúÂëʵÏÖ´´½¨VPNÁ¬½Ó?

ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
  GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ