با سلام
دلفی و لازاروس شباهتهای زیادی به هم دارند(البته لازاروس به دلفی ۷ شباهت داره)هر چند دلفی به خاطر تیم توسعه متمرکز و قوی که داره از لازاروس جلوتره ولی خب چیزهایی هم تو لازاروس پیدا میشه که تو دلفی نیست
۱.استفاده از متن(STRing) در Case
case aName of 'Free Pascal': Writeln('Lazarus IDE'); 'C++': Writeln('CodeBlocks IDE'); end;
۲.استفاده از دستورالعملهایی مثل =*,=-,=+,=/ در کدنویسی
var aName: string; begin aName:= 'Free'; aName += ' Pascal'; Writeln(aName); // Free Pascal end; x:= 10; x+= 15; Writeln(x);
۳.ایجاد رکورد(Bit packed record)یک بایت هست که میشه به تک تک بیتهاش دسترسی داشت
type tbit = 0..1; tBitsByte = bitpacked record bit0 : tbit; bit1 : tbit; bit2 : tbit; bit3 : tbit; bit4 : tbit; bit5 : tbit; bit6 : tbit; bit7 : tbit; end; var aByte: tBitsByte; begin aByte.bit0:= 1; aByte.bit1:= 0; aByte.bit2:= 1; Writeln(Byte(aByte));
۴.تعریف خاصیت(property)در خارج از کلاس
var x: Integer; procedure SetX(aX: Integer); begin x:= ax; end; function GetX: Integer; begin Result:= x; end; property MyX: Integer read GetX write SetX; // Main program begin MyX:= 170; Writeln(MyX); end.
۵.مشکل تغییر نام خودکار کنترلها
شما یک دکمه و یک تکست باکس بندازید روی فورم و در onclick دکمه کد زیر رو بنویسین
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Edit1.text); end;
خب حالا از پنجره Propertise اسم کنترل تسکت باکس رو به چیز دیگه تغییر بدید مثلا msg خب حالا میبینید که دلفی هیچ واکنشی نشون نمیده ولی لازاروس تمام Edit1 ها رو درون سورس به msg تبدیل میکنه و دیگه نیازی نیست شما به صورت دستی این کارو در سراسر کدتون انجام بدید
موفق باشید
دیدگاهتان را بنویسید لغو پاسخ