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

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

xml´´½¨ºóÈçºÎÏú»Ù? - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......

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

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

delphiÉÏϼüÇл»½¹µã

Çë½Ì¸÷λ´óÏÀ£º
DelphiÖÐÓÃÉÏϼü»ò»Ø³µ¼üÇл»ÊäÈë¿ò£º
ÔÚedit1µÄOnkeyPressʼþÀ
  if (key in[#13,#38]) then
  begin
  edit2.SetFocus ;
  end;
Ϊʲô°´»Ø³µ¼ü¿ÉÒÔ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ