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

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ÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

´ó¼Ò¾õµÃÓÃdelphi×öÀàËÆ¿áÎÒÒôÀֺеÄÈí¼þ¿ÉÐÐÐÔÈçºÎ£¿

ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.

ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£

ÒýÓÃ ......

¹ØÓÚDelphiʹÓÃADOÁ¬½ÓSQL server 2000Êý¾Ý¿âµÄÎÊÌâ

СµÜÎÒÓÃADOÁ¬½ÓSQL server 2000Êý¾Ý¿â£¬È»ºóÔÚDBGridÖÐÏÔʾ£¬ÏÖÔÚÏë°ÑÔÚDBGridÖвéѯµ½µÄÊý¾ÝiPlot×÷ͼ£¬ÇëÎÊÈçºÎʵÏÖÔÚDBGridÖеÄÊý¾Ý¶ÁÈ¡£¬¶Á³öµÄÊý¾ÝÊÇSTRINGÀàÐ͵ģ¬ÈçºÎÓÐЧµÄת±ä³ÉÊý¾Ý¿âÖÐËù´æ´¢µÄDOUBLEÀàÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ