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

delphi Êý×é¸úfor

ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****

Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: Integer;
  stra,strb : string;
begin
  setlength(arr,4);
  for i := 0 to 3 do
  begin
    arr[i] := i+1;
  end;

  for i := 0 to high(arr) do
  begin
    stra := '';
    for j := 0 to i do
    begin
      stra := stra + '*';
    end;
    strb := strb + stra + #13;
  end;
  ShowMessage(strb);
end;


Ïà¹ØÎÊ´ð£º

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

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

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

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

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

delphi 2010 °²×°ÎÊÌ⣿

ÏÂÔØÁË×îеÄdelphi 2010,°²×°£¬
×îа汾£¬°ïÖúÐèÒªµ¥¶À°²×°£¬°ïÖúÎļþ×öµÄ±ÈÒÔǰºÃЩ
ÔÚÎÒ¸öÈ˵çÄÔÉϳɹ¦°²×°£¬Ê¹ÓÃÕý³££»
ÓùâÅ̽«°²×°Îļþ¿½µ½°ì¹«ÊÒ£¬°²×°£¬Ò»ÇÐÕý³££»
°²×°Íê³Éºó£¬Æô¶¯delphi 201 ......

Delphi Services ÀïÃæFindwindow ÎÊÌâ

ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6

Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......

ÐÂÊÖ¹ØÓÚdelphi³ÌÐò´ò°üµÄÎÊÌâ

1.ÍøÉÏ˵ÓÃdelphi×Ô´øµÄInstallshield for delphi±È½ÏºÃ,µ«ÊÇÎÒµÄÊÇÍøÉÏϵİ汾,ÀïÃæÊÇ·ñÓÐÕâ¸ö¹¦ÄÜ
2.Èç¹ûÓÐÔÚÄÄÀï.
3.Èç¹ûûÓÐÔÚÄÄÀï¿ÉÏÂÔØ
4.ËûµÄÏêϸʹÓ÷½·¨,Ó¦´ò°üÄÇЩÎļþ.
ÒÔÉÏÎÊÌâÇë×ö³öʵÖÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ