Dört şey

Dört şey güzeldir, fakat dört şey ondan daha güzeldir.

‎1. Erkeklerin utanması güzeldir. Fakat kadınların utanması ondan daha güzeldir.
2. Herkesin adil olması güzeldir. Fakat emir sahiplerinin adil olması daha güzeldir.
3. İhtiyarın tevbesi güzeldir. Fakat gencin tevbesi daha güzeldir.
4. Zenginin cömertliği güzeldir. Fakat fakirin cömertliği daha güzeldir.
Dört şey kötüdür. Fakat dört şey ondan daha kötüdür.
1. Gencin günah işlemesi kötüdür. Fakat yaşlının günah işlemesi daha kötüdür.
2. Cahilin dünya işlerine dalması kötüdür. Fakat alimin dünya işlerine dalması daha kötüdür.
3. İnsanların ibadette gevşeklik yapması kötüdür. Fakat hoca ve talebelerin ibadette gevşeklik yapması daha kötüdür.
4. Zenginlerin kibri kötüdür. Fakat fakirin kibri daha kötüdür.

Eşim Olma Karım Ol

Eşim Olma Karım Ol {Okumaya Değer}

Eşim olma, karım ol! Bakma daha ilkel durduğuna sen, ruhu vardır kelimelerin. “Karı-koca” “eş”ten daha çok şey anlatır. Hatta belki bize unutulmuş bir şeyi söyler.
Sahi, biliyor musun? Neden erkeğe “koca”, kadına da “onun karı” demiş eskiler?

Bilge Sözler

Affetmekten utanmayın. Cezalandırmakta da acele etmeyin.

 

Hz. Ali (KV)

 

''Kalp deniz,dil kıyıdır.Denizde ne varsa kıyıya o vurur..''

Mevlana

 

MSSql Convert() -- Datetime,Varchar vb kullanımları.

Date and Time Styles

When expression is a date or time data type, style can be one of the values shown in the following table. Other values are processed as 0. SQL Server supports the date format in Arabic style by using the Kuwaiti algorithm.

Without century (yy) (1)	With century (yyyy)	Standard	Input/Output (3)
-	0 or 100 (1, 2)	Default	mon dd yyyy hh:miAM (or PM)
1	101	U.S.	mm/dd/yyyy
2	102	ANSI	yy.mm.dd
3	103	British/French	dd/mm/yyyy
4	104	German	dd.mm.yy
5	105	Italian	dd-mm-yy
6	106 (1)	-	dd mon yy
7	107 (1)	-	Mon dd, yy
8	108	-	hh:mi:ss
-	9 or 109 (1, 2)	Default + milliseconds	mon dd yyyy hh:mi:ss:mmmAM (or PM)
10	110	USA	mm-dd-yy
11	111	JAPAN	yy/mm/dd
12	112	ISO	yymmdd yyyymmdd
-	13 or 113 (1, 2)	Europe default + milliseconds	dd mon yyyy hh:mi:ss:mmm(24h)
14	114	-	hh:mi:ss:mmm(24h)
-	20 or 120 (2)	ODBC canonical	yyyy-mm-dd hh:mi:ss(24h)
-	21 or 121 (2)	ODBC canonical (with milliseconds)	yyyy-mm-dd hh:mi:ss.mmm(24h)
-	126 (4)	ISO8601	yyyy-mm-ddThh:mi:ss.mmm (no spaces)
-	127(6, 7)	ISO8601 with time zone Z.	yyyy-mm-ddThh:mi:ss.mmmZ (no spaces)
-	130 (1, 2)	Hijri (5)	dd mon yyyy hh:mi:ss:mmmAM
-	131 (2)	Hijri (5)	dd/mm/yy hh:mi:ss:mmmAM

Delphi ShellExecute - WinExec

DELPHİDE SHELL EXECUTE - WinExec APISI VE KULLANIMI

Uses ShellApi;

//Bir web sayfası açma

ShellExecute(0,'open','www.turkiye.gov.tr',",",SW_SHOWMAX IMIZED);

//Mail için
ShellExecute(0,'open','epostaAdresi@gmail.com',",",S W_SHOWNORMAL);

//Bir işlemi kendi programında açmak
ShellExecute(0,'open','c:\windows\kur.bmp',",",SW_ SHOWNORMAL);

//Bir dosyayı başka bir programla açmak
ShellExecute(0,'open','c:\windows\help.exe','c:\text.txt',",SW_SHOWNORMAL);

//Windowsun kendi programlarını kullanırken dizin belirtmeye gerek yoktur.
ShellExecute(Handle, 'open', PChar('notepad'), PChar('c:\text.txt'), nil, SW_SHOW);

//WINDOWS EXPLORER la dizinlere bakmak
ShellExecute(Handle, 'explore', PChar('c:\windows)', nil, nil, SW_SHOW);

//Herhangi bir programı çalıştırmak için
//1.yol
ShellExecute(0, 'open', PChar('c:\oyunlar\oyun.exe'), nil, nil, SW_SHOW);
//2.yol
WinEcex('calc',sw_show);//hesap makinasını çalıştırın.

//Print ettirmek
ShellExecute(Handle, 'print', PChar('c:\test\readme.txt'), nil, nil, SW_SHOW);

Ascii Kod Tablosu

Delphi Runtime da component oluşturmak

procedure TForm1.Button1Click(Sender: TObject);

var

  Button: TPanel;

begin

  Button:=TPanel.Create(Form1);

  try

    with Button do

    begin

      Parent:=pc;

      Name:='Btn'+inttostr(id);

      //Left:=0;//Random(Form1.ClientWidth-Width);

      //Top:=0;//Random(Form1.ClientHeight-Height);

      Align:=alLeft;

      Caption:='ButtonX'+inttostr(id);

      Inc(id);

    end;

  except

    Button.Free;

  end;

end;