DelphiÖÐʹÓÃ@È¡º¯ÊýµØÖ·µÄÎÊÌâ
ÀýÈçÒÔÏ´úÂ룺
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure one();
function two(x,y:integer):integer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.one();
var
p : pointer;
begin
p:=@two;
end;
function TForm1.two(x,y:integer):integer;
begin
Result:=x+y;
end;
end.
ÔÚDelphi5ÖУ¬Ã»ÓÐÈκÎÎÊÌ⣬µ½ÁËdelphi7¡¢2007¡¢2009Öоͻᱨ´í£ºÐèÒª±äÁ¿£¨Delphi6ûÊÔ£©
ÔÒòÊÇа汾ÖÐÒªÇ󷵻غ¯ÊýµØÖ·µÄº¯Êý±ØÐëÊÇÈ«¾Öº¯Êý£¬ËùÒÔ³ÌÐòÒª¸Ä³ÉÕâÑù£º
................................
var
Form1: TForm1;
function two(x,y:integer):integer;
................................
function two(x,y:integer):integer;
Ïà¹ØÎĵµ£º
Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ
Round ת»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ
Trunc ת»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö
IntToStr ½«Êýֵת»»Îª×Ö·û´ ......
32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æÈ¡×¢²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
&n ......
ÔÚдc++µÄ½Ó¿Úʱ¿ÉÒÔ½«Á½¸öÏ໥ÒýÓõÄÀà·ÅÔÚÁ½¸ö.hÎļþÖУ¬È»ºó½«Õâ¸ö½Ó¿Ú·Òëµ½delphiʱ£¬·ÅÔÚÁ½¸öÎļþÀï¾Í²»¿ÉÄÜÁË¡£Ö»ÄÜ·ÅÔÚͬһ¸öunitÖС£²¢ÇÒÒª½«ÕâÁ½¸öÀà¶¼·ÅÔÚͬһ¸ötypeÏÂÃæ½øÐж¨Ò壬µ±Ç°ÃæÒ»¸öÀàҪʹÓúóÃæÒ»¸öÀàʱ£¬ÐèÒªÔÚÇ°ÃæÒ»¸öÀàµÄÇ°Ãæ·ÅÖÃÒ»¸öǰÖÃÉùÃ÷£¬²¢ÇÒǰÖÃÉùÃ÷Ö»ÄÜÊÇIVariantMap = class;ÕâÖÖ¸ñʽ¶ø² ......
ÍøÉÏDownµÄÒ»¸öµ¥Ôª.×Ô¼º¸ÄÁËÏÂ. unit utCRC32;
interface
uses
Windows,SysUtils,Classes;
const //Crc32±í
Crc32Tab: Array[0..$FF] of LongInt =
($00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f,
$e963a535, $9e6495a3, $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988,
$0 ......