چند سوال

[Harry]

سلام
می خواستم خواهش کنم در مورد موارد زیر برام توضیح بدین و در صورت امکان یه مثال هم از هر کدوم بهم بگین .
1- بلوک Try...Finally
2- GetTickCount
3-RandSeed
4- تابع Format

ممنون . :lol:

[M@hdi]

سلام
از GetTickCount میتونی برای بدست اوردن زمان اجرای برنامه استفاده کنی به نمونه برنامه زیر نگاه کن :


prcedure Tform1.formcreate(sender :Tobject);
var
Start , i , n : longint;
begin
start:=GetTickCount;
n:=0;
for i:=1 to 5000000 do
begin
inc(n);
end;
form1.caption := 'Elapsed Tim in Miliseconde : ' + IntToStr(GetTickCount - Start );
end;

[said ali]

با سلام
اون دوستمون یکیشو گفت اینم یکی دیگه:
از بلوک try..finally برای ازاد سازی منابع در اکثر موارد استفاده میشود. مثلا فرض کن توی برنامه از یک TBitmap استفاده میکنی و بعد از Create کردن اون از اون استفاده میکنی اگر در هنگام استفاده خطایی رخ بده و از برنامه خارج بشی اون قسمت از حافظه معمولا قفل شده میمونه که برای اینکه از این کار جلوگیری کنی تمام عملیات رو توی این بلوک میذاری که حتی اگر خطایی روی داد در انتهای کار قطعا حافظه ازاد شود.فکر کنم فهمیدی هر کجاشو نفهمیدی بنویس.

[Harry]

ممنون از پاسختون .
اگه امکان داره از بلوک Try..Finally یه قطعه کد نمونه هم بنویسید.
باز هم ممنون .