Embarcadero RAD Studio XE3 Architect Multilingual
English/French/German/Japanese
کد:
Web Installer (53 MB): http://altd.embarcadero.com/download/radstudio/xe3/radstudio_xe3_win_esd.zip
Full DVD ISO (3.12 GB): http://altd.embarcadero.com/download/radstudio/xe3/delphicbuilder_xe3_win.iso
Dummy-Serial: MAFA-A3D7PD-FJBBAE-FACN
The serial number is only valid for installation, it will unlock and install all features, not just the limited trial features.
The patch - as always - just enables RAD Studio to accept license files from keygens or modified by the user.
واسه دلفی 7 کامپوننت جدید نداری؟
یکی از قابلیتهای جدید که به xe3 اضافه شده دایرکتیو inline هست
کد:
procedure MyProc(x:Integer); inline;
begin
// ...
end;
function MyFunc(y:Char) : String; inline;
begin
// ..
end;
این رهنمو به کامپایلر میگه کد مورد نظر رو از لحاظ اجرا بهینه کنه این کار باعث افزاریش سرعت اجرای اون تیکه کد میشه
برنامه زیر را در نظر بگیرید
کد:
{$APPTYPE CONSOLE}
uses
MMSystem;
function Max(const X,Y,Z: Integer): Integer;inline
begin
if X > Y then
if X > Z then Result := X
else Result := Z
else
if Y > Z then Result := Y
Reasons to Migrate to from Delphi 7 to Delphi 2009
Embarcadero Technologies - 28 -
else Result := Z
end;
const
Times = 10000000; // 10 million
var
A,B,C,D: Integer;
Start: LongInt;
i: Integer;
begin
Random; // 0
A := Random(4242);
B := Random(4242);
C := Random(4242);
Start := TimeGetTime;
for i:=1 to Times do
D := Max(A,B,C);
Start := TimeGetTime-Start;
writeln(A,', ',B,', ',C,': ',D);
writeln('Calling Max ',Times,' times took ',Start,' milliseconds.');
readln
end.
کد فوق باعث میشود تا تابع max حدود 10 میلیون بار اجرا شود
در یک سیستم با مشخصات Pentium M 1.8GHz with 2GB RAM با رهنمود و بدون آن 2 نتیجه به دست آمد
با inline زمان 25 میلی ثانیه
بدون inline زمان 68 میلی ثانیه
از قابلیتهای دیگری که به دلفی cxe3 اضافه شده ریپورت برای memory leak میباشد
memory leak هنگامی بوجود می اید که یک شیی بعد از ایجاد و استفاده حافظه تخصیص داده شده به آن آزاد نگردد
مثال:
کد:
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.Add('Memory leak!') ;
end;
در مثال فوق TStringList ایجاد شده بعد از استفاده با دستور sl.free; حافظه تخصیص یافته به آن آزاد نشده است
با استفاده از دستور ReportMemoryLeaksOnShutdown اگر هنگام بسته شدن برنامه memory leak در حافظه وجود داشته باشد پیغام Unexpected Memory Leak به نمایش در خواهد آمد
کد:
begin
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
//source "by" Delphi
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, MainForm) ;
Application.Run;
end.
