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

Delphi Ö®ÔËËã·ûÖØÔØ

Delphi 7Ö®ºóµÄ°æ±¾£¬Ôö¼ÓÁËÔËËã·ûµÄÖØÔØ¡£ËäÈ»²»¾¡ÈËÒ⣨ÐèÒªÐ´ÌØ¶¨Ó¢ÎÄ£©£¬µ«ÓÐ×ܱÈûÓÐÇ¿¡£
Àý£º
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  T3DPoint = record
    X, Y, Z: Double;
    class operator ADD(ALeftPoint, ARightPoint: T3DPoint): T3DPoint; {ÖØÔØ'+'ÔËËã·û}
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
{ T3DPoint }
class operator T3DPoint.ADD(ALeftPoint, ARightPoint: T3DPoint): T3DPoint;
begin
  Result.X := ALeftPoint.X + ARightPoint.X;
  Result.Y := ALeftPoint.Y + ARightPoint.Y;
  Result.Z := ALeftPoint.Z + ARightPoint.Z;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  A, B, Z: T3DPoint;
begin
  A.X := 1; A.Y := 1; A.Z := 1;
  B.X := 3; B.Y := 3; B.Z := 3;
  Z := A + B;
  ShowMessageFmt('%f, %f, %f', [Z.X, Z.Y, Z.Z]); {4.00, 4.00, 4.00}
  //ShowMessage(FloatToStr(Z.X) + ',' + FloatToStr(Z.Y) + ',' + FloatToStr(Z.Z)); {4, 4, 4}
end;
end.
ÏÂÃæ¸½ÉÏËùÓеÄÔËËã·û:
     ÖØÔØÌØ¶¨Ó¢ÎÄ                        ÐÐΪ£¨»òÄ¿Êý£©    ·½·¨                                                                   &nbs


Ïà¹ØÎĵµ£º

Delphi×Ö·û´®º¯Êý´óÈ«

Delphi×Ö·û´®º¯Êý´óÈ«
uses StrUtils;
¡¾×Ö·û´®º¯Êý´óÈ«¡¿
      Êײ¿ function AnsiResemblesText(const AText, AOther: string): Boolean;
      $[StrUtils.pas
      ¹¦ÄÜ ·µ»ØÁ½¸ö×Ö·û´®ÊÇ·ñÏàËÆ
      ......

ÎÒµÄDelphi¿ª·¢¾­Ñé̸

 
ÎÒµÄDelphi¿ª·¢¾­Ñé̸

×÷ÕߣºIcebird
--------
¿ª·¢»·¾³
--------
    Delphi
7ÊÇÒ»¸öºÜ¾­µäµÄ°æ±¾£¬ÔÚWin2000/XPÏÂÍÆ¼ö°²×°Delphi 7À´¿ª·¢Èí¼þ£¬ÔÚVistaÏÂÍÆ¼öʹÓÃDelphi 2007¿ª·¢Èí¼þ¡£°²×°ºÃDelphi
7ºó£¬Ó¦Á¢¼´°²×°Delphi 7 Update Pack 1£¬Delphi
2007Ôò½¨Ò龡Á¿°²×°×îР......

¡¾×ª¡¿delphi¶ÁдtxtÎļþ

http://meidi152.blog.163.com/blog/static/5423302009610103610744/
 
1. memo¿Ø¼þ¶ÁÈ¡txt
memo1.Lines.LoadfromFile('E:\*\*.txt');
2.
Procedure NewTxt(FileName:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {¿´ÎļþÊÇ·ñ´æÔÚ,ÔÚ¾Í刪³ý}
AssignFile(F, ......

Delphi¿ç½ø³Ì·ÃÎÊDBGRID

´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
      ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......

¸ÄдÁËÒ»¸ö³£ÓõÄDELPHIµÄ¼Ó½âÃܺ¯Êý

DELPHI
//////////////////////////////////
Function   EncrypKey   (Src:String;   Key:String):string;
  var  
  idx   :integer;  
  KeyLen   :Integer;  
  KeyPos   :Integer; &nbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ