¼±£¡°Ñ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++¶¨Î»É¾³ýÒ»ÐеÄÎÊÌâ¡£
ÎÊÌâ±³¾°£º
ËùÐèÊý¾ÝÏ൱´ó¡£aÓëbÎļþ¾ùΪһ×éÎļþ£¨a1£¬a2¡£¬b1£¬b2¡£©£¬aÎļþÓÐ×î´óÊý¾ÝÐÐÊý£¨Èç5000£©£¬ÒÔÐеÄÐÎʽ£¬´ÓaÎļþÖжÁÈ¡Êý¾Ý£¬½«aÖв»ÄÜ´¦ÀíµÄÊý¾Ý·ÅÔÚbÎ ......
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......