ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 6 از 6
  1. #1
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419

    مجموعه سورس هاي دلفي

    در قسمت قصد داريم مجموعه سورس هاي دلفي را قرار دهيم؟


    در ابتدا اموزش تبديل تاريخ ميلادي به شمسي اماده كردم

    کد:
    function shamsi(tt:tdatetime):string; var str,y,m,d:string; yi,mi,di:integer; begin str:=datetostr(tt); y:=copy(str,1,4); m:=copy(str,6,2); d:=copy(str,9,2); yi:=strtoint(y); mi:=strtoint(m); di:=strtoint(d); if (yi mod 4=0) then if mi>2 then begin tt:=tt+1; str:=datetostr(tt); y:=copy(str,1,4); m:=copy(str,6,2); d:=copy(str,9,2); yi:=strtoint(y); mi:=strtoint(m); di:=strtoint(d); end; if ((mi<3) or ((mi=3) and (di<21))) then begin yi:=yi-622; end else begin yi:=yi-621; end; case mi of 1: if di<21 then begin mi:=10; di:=di+10; end else begin mi:=11; di:=di+10; end; 2: if di<20 then begin mi:=11; di:=di+11; end else begin mi:=12; di:=di-19; end; 3: if di<21 then begin mi:=12; di:=di+9; end else begin mi:=1; di:=di-20; end; 4: if di<21 then begin mi:=1; di:=di+11; end else begin mi:=2; di:=di-20; end; 5: if di<22 then begin mi:=mi-3; di:=di+10; end else begin mi:=mi-2; di:=di-21; end; 6: if di<22 then begin mi:=mi-3; di:=di+10; end else begin mi:=mi-2; di:=di-21; end; 7: if di<23 then begin mi:=mi-3; di:=di+9; end else begin mi:=mi-2; di:=di-22; end; 8: if di<23 then begin mi:=mi-3; di:=di+9; end else begin mi:=mi-2; di:=di-22; end; 9: if di<23 then begin mi:=mi-3; di:=di+9; end else begin mi:=mi-2; di:=di-22; end; 10: if di<23 then begin mi:=7; di:=di+8; end else begin mi:=8; di:=di-22; end; 11: if di<22 then begin mi:=mi-3; di:=di+9; end else begin mi:=mi-2; di:=di-21; end; 12: if di<22 then begin mi:=mi-3; di:=di+9; end else begin mi:=mi-2; di:=di-21; end; end; y:=inttostr(yi); m:=inttostr(mi); if (length(m)=1) then m:='0'+m; d:=inttostr(di); if length(d)=1 then d:='0'+d; shamsi:=y+'/'+m+'/'+d end;
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  2. #2
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419

    تغيير فرم hint

    تغيير فرم hint

    کد:
    begin inherited Create(AOwner); with Canvas.Font do begin Name := 'arial'; Size := Size + 10; Style := [fsBold]; end; end; procedure TForm1.FormCreate(Sender: TObject); var Picture: TPicture; begin HintWindowClass := TMyHintWindow; Application.ShowHint := False; Application.ShowHint := True end;
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  3. #3
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419

    غير فعال کردن کليد close در گوشه فرم

    غير فعال کردن کليد close در گوشه فرم

    کد PHP:
    procedure TForm1.Button1Click(Sender:  TObject);  var  Flag :UINT;  AppSysMenu  :THandle;  begin  AppSysMenu:=GetSystemMenu(Handle,False);  Flag:=MF_GRAYED;  EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND  or Flag);  End
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  4. #4
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419

    فشرده سازی در دلفي

    فشرده سازی در دلفي

    کد PHP:
    comprStreamTCompressionStreambegin comprStream :=  TCompressionStream.CreateclFastest,  aTarget); try comprStream.CopyFrom(aSourceaSource.Size); Result :=  comprStream.CompressionRate;  finally comprStream.Freeendend;  ************************** procedure  DecompressStream (aSourceaTargetTStream) ; var decompStream:  TDecompressionStreamnReadIntegerBuffer: array [0..1023of  Charbegin decompStream :=  TDecompressionStream.Create(aSource); try repeat nRead :=  decompStream.Read(Buffer1024); aTarget.Write (BuffernRead); until  nRead 0finally decompStream.Freeendend
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  5. #5
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419

    ايجاد يكaliases جهت بانك اطلاعاتي در زمان اجراي برنامه دلفي

    ايجاد يكaliases جهت بانك اطلاعاتي در زمان اجراي برنامه دلفي

    کد:
    uses DBIProcs,  DBITypes;  procedure AddBDEAlias(sAliasName, sAliasPath, sDBDriver:  string); var h:  hDBISes; begin DBIInit(nil); DBIStartSession('dummy',h,''); DBIAddAlias(nil,  PChar(sAliasName), PChar(sDBDriver), PChar('PATH:' + sAliasPath),  True); DBICloseSession(h); DBIExit; end;
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  6. #6
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419
    عکس از فرم

    کد PHP:
    GetFormImage.SaveToFile('c:\Form.bmp'); 
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
نمایش نتایج: از 1 به 6 از 6

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ: 0
    آخرين نوشته: 2012-10-07, 03:33 PM
  2. محاسبه مجموعه مربعات
    توسط MspSoft در انجمن برنامه نویسی با زبان C و ++C
    پاسخ: 0
    آخرين نوشته: 2012-04-07, 01:12 AM
  3. دانلود مجموعه سورس پروژه هاي كريستال در ويژوال بيسيك
    توسط MspSoft در انجمن گزارش سازی با Crystal Report
    پاسخ: 0
    آخرين نوشته: 2011-12-30, 09:12 PM
  4. مجموعه پروژه های vb.net 2008
    توسط MspSoft در انجمن VB.NET
    پاسخ: 0
    آخرين نوشته: 2011-12-24, 12:59 PM
  5. مجموعه سورس كد هاي كاربردي پاسكال
    توسط Propascal در انجمن مباحث عمومی دلفی و پاسکال
    پاسخ: 42
    آخرين نوشته: 2011-12-16, 02:01 PM

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2