Delphi

uses System.SysUtils, System.Classes, Winapi.Windows; type TExeType = ( etUnknown, // unknown file kind: not an executable etError, // error file kind: used for files that don't exist etDOS, // DOS executable etExe32, // 32 bit executable etExe16, // 16 bit executable etDLL32, // 32 bit DLL etDLL16, // 16 bit …

Delphi de global scope da önceden tanımlı derleyici koşulları eklemenin 2 yolu var örnek TRIAL adında bir koşul tanımlayacağız 1) Rad Studyo – Project-Options-Delphi Compiler-Conditional Defines 2)include file yöntemi ile 1. yöntem için Kodumuz procedure TForm1.btnTestClick(Sender: TObject); begin {$IFDEF TRIAL} ShowMessage('TRIAL.'); {$ELSE} ShowMessage('NOT TRIAL.'); {$ENDIF} end; 2. Yöntemde  predefines.inc isimli …

Error loading plugin Engine12 Module D:\FBEMBED3\plugins/Engine12 exists but can not be loaded. bilgisayarım da firebird 2.5 versiyonunu kullanıyorum ama firebird  3 bir veritabanına bağlanmam gerekti bunun için firebird 3 embed versiyonunu indirdim. D:\FBEMBED3 klasörüne dosyaları çıkardım delphi tarafında conFb.Disconnect; conFb.Server:=fbServer; conFb.Database:=fbDatabase; conFb.Username:=fbUsername; conFb.Password:=fbPassword; conFb.Port:=fbPort; conFb.SpecificOptions.Values['Charset']:=fbCharset; if fbUseUnicode then conFb.SpecificOptions.Values['UseUnicode']:='True' else …

uniconnection nesnenizin ConnectionLost eventı na kodunuzu yazdınız ve E2003 Undeclared identifier: ‘TConnLostCause’  hatasını aldıysanız uses’a MemData unitini ekleyin

delphican.com object pascal dili sevenlerin bir araya geldiği dil ve ide üzerinde soruların ve makallelerin yayınlandığı platform.

Uygulamamda Güncel delphi sürümleri ile gelen native skinleri kullanmak istedim her şey çok güzeldi taaki cxGridPopupMenu ye ihtiyacım olduğunda bana aşağıdaki gibi bir görüntü vermesi ile hüsran oldu Çözümü https://stackoverflow.com/questions/24596253/delphi-xe6-issue-with-styled-menus-with-invisible-items https://github.com/rruz/vcl-styles-utils indirip zipten çıkardıktan sonra comon klasörünü Tools->Options->Library->Library Path D:\SIZIN_DOSYA_YOLUNUZ\vcl-styles-utils-master\Common ve D:\SIZIN_DOSYA_YOLUNUZ\vcl-styles-utils-master\delphi-detours-library Pathlerini Ekliyoruz. Daha sonra projemize Vcl.Styles.Utils.Menus, Vcl.Styles.Utils.SysControls, Vcl.Styles.Utils.SysStyleHook, …

C kursunda yazdığımız ve hoşuma giden bir örneği paylaşmak istiyorum burada kodu ben pascal diline de çevirdim. oyunun uzunca açıklaması https://en.wikipedia.org/wiki/Craps kısaca iki zar atıyorsunuz atığınız zarın toplamı 7 veya 12 ise kazanıyorsunuz eğer 2 ,3,12 ise kasa kazanıyor diğer sayılar geldiğinde örnek 6 atınız burada oyunun kuralları değişiyor ve …

eger yıl 4’e tam bolunuyor ise ve aynı zamanda 100’e tam bolunmuyor veya 400’e tam bolunuyor ise artık yıldır. 1900 yılı artık yıl degildir… uses System.SysUtils; function IsLeap(year:Integer): Boolean; begin IsLeap := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end; …

function IsPrime(Number: Cardinal): Boolean; var cDivisor, cMax : Cardinal; begin Result := False; if Number and 1 = 0 then Exit; cMax := Trunc(Sqrt(Number)) + 1; cDivisor := 3; while cMax > cDivisor do begin if Number mod cDivisor = 0 then Exit; Inc(cDivisor, 2); if Number mod cDivisor = …

function CurrentMemoryUsage: Cardinal; var PMC: PsAPI.TProcessMemoryCounters; // receives info about process memory begin Result := 0; // default result on error or if not supported on OS PMC.cb := SizeOf(PMC); if PsAPI.GetProcessMemoryInfo( Windows.GetCurrentProcess, @PMC, SizeOf(PMC) ) then Result := PMC.WorkingSetSize; end; Gerekli unitler: SysUtils, Windows, PsAPI.