Kaç gündür uykusuz gözlerim Geceleri uyumak yerine sana uyuyorum. Kaç bahardır aşktan mahrum yüreğim, Kendimi sevmek yerine seni seviyorum. Çok değil inan senin için…

Merhaba Bu ara başıma gelen olayı anlatıyorum arkadaşımın acil bir pdf dosyasına ihtiyacı vardı hemen ftp ye atıp linki yolladım dosya bozuk görüntülenemiyor dedi rar layıp gönderdim yine aynı sorun kendim test edeyim bakayım dediğimde download etsem dahi dosya da arşiv de bozuk görüntülenmiyor. buna sebep filezilla programındaki aktarım tipi …

Bir sebepten ötürü kapasitemiz,130.000 yıl boyunca aynı kaldı. Bu konferans salonundaki nörobilimcilerin,mühendislerin, matematikçilerin, hackerların birleştirilmiş zekaları… Yapay zeka ile kıyaslandığında sönük kalır. Duyguları olan bir makine gerçek olursa bir çırpıda biyolojinin sınırlarını aşacaktır.. Ve kısa bir sürede, analitik gücü dünya tarihinde bugüne kadar doğmuş her bir insanın toplam zekasından daha …

uses kısmına jpeg unitini ekleyin. procedure TForm1.Button1Click(Sender: TObject); var MyJPEG : TJPEGImage; MyBMP : TBitmap; begin MyBMP := TBitmap.Create; with MyBMP do try LoadFromFile('c:\winnt\ACD Wallpaper.bmp'); MyJPEG := TJPEGImage.Create; with MyJPEG do begin Assign(MyBMP); SaveToFile('c:\winnt\ACD Wallpaper.JPEG'); Free; end; finally Free; end; end;

procedure TForm1.Button1Click(Sender: TObject); var srFileSR: TSearchRec; sFileName, sFileSize: string; begin sFileName := 'c:\test\2.avi'; FindFirst(sFileName,faAnyFile,srFileSR); sFileSize := IntToStr(srFileSR.Size); Showmessage(sFileSize); end;

procedure TForm1.Button1Click(Sender: TObject); var path: string; begin Path := ExtractFilePath(ParamStr(0)); Showmessage (path); end;

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, …

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 …

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ı

Ö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.