Bir klasörün boyutunu öğrenmek Bir klasördeki dosyaların kaç byte yer kapladığını öğrenmek için function TForm1.GetDirectorySize(const ADirectory: string): Integer; var Dir: TSearchRec; Ret: integer; Path: string; begin Result := 0; Path := ExtractFilePath(ADirectory); Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir); if Ret <> NO_ERROR then exit; try while ret=NO_ERROR do begin inc(Result, …
Devamını Oku »
Delphi Tuş Kodları Sabit sembolik isim Heksadesimal Karşılığı VK_LBUTTON 1 Sol fare tuşu VK_RBUTTON 2 Sağ fare tuşu VK_CANCEL 3 Control-break işlemi VK_MBUTTON 4 Orta fare tuşu (3 tuşlu fareler için) VK_BACK 8 BACKSPACE tuşu VK_TAB 9 TAB tuşu VK_CLEAR 0C CLEAR tuşu VK_RETURN 0D ENTER tuşu VK_SHIFT 10 SHIFT …
Devamını Oku »
pascal sinusoidal yazı program sinusidalyazi; uses crt; var s:real; begin textbackground(black); textcolor(lightgreen); clrscr; repeat s:=s+0.1; writeln('Saliha':round(30*sin(s)+49)); delay(100); until s >9.5; readln; end. Ekran Çıktısı
Devamını Oku »
Örnek Resimde Olduğu verilen bir tutar üzerinden gerçekleştirilen 4 iskonto oranı girilerek bu ürünün tutarsal olarak değeri ve bu girilen oranların tek bir iskonto oranını bulabiliyoruz. procedure Tfrm_iskontooranibul.btn_bulClick(Sender: TObject); var bir,iki,uc,dort:Double; begin bir:=StrToFloatDef(edt_tutar.Text,0)-StrToFloatDef(edt_tutar.Text,0)*StrToFloatDef(edt_isk1.Text,0)/100; edt_1.Text:=(FloatToStr(bir)); iki:=StrToFloatDef(edt_1.Text,0)-StrToFloatDef(edt_1.Text,0)*StrToFloatDef(edt_isk2.Text,0)/100; edt_2.Text:=(FloatToStr(iki)); uc:=StrToFloatDef(edt_2.Text,0)-StrToFloatDef(edt_2.Text,0)*StrToFloatDef(edt_isk3.Text,0)/100; edt_3.Text:=(FloatToStr(uc)); dort:=StrToFloatdef(edt_3.Text,0)-StrToFloat(edt_3.Text)*StrToFloatDef(edt_isk4.Text,0)/100; edt_4.Text:=(FloatToStr(dort)); edt_iskontoorani.Text:=FloatToStr(StrToFloat(edt_tutar.Text)-StrToFloat(edt_4.Text)); end; Kaynak kod ve exe için Tıklayın.
Devamını Oku »
Mavi Bir Ölüm.. Yine sana sesleneceğim.. Senin kim olduğunu hiç bilmeden Senin kim olduğunu en çok bilerek İsyankar zambakların çılgın nilüferlerin Dört nala açan kiraz çiçeklerinin Dudak kıvrımlarına yoldaş olacağım Sarı bir hüzün kızıl bir gurur Ve siyah bir öfkeyle konuşacağım sana ……….. Sana oklardan değil yaylardan bahsedeceğim Gülün dikeninden …
Devamını Oku »
Application.HintHidePause:=5000; Burada hint süremizi 5 Saniyeye yükseltmiş oluyoruz.
Devamını Oku »
procedure Form1.DBGrid1KeyDown (Sender: TObject; var Key: Word; Shift:TShiftState) ; begin if (Shift = [ssCtrl]) and (Key = VK_DELETE) then Key := 0; {ignore} end;
Devamını Oku »
Ey Güzide Yar! Bize Senin aşk u rahmetini terennüm edecek o ince,o nezih,sevimli sözleri hatırlat ve öğret ki biz,huzur-u keriminde o sözlerimizle Senin merhametini kazanalım.. “Ey her yeri ağyarı yar eden” Ey ALLAH’ım,Senin vuslatını umarak ölmek hoştur.Fakat,ayrılığının acısı ateşin üstündedir.Kafir bile cehennemde”Bana bir baksaydın,cehennemde olduğuma gam mı çekerdim”deyip durur.Çünkü o …
Devamını Oku »
Yapay Zeka Nedir ? Enformatik literatüründe yapay zekanın kesin bir tanımı yapılamamıştır ancak özetle, insanın düşünme yapısını anlamak ve bunun benzerini ortaya çıkaracak bilgisayar işlemlerini geliştirmeye çalışmak olarak tanımlanabilir. Yani programlanmış bir bilgisayarın düşünme girişimidir. Daha geniş bir tanıma göre ise, yapay zeka, bilgi edinme, algılama, görme, düşünme ve karar …
Devamını Oku »
select skip ((select count(*) - 100 from stok)) * from stok order by kayit_no asc Stok Tablosundaki kayıt sayısını bulup 100 eksiltip bulunan değerden sonraki 100 kayıt ı listeleme kodu
Devamını Oku »