خدایا شرم دارم از انسانیتم

خدایا شرم دارم بگم انسانم!

وقتی اینگونه هم نوعان ما، این گونه همدیگر را قتل عام می کنند

واقعا نمیدونم تا کی می خوان به خوی وحشی گری شون ادامه بدن؟

البته اگه میشه به این بگی وحشی گری؟

خدا تا کی می خوای بشینی کاری نکنی؟

اگه منتظری و یا می خوای ما ها را امتحان کنی بگم ما رفوزه ایم

این اعراب اون موقع که ادعای مسلمانیتشون میشد به بچه های خردسال فرزند پیغمبرشون که ادعای پایبندی بهش داشتند

رحم نکردند حالا که دیگه ........

خدایا خودت به داد حداقل این زنان و کودکان بی گناه برس اوها که موشک ندارند پس

به کدامین گناه کشته می شوند؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

کتاب Delphi XE3 Starter Essentials

سلام بر همراهان عزیز

در این پست یک کتاب خوب به نام Delphi XE3 Starter Essentials گذاشتم امیدوارم بدردتون بخوره البته همونطور که از اسمش پیداست خلاصه و موارد موردنیاز است

دانلود

برای دانلود اون دکمه ای که حجم دانلود نوشته (2.24M)  را کلیک کنید و منتظر بمانید

FireMonkey Premium Style Pack

با سلام

اگر دنبال ظاهر مناسب(Style) برای برنامه هایی که با Firmonkey نوشته اید اینجا می توانید به هدفتون برسید

برای  iOS, Android, Windows and Mac.. .

دانلود

ehlib 6.3.175

با سلام

کامپوننت حرفه ای ehlib که دارای یک گرید بسیار حرفه ای است برای دانلود گذاشتم.برای دلفی xe6

crack Delphi Xe6

سلام همراهان عزیز

کرک دلفی 6 به در خواست یکی از دوستان

دانلود

شماره اتوماتیک در Firebird

با سلام خدمت دوستان و همراهان عزیز

یکی از مشکلات FB نداشتن شماره اتوماتیک autoincerement است برای اینکه در فیلدهاتون شماره اتوماتیک داشته باشید باید روندی را طی کنید.

ابتدا باید برای فیلدتون یک Generator ایجاد کنید. اگر از ide استفاده می کنید برای ساخت جدول هاتون این کار به سادگی صورت می پذیرد.

حالا اگه بخواهیم که این فیلد دیتابیس شماره خودکار اختصاص بده باید در هنگام اینسرت کردن چند کدی بنویسید

GEN_ID(GEN_T1_ID, 1)

این مقدار باید به جای مقدار فیلد شماره اتوماتیک وارد شود

Insert into  t1(id,b) values GEN_ID(GEN_T1_ID, 1),'sssssssss');

GEN_T1_ID نام generator شما است.

اما نکته اساسی اینجاست اگه بخواهیم در زبان های برنامه نویسی مثل دلفی استفاده کنیم چه کار باید کرد.طبیعتا چون نوع فیلد عددی است چنین مقدار نمی توان استفاده کرد. یا مثلا اگر از dbgrid استفاده می کنیم چنین کاری به راحتی امکان پذیر نیست. برای این کار باید شما یک تریگر بنویسید.

به این شکل

SET TERM ^ ;



CREATE OR ALTER TRIGGER Auto_id FOR T1
ACTIVE BEFORE INSERT POSITION 0
AS
begin
 if (NEW.id is NULL) then NEW.id = GEN_ID(gen_T1_id, 1);
 else   NEW.id = GEN_ID(gen_T1_id, 1);
end
^


SET TERM ; ^

البته این تریگر تجربه شخص خودمه چون سایت FB یک جور دیگه نوشته بود کلی باهاش مصیبت داشتم در دلفی!!

موفق باشید

تهیه عکس از صفحه نمایش و ذخیره در فایل

var
  DCDesk: HDC;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Height := Screen.Height;
  bmp.Width := Screen.Width;
  DCDesk := GetWindowDC(GetDesktopWindow);
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
         DCDesk, 0, 0, SRCCOPY);
  bmp.SaveToFile('ScreenShot.bmp');
  ReleaseDC(GetDesktopWindow, DCDesk);
  bmp.Free;

end;