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

DELPHI´°Ì廥Ïàµ÷Óóö´í

´ó¼ÒºÃ£¬ÓÐÒ»ÄÑÌâ²»ÖªµÀÔõô½â¾ö¡£
ÒªÇóform1µã»÷°´Å¥¿ÉÒÔµ½form2£¬form2µã»÷°´Å¥ÓÖ¿ÉÒԻص½form1¡£
try
if not Assigned(form2) then
begin
  form2 := Tform2.Create(nil);
  end;
  form2.ShowModal;
  finally
    if Assigned(form2) then
      FreeAndNil(form2);
end;
ÕâÑùд´úÂëµ÷µÚ¶þ´ÎµÄʱºò¾Í»áÌáʾ´°ÌåÒÑ´æÔÚ

try
if not Assigned(form2) then
begin
  form2 := Tform2.Create(nil);
end;
Close;
finally
end;
ÕâÑùд¶àµ÷¼¸´ÎûÎÊÌ⣬µ«ÊÇÖмäÔÙ´ò¿ªÆäËü´°¿ÚµÄ»°¾ÍÎÞ·¨»Øµ½form2ÁË

try
if not Assigned(form2) then
begin
  form2 := Tform2.Create(nil);
end;
except
  FreeAndNil(form2);
  form2 := Tform2.Create(nil);
ÕâÑùдµÄ»°¾Íû°ì·¨ÈÃform2ÏÔʾ×Ô¼ºÏëÒªÏÔʾµÄÄÚÈÝ

´ó¼ÒÓÐûÓÐÓöµ½ÕâÖÖÇé¿ö£¿ÄѵÀdelphiÕæµÄ²»ÄÜÏñÍøÕ¾ÄÇÑù¸÷¸öÒ³Ãæ¿ÉÒÔËæ±ã·µ»ØÂð£¿
²Ë²ËÄñ»¹Çë´ó¼Ò¶à¶àÖ¸µã


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

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

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

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

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

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

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

delphi編寫×Ô動¸üгÌÐò

ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......

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

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ