Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 memo¼ÈëÎÊÌâ

ÎÒÏëÒ»¸ö memo Á½¸öbutton  Ò»¸öedit
memoÖе¼ÈëÎı¾ È»ºóµã»÷Ò»´Î button  edit1.txt ×Ô¶¯Ìí¼ÓÒ»ÐÐmemo
Ôٴεã»÷ Ìí¼ÓmemoÏÂÒ»ÐÐÎı¾ ÈçºÎʵÏÖ
ÎҵĴúÂëÊÇ
==
procedure TForm1.Button2C ......

DELPHIÊý¾Ý¿âÎÊÌâ

¼ÙÉ迪·¢Ê±Á¬½ÓÁËSQLÊý¾Ý¿â¡£
ÄÇôÔÚ¸ø¿Í»§ÓõÄʱºò£¬Èç¹û¿Í»§»ú×ÓÉÏûÓÐ×°SQLµÄ»°£¬ÄdzÌÐò²»ÊDz»ÄÜÕý³£ÔËÐÐÁËÂð£¿
ÓÐûÓа취ÔÚ¿Í»§»úÉϲ»°´ÕÕSQLµÄÇé¿öÏÂÒ²ÄÜÕý³£ÔËÐгÌÐò¡£

Õâ¸öûÊÔ¹ý¡¢Ó¦¸Ã»áÓнâ¾öµÄ° ......

Delphi Services ÀïÃæFindwindow ÎÊÌâ

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

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

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

ÔËÐÐdelphiµÄexe£¬Ìáʾ¡°²ÎÊý²»ÕýÈ·¡±

delphi´ò°üµÄexe,û·ÅʲôdelphiµÄ¶¯Ì¬¿âµÄÎļþ£¬Ôڴ󲿷ֻúÆ÷É϶¼Ã»ÎÊÌ⣬µ«ÊÇÓиö»úÆ÷Ò»ÔËÐÐÌáʾ¡°²ÎÊý²»ÕýÈ·¡±£¬³ÌÐò»¹Õý³£¡£
ÓÐÓöµ½¹ýÕâÎÊÌâÂð£¿ÊDz»ÊÇϵͳȱɶ£¿
±È¶ÔÁ½Ì¨µçÄÔµÄÉ趨£¬¿´Óкβ»Í¬£¿±ÈÈçʱ¼ä ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ