Delphi Guru

Temans, pada tips dan trik berikut ini saya akan menuliskan cara untuk menghitung jumlah karakter terntentu pada suatu string. Ada dua pendekatan yang saya lakukan. Yang pertama dengan looping sepanjang string dan kita cek satu persatu. Adapun cara kedua, adalah dengan me- replace dengan karakter kosong kemudian kita selisihkan panjang sebelum dan sesudah proses pe- replace -an. Selisih itu ada jumlah karakter yang kita cari. Lebih jelasnya perhatikan baris kode berikut ini : 1. Looping class function TAppUtils.HitungKarakterLooping(AStringHitung : Char; AStringSource : String): Integer; var i: Integer; begin Result := 0; for i := 1 to Length(AStringSource) do if AStringSource[i] = AStringHitung then Result := Result + 1; end; 2. Replace class function TAppUtils.HitungKarakterReplace(AStringHitung : Char; AStringSource : String): Integer; begin Result := Length(AStringSource) - Length(StringReplace(AStringSource, AStringHitung, '', [rfReplaceAl...

Temans, penguasaan OOP pada masa ini adalah suatu keharusan. Sudah banyak artikel yang membahas apa keuntungan meggunakan OOP. Sebagai upaya untuk menyediakan sarana belajar OOP, khususnya untuk Delphi, berikut ini saya kumpulkan beberapa link yang merujuk pada artikel OOP di delphi.about.com . Artikel-artikel di bawah ini dikelompokkan menjadi beberapa bagian , yaitu : 1. Introduction to OO basics Bagian 1 - Object orientation basics - Delphi Unit structure and project structure - Delphi’s RAD generation: visual objects and events Bagian 2 - Delphi’s RAD generation: visual objects and events - Event handlers - Creating an object (RAD and coding) Bagian 3 - Interaction between objects: simple message passing, association and composition - The UML: class, object and sequence diagrams - Inheritance, association and composition relationships - Homework 2. Introduction to class inheritance Bagian 4 - Class inheritance. - Subclassing for reuse: extension, speciali...