delphi°´¼üÎÊÌâ.....µÈ´ý½â¾ö
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (shift>=[ssCtrl]) and (key=78) then
begin
application.MessageBox('°´¼üÕýÈ·,ÇëÖ´ÐÐÏÂÒ»²½²Ù×÷','Ìáʾ',MB_ok);
end;
end;
ÔõÑùÈð´ÍêCtrl+NÖ®ºó,Ö´ÐÐÏÂÒ»²½µÄ²Ù×÷,ctrl+N²»¸øÓÃ.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (shift>=[ssCtrl]) and (key=78) and (flag=false) then
begin
flag = true;
application.MessageBox('°´¼üÕýÈ·,ÇëÖ´ÐÐÏÂÒ»²½²Ù×÷','Ìáʾ',MB_ok);
end;
end;
ÔËÐеÄʱºòÔÚflag=false´¦±¨´í..ÇëÖ¸½Ì....¸Õѧϰdelphi,лл!
flag:= false
ÕâÀïÊǸ³Öµ²»ÊÇÅжϣ¡
лл,ÎÒÒѽâ¾ö
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.
ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£
ÒýÓÃ
......
СµÜÎÒÓÃADOÁ¬½ÓSQL server 2000Êý¾Ý¿â£¬È»ºóÔÚDBGridÖÐÏÔʾ£¬ÏÖÔÚÏë°ÑÔÚDBGridÖвéѯµ½µÄÊý¾ÝiPlot×÷ͼ£¬ÇëÎÊÈçºÎʵÏÖÔÚDBGridÖеÄÊý¾Ý¶ÁÈ¡£¬¶Á³öµÄÊý¾ÝÊÇSTRINGÀàÐ͵ģ¬ÈçºÎÓÐЧµÄת±ä³ÉÊý¾Ý¿âÖÐËù´æ´¢µÄDOUBLEÀàÐ ......