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

DelphiÏà¹ØÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ



  ÔÚ°²×°Íê³ÉDelphiµÄʱºò£¬´ò¿ªDelphi½øÈë´°¿Ú£¬µãÔËÐеÄʱºòΪʲô×Ô¶¯Í£Ö¹ÔËÐÐÁË¡£
ʲôÒâ˼£¬ÊÇн¨µÄÓ¦ÓÃÔËÐÐÍ£Ö¹£¬»¹ÊdzÌÐòÍ£Ö¹ÁËÄØ¡£

ûÃ÷°×LZÒâ˼~~

ÒýÓÃ
ÔÚ°²×°Íê³ÉDelphiµÄʱºò£¬´ò¿ªDelphi½øÈë´°¿Ú£¬µãÔËÐеÄʱºòΪʲô×Ô¶¯Í£Ö¹ÔËÐÐÁË¡£



ÊÇ consonle ÏµĻ¹ÊÇ£¿


  ¾ÍÊÇÀýÈçн¨ÁËÒ»¸öform´°Ì壬ÉÏÃæ·½Á˼¸¸ö¿Ø¼þ£¬Õâ¸öʱºòµãÔËÐУ¡~°´ÀíÓ¦¸Ã»á³öÏÖÎÒ½¨µÄ½¨µÄÄǸö´°¿ÚÓë¿Ø¼þ£¬µ«µãÔËÐа´¼þµÄʱºò£¬Ö±½Ó¾ÍÍ£Ö¹ÁËÔËÐС££¨Òâ˼ÊǸù±¾Ã»Óп´µ½ÔËÐнá¹û¾ÍÍ£Ö¹ÁË£©

Ìù¹¤³Ì²¿·ÖµÄ´úÂë¿´Ï£®¡¡¿ÉÄÜÊÇ°Ñ Application.CreateForm ¸øÈ«É¾Á˰ɣ®

Ä¿標exeÊÇ·ñÒÑ運ÐУ¬ÈôÓУ¬ÏÈ關閉


unit sd1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TF_zct = class(TForm)
  Edit1: TEdit;
  Edit2: TEdit;
  ADOConnection1: TADOConnection;
  Label1: TLabel;
  Label2: TLabel;
  Button1: TButton;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  F_zct: TF_zct;

implementation

{$R *.dfm}

procedure TF_zc


Ïà¹ØÎÊ´ð£º

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

Õâ¸öSQLÓï¾äÓÐʲôÎÊÌâ? - Delphi / ·Ç¼¼ÊõÇø

select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )

¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö

Mark!!!!!!

se ......

delphiÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ