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;
Ïà¹ØÎĵµ£º
³£ÓõÄBCB & Delphi º¯Êý
¹Ø¼ü×Ö£ºBCB,delphi,º¯Êý
×÷ÕߣºÂ³Ð¡°à ¸üУº2003-08-12 ä¯ÀÀ£º12686
·ÒëµÄ²»ºÃ£¬Çë¼ûÁ¡£
·Ò룺³С°à
Îļþ£º ActnList
CreateAction º¯Êý ´´½¨Ò»¸öÖ¸¶¨ÀàÐ͵ÄAction£¬ÏÔʾÔÚaction list editorÖС£
EnumRegisteredAction ¹ý³Ì ö¾ÙÒѾע²áµÄ ......
Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ
Round ת»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ
Trunc ת»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö
IntToStr ½«Êýֵת»»Îª×Ö·û´ ......
¼¼Êõ½»Á÷,DH½²½â. ¹þ¹þ,ÎÒ³ÐÈÏÎÒÊDZêÌâµ³.
×î½ü¿´ÌìÊéÒ¹¶ÁÀïÃæÊǶÔCÓïÑԵĴúÂë·´»ã±à,²»´í,¿ÉϧDelphiûÓÐÕâÑùµÄÊé,ÄÇÎÒÃÇ×Ô¼º¶¯ÊÖ°É.
Ê×ÏȽøÈëForÑ»·ÁË. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ......
¼¼Êõ½»Á÷,DH½²½â. Õâ¸öÊÇÔÚCSDNÉÏÃæ¿´¼ûµÄÎÊÌâ.ÎÒ˵˵×Ô¼ºµÄÏë·¨. procedure TForm1.btn1Click(Sender: TObject);
var
Str:String;
begin
Str:='abc' ;
Str:=str+'d';
str:=copy(Str,1,3);
str:=UpperCase(str);
end;
ÎÊÌâ1´ð°¸:2010ÏÂ
Unit4.pas.29: begin
005144E0 55 p ......