$REGION


The IDE supports since Delphi 2005 code folding of marked regions.
{$REGION 'Hidden Code'}
Beep;
Beep;
Beep;
{$ENDREGION}
folds down to just
Hidden Code
in the IDE editor window.
Source: http://www.tindex.net/Language/$REGION.html

Kodlarınızda aşağıdaki gibi REGION tanımlarınızı yaptığınızdaki o kodu açtığınızda ikince resimdeki gibi yaptığınız tanımlar gözükecek istediğin iz kodu açıp inceleyebilirsiniz bu şekilde daha temiz bir görüntü elde etmiş olacaksınız. İkinci resimdeki görüntü geçen gün gönderdiğim More Coding in Delphi kitabında bahsedilen Spring framework’ünün sourcelarından alınmıştır.


Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

Delphi - What does Abort/Break/Exit

Resim
Abort Break Exit FormCreate - 1 FormCreate - 1 FormCreate - 1 MyLoop - 1 MyLoop - 1 MyLoop - 1 MyLoop - 2 MyLoop - 2 MyLoop - 2 MyLoop - 3 FormCreate - 2 FormCreate - 2 Abort Raises a silent exception. Use Abort to escape from an execution path without reporting an error. Abort raises a special "silent exception" ( EAbort ), which operates like any other exception, but does not display an error message to the end user. Abort redirects execution to the end of the last exception block. Break Causes the flow of control to exit a for, while, or repeat statement. The Break procedure causes the flow of control in Delphi code to exit a for, while, or repeat statement and continue at the next statement following the loop statement. A call to Break must be contained in a for, while, or repeat statement; otherwise, the compiler reports an...
Devamı

Türkçe Upper

Oracle'ın büyük harfe çevir (upper), küçük harfe çevir (lower), ilk harfleri büyük yap (initcap) fonksiyonları bildiğiniz ya da deneyip görebileceğiniz gibi İngilizce kurallarına göre çalışmaktadır. Örneğin elinizde "ismail" ismi, "bilir" soyadı olsun. Bu değerleri ismi initcap, soyadı ise upper ile çevirirseniz aşağıdaki sonuçla karşılaşırsınız: select initcap('ismail') || ' ' || upper('bilir') "Ad Soyad"from dual; Ad Soyad   ------------ Ismail BILIR 1 row selected. Elde ettiğimiz çıktı "Ismail BILIR" oldu. Bizim istediğimiz çıktı ise "İsmail BİLİR" olacaktı. Bu durumda oracle'ın nls_ ile başlayan functionları devreye giriyor: select nls_lower('İSİM: ', 'NLS_SORT = XTURKISH') || nls_initcap('ismail', 'NLS_SORT = XTURKISH') || ' ' || nls_upper('bilir', 'NLS_SORT = XTURKISH') "Ad Soyad"from dual; Ad Soyad         --------...
Devamı

Oracle'da sleep komutu

Bir programda örneğin bir işi bir kaç defa belli bir süre aralığıyla tekrar denemek isteyebilirsiniz. Örneğin mail gönderme işleminiz başarısız olursa toplamda 3 defa 10 sn. aralıkla bu işi tekrar yapmayı deneyebilirsiniz, geçici network problemleri ya da anlık problem bu süre zarfında düzelirse işleminiz başarılı bir şekilde gerçekleşmiş olur. Çoğu dilde bu işi yapan ve süreyi genelde milisaniye cinsinden belirtebildiğimiz sleep komutu vardır. Oracle'ın PL/SQL dilinde bunun karşılığı dbms_lock.sleep procedure'üdür ve süre saniye cinsinden verilir. Örnek kullanım aşağıdaki gibidir. declare    l_date_1    timestamp;    l_date_2    timestamp;  begin    l_date_1 := systimestamp;    dbms_lock.sleep(1); //1 sn. uyu. (1 ms. değil dikkatli olun!)    l_date_2 := systimestamp;    dbms_output.put_line( to_char(l_date_2 - l_date_1, 'ss') );     ...
Devamı