http://delphigurus.blogspot.com

Cara Membuat Warna Baris Selang seling Di cxGrid

2012-01-22T06:06:00.002+07:00

Untuk mempercantik tampilan cxGrid, kita bisa melakukan perubahan warna baris-barisnya. Kita bedakan warna antara baris ganjil dan genap. Untuk melakukan ini, ikuti langkah-langkah berikut :

1. Masukkan komponen cxGrid

- Set alignmentnya menjadi alTOP

- Ganti viewnya yang tadinya DBTable menjadi Table(jika anda akan langsung mengkases data ke database bisa tetap menggunakanDBTable), namakan dengn : cxGridTableGrid1TableView1

- Tambahkan tiga kolom mis : Nama Barang, Harga

2. Masukkan komponen cxStyleRepository

- Klik Kanan > Edit

- Tambahkan dua style dengan klik tombol Add

- Namakan kedua style tersebut dengan cxStyleRepEvendan cxStyleRepOdd

- Setting warna baris dari masing-masing styletersebut mis untuk cxStyleRepEven Color > clInactiveBorder, cxStyleRepOddColor > clMoneyGreen

- Klik tombol close

3. Klik table yang ada di cxGrid

- Expand property Style dengan klik tanda +

- Set style ContentEvent, pilih cxStyleRepEven

- Set style ContentOdd, pilih cxStyleRepOdd

4. Untuk meliha hasilnya, kita harus mengisi tabletersebut dengan data. Kita akan isi datanya pada saat form ini dicreate. Untukmelakukan langkah berikut :

- Double klik di form untuk mengarahan ke methodformcreate()

- Isikan baris kode berikut ini :

with cxGridTableGrid1TableView1 do

begin

DataController.RecordCount := 5;

DataController.Values[0,0] :='Biskuat';

DataController.Values[0,1] :='500';

DataController.Values[1,0] :='Aqua Galon';

DataController.Values[1,1] :='11500';

DataController.Values[2,0] :='Beng-beng';

DataController.Values[2,1] :='500';

DataController.Values[3,0] :='Sabun Lux';

DataController.Values[3,1] :='1500';

DataController.Values[4,0] :='Biskuit';

DataController.Values[4,1] :='22500';

end;

5. Lihat tampilannya

Selamat berkreasi

About Delphi: The Width Of The Drop Down List For TComboBox

2011-10-30T13:02:00.000+07:00

Sizing TComboBox Drop Down List Width - No Cut Off

When a combo box is in dropped down state Windows draws a list box type of control to display combo box items for selection. When the length (of a string) of items exceeds the width of the combo box, the items are displayed as cut-off!

Change the Default Application Icon for a Console Mode Delph

For a normal GUI application you can change the application icon using Project - Options - Application - Application Settings - Icon. For console mode applications this section is disabled - and thus all console mode application have a default icon.

Set Of String in Delphi? Yes! Union, Intersection and Difference For String Lists.

in Delphi TIPS :: In Delphi, sets or set types allow you to do set type operations like union, intersection and difference on a set of ordinal values. A set... Read more

Learn Delphi for .NET

Articles and technical information that will help you start developing with and master Delphi for .NET. Find out about the new IDE, Ado.Net, Asp.Net, ECO, IL, aspx, XML Web Services, msil, ...

About Delphi: Set Of String: implemented!

2011-10-25T13:01:00.000+07:00

Set Of String in Delphi? Union, Intersection and Difference!

A set is a collection of ordinal values. The values in a set have no order and it makes no sense to have a value twice (or more times) in a set. Since strings are not ordinal types you cannot have set of string declarations. Or, can you?

Implementing StartsText With SubText As Pattern - When Pattern Is A Regular Expression!

in regex :: For a relative file path like "abcdeffile.txt" I need to check if the file is located in the "abcdef" folder (or in any of its sub folders).... Read more

Use TFile Delphi Record To Encrypt or Decrypt A File

in Files and Folders ::A member of the Delphi Programming Forum in a post titled "RTF File encryption" is asking for some help in encrypting RTF documents. Starting with Delphi 2010,... Read more

Delphi Programming - Inside and Out

Delphi language, IDE tips, techniques and articles. Every programming aspect of Delphi is uncovered: OOP, Threading, File IO, RTL, VCL ...

About Delphi: StartsText Regular Expression Patterned

2011-10-20T09:19:00.001+07:00

Implementing StartsText With SubText As Pattern

For a relative file path like "\abc\def\file.txt" I need to check if the file is located in the "\abc\def" folder (or in any of its sub folders). Let's call this "\abc\def" a predefined path. Note that I am not interested in the drive nor the path complexity before "\abc\def".

Use TFile Delphi Record To Encrypt or Decrypt A File

in Files and Folders ::A member of the Delphi Programming Forum in a post titled "RTF File encryption" is asking for some help in encrypting RTF documents. Starting with Delphi 2010,... Read more

Implementing the OnBeforeCreate and OnAfterCreate Events for Delphi Forms

in Delphi Forms :: The TForm's OnCreate event is called when the form is created. Usually, you would write an OnCreate event handler to perform special processing when the... Read more

Advanced Delphi Windows / Shell / API / Graphics / OLE Programming

A simple understanding of Delphi is fine when you create applications for home use. Once you start building real-world applications you'll start looking for ways to solve more complex tasks - and Delphi will have all the answers!

DelphiFeeds : Delphi Spring, Mocks and how to use them: some links

2011-10-17T12:57:00.000+07:00

Delphi Spring, Mocks and how to use them: some links

Posted: 27 Sep 2011 02:00 AM PDT

Now that there is Spring and Mocks for Delphi, it is time to post a few links: Nick Hodges indicating he is going to write more about Delphi Spring and Mocks Nick Hodges' first article (in a 5 series part) on Delphi Spring framework, Dependency Injection and Unit testing Vincent Parret on ...

Implementing StartsText With SubText As Pattern - When Pattern Is A Regular Expressions!

Posted: 27 Sep 2011 12:54 AM PDT

in regex :: For a relative file path like "\abc\def\file.txt" I need to check if the file is located in the "\abc\def" folder (or in any of its sub folders). Let's call this "\abc\def" a predefined path. Note that I am not interested in the drive nor the path complexity before "\abc\def". How to ...

Delphi Certification Program and Delphi XE2 release

Posted: 26 Sep 2011 11:26 PM PDT

During the world tour, lots of Delphi developers ask me if the Delphi Certification Program is up to date with the Delphi XE2 release, the answer is YES. The certification program tests your knowledge in Delphi, we recommend you to use Delphi XE or XE2 release in order to be prepared to answers ...

RAD Studio XE2 Live Webinars today

Posted: 26 Sep 2011 10:55 PM PDT

If you didn't have the opportunity to see all of the great RAD Studio XE2 new features during the world tour, take sometime today and join us for one of the three live webinars. First webinar – 6:00am PDT / 9:00am EDT / 3:00pm CET Second webinar – 11:00am PDT / 2:00pm EDT ...

14 oktober 2011: Delphi XE2 FireMonkey & DataSnap training (Dutch)

Posted: 26 Sep 2011 09:10 PM PDT

In deze Nederlandstalige Delphi XE2 Clinic staan de essentiële nieuwe features van Delphi XE2 centraal, met ondersteuning voor Win32, Win64 en Mac OS X.

A few more classics on BitSavers in the /pdf/borland tree

Posted: 26 Sep 2011 08:00 PM PDT

Hope you like these classics from the early Borland era: The 1985 Turbo Pascal Version 3.0 Reference Manual Jan 1985 Turbo Tutor_Version_1.0: a Self-Study Guide on Turbo Pascal Jun 1987 Borland Byte Ad on Eureka: The Solver Aug 1998 Borland Byte Ad on the Adventures of Turbo Man Nov 1998 Borland ...

Interesting use of 3D UI in music software

Posted: 26 Sep 2011 05:12 PM PDT

Awhile back I wrote about music technology being one of the areas pushing new user interface\interaction technologies, such as the Kinect, and the Wii before it. Well, I'm a little behind on this one, but this video preview of AudioGL is another example, this time in terms of 3D UI. Apart ...

A Radical Idea for Professional Programmers

Posted: 26 Sep 2011 01:38 PM PDT

I just read this fascinating article in The New Yorker about "coaching," and how it might apply to professionals like us. It's a little lengthy, but it's an excellent read. Please take a few minutes to read it, and then if you feel so inclined, here are some questions that I ...

Back from my World and Texas RAD Studio XE2 tours - Webinars Tuesday (tomorrow)

Posted: 26 Sep 2011 01:21 PM PDT

I am finally back in my Scotts Valley office today after three weeks on the road visiting with great developers on three continents and on the Internet. Many thanks to all of you that spent your valuable time with me and all of the other RAD Studio XE2 World Tour evangelists. Just want to remind ...

Tools updated , Now supports Delphi XE2

Posted: 26 Sep 2011 12:53 PM PDT

This is only going to be a short entry just to inform that the Delphi IDE Theme Editor and the WMI Delphi Code Creator are now compatible with Delphi XE2.

Customizing Structural Highlighting in Delphi

Posted: 26 Sep 2011 07:15 AM PDT

It's possible that Structural Highlighting is Castalia's most popular feature. It's certainly one of the first things that you notice when you try Castalia for the first time, and one of the things that people tell me over and over again they love. Of course, code formatting can be ...

About Delphi: File Encryption / Decryption

2011-10-14T07:31:00.000+07:00

Use TFile Delphi Record To Encrypt or Decrypt A File

Starting with Delphi 2010, the RTL includes the "ioutils.pas" unit hosting dozens of file and folder related functions grouped into TFile, TDirectory, TPath and alike classes (records to be more precise).

Implementing the OnBeforeCreate and OnAfterCreate Events for Delphi Forms

in Delphi Forms :: The TForm's OnCreate event is called when the form is created. Usually, you would write an OnCreate event handler to perform special processing when the... Read more

Crypting Your INI (Configuration) Files

in INI Files :: In most of my applications I'm using INI files to store configuration options. INI files are text based documents with a simple structure. A user can open... Read more

Getting Started with Delphi

So, you want to learn Delphi? This is the right place: Delphi tutorials and articles for beginners.

About Delphi: 16 Delphi Versions In 16 Years + Useful Articles

2011-09-23T12:45:00.000+07:00

Delphi History - From Turbo Pascal To Delphi XE 2

This Delphi history document provides concise descriptions of Delphi versions and its history, along with a brief list of features and notes.

TQPDF - Delphi Wrapper for the Open Source QPDF.DLL a PDF-2-

QPDF is not a PDF content creation library, a PDF viewer, or a program capable of converting PDF into other formats. In particular, QPDF knows nothing about the semantics of PDF content streams. Once you have a valid PDF file, QPDF can be used to transform that file in ways perhaps your original PDF creation can't handle.

Delphi IDE Tools and Plug-Ins Every Developer Should Use

in Tools and Utilities :: Delphi IDE - Integrated Development Eenvironment provides all the tools you need to design, develop, test, debug, and deploy applications, allowing rapid prototyping and a... Read more

Top Picks - Delphi Tools and Components

What are the best Delphi related tools? What component should you buy? Is this VCL/CLX/VCL.NET library what you really need?

Mungkinkah Ini Terjadi?

2011-07-31T17:03:00.003+07:00

Dear Delphier Indonesia. Mungkin nggak kita bisa melakukan kegiatan rutin seperti di uandangan di bawah ini?

Upcoming Sydney meeting

Wednesday, 20th July 2011:

Join us for the 10th anniversary ADUG meeting in Sydney
(yep, we started in July 2001 see also here):

A Practical Overview of Delphi's Generic Collection Classes - Malcolm Groves

Delphi introduced Generics a few versions back, along with a whole bunch of very useful generic collection classes. However, for some people all those angle brackets and T's still look like their keyboard threw up in their code editor. In this session Malcolm will attempt to give a gentle, practical overview of the various generic collections such as TList<T>, TDictionary<T>, TQueue<T> and others, along with topics such as searching, sorting, comparators and enumerators.

Code Crunch - Delphi Community

Bring your Delphi project along to the meeting and let us hlep you to solve a tricky problem you may have encountered in your recent work.

Where:

Embarcadero Sydney Office
Level 2
100 Clarence Street
Sydney NSW 2000
Closest train station: Wynyard Station

When:

from 6:00 pm (the live stream starts at 6:15 pm)

Akhirnya Jakarta Didatangi Juga

2011-07-27T12:59:00.000+07:00

Kabar gembira buat delphier Indonesia. RAD STUDIO WORLD TOUR akhirnya menyambangi jakarta.

BY MALCOLM, ON 1 DAY AGO , UNDER DEVELOPMENT, EVENTS

I promised to post more details of these upcoming events when I could. Well, now I can.

Current cities:

Auckland (04 August 2011)
Australia (Sydney/Melbourne, 11-12 August 2011)
Seoul (12 August 2011)
Taiwan (4 cities, 16-19 August 2011)
Mumbai (17 August 2011)
Bangalore (18 August 2011)
Jakarta (9 September 2011)

…and here’s the very high-level description:

Whether you are building new applications, or migrating existing systems, this workshop will help you decide where to invest your team’s time and effort to make the most positive impact on your business, today and into the future.

You will hear about:
Application frameworks
Delphi 64-bit
The future of database access
DataSnap and Cloud
Mobile development

Before you ask, yes, there will be more cities and countries added soon. Not just in Asia but around the world.

Source : http://www.malcolmgroves.com/blog/?p=826

Facebook and Delphi - Facebook API for Delphi + 3 Useful Articles

2011-07-24T16:52:00.003+07:00

From Zarko Gajic, your Guide to DelphiVol. 14, No. 29. Given that Delphi is a Win32 development environment, let's see if there are some libraries to help you build some Facebook apps (or anything Facebook-aware).

Facebook and Delphi - Facebook API for Delphi

Ok, so now that you know what Facebook is, you probably are asking how can I build a Delphi application to allow me and my friends to "connect" to Facebook more easily :)

Delayed Event Handling Using Event Handler Detaching

Allan Lloyd made a remark about the idea suggesting an extension: when you have an event handler which takes some time (> 0.1 sec) to run, but you don't want another click or a double click to call the event handler a second time before the first call has finished, you can detach the event handler from the event while the event handling code is being executed.

Changing the Title of a Print Dialog in Delphi

in Delphi TIPS :: The TPrintDialog component displays a standard Windows dialog box for sending jobs to a printer. Unfortunately, the TPrintDialog does not expose the Title property. By handing... Read more

Learn Delphi for .NET

Articles and technical information that will help you start developing with and master Delphi for .NET. Find out about the new IDE, Ado.Net, Asp.Net, ECO, IL, aspx, XML Web Services, msil, ...

Generating QR-Code Using Delphi + 3 Useful Articles

2011-07-22T16:47:00.001+07:00

From Zarko Gajic, your Guide to Delphi

Vol. 14, No. 27. A QR code is a specific barcode that gained popularity during the last years when mobile phones with cameras allowed mobile phone users to quickly scan the image and get more info on a product, business, event, offer, URL address, ...

Generating QR-Code Using Delphi

Using Delphi there are several ways you can generate QR codes - to encode any text (URL, phone number, simple message). QR Codes store up to 4,296 alphanumeric characters of arbitrary text.

What Was Your First (Not a "Hello World" Type) Delphi App.?

When you want to learn a new programming language you pick a book or find an online tutorial. The first project you will create would be a "hello world" type of application - such a program should be one of the simplest programs possible in a computer programming language.

Group Items in Delphi's TListView Control with Expandable and Collapsible Sections

in TListView Ideas :: The TListView Delphi control displays and manages a list of items, displayed in columns, vertically or horizontally, with small or large icons. Windows XP, and later versions,... Read more

Advanced Delphi Windows / Shell / API / Graphics / OLE Programming

Get Single IXMLNode Using XPath's IDomNodeSelect

2011-04-20T07:08:00.000+07:00

Get Single IXMLNode Using XPath's IDomNodeSelect

To select the first node that matches the XPath expression you can use the selectNode function of the IDomNodeSelect defined in XmlDom.pas.

Remove Duplicate Items in Delphi's TStringList

Many Delphi controls like TListBox, TComboBox and TMemo, for example, expose a property which is of the TStrings type: Items for TListBox, Lines for TMemo. When you fill in a string list with string items you might end up with a list holding duplicate strings - more than one item with the 'same' string value.

Select XML Nodes Into IXMLNodeList Using XPath In XmlDom.Pas

in Delphi and XML :: XPath uses a path notation, similar to that used in file systems and URLs, to specify and match pieces of the document. In Delphi, the... Read more

Advanced Delphi Windows / Shell / API / Graphics / OLE Programming

Generics, Enumerated types and ordinal values

2011-04-15T07:03:00.003+07:00

Generics, Enumerated types and ordinal values

Posted: 08 Apr 2011 09:02 AM PDT

I wish this was a solution post, but it is a frustration post. I trying to figure out how I can use Ord() to convert an enumerated type to integer or cast an integer to an enumerated type using generics type arguments?uses SysUtils, TypInfo;type TEnumGen = class class function Name(const ...

Webinar on Building & Tuning SQL Server Database-Driven Applications with RAD Studio and DB PowerStudio

Posted: 08 Apr 2011 04:03 AM PDT

If you create applications with Delphi or RAD Studio that connect with Microsoft SQL Server databases, sign up for this new webinar to learn some of the secrets for delivering the highest performance applications.We've also extended the discount on DB PowerStudio for SQL Server for users and ...

Why startups don't use .net

2011-04-13T05:42:00.000+07:00

Why startups don't use .net

Posted: 30 Mar 2011 12:58 AM PDT

There have been several articles over the last couple of weeks about the usefulness of .net for startups. I will mention three: * Did the Microsoft stack kill MySpace? * Why we don't hire .net programmers * Why Microsoft could kill your startup career Even though our company is now several years ...

QC #2746: How high is your TButton? 23?

Posted: 29 Mar 2011 10:58 AM PDT

In standard Windows applications the default button height is 23 pixels. To get that information you could try to measure buttons in other applications, but you will very likely fail to get the exact size, because some controls do have invisible borders. Thatswhy you better check the "Windows ...

Delphi Labs: DataSnap - Passing "Plain Old Delphi Objects" Parameters

Posted: 29 Mar 2011 07:08 AM PDT

One of the cool new features in introduced in Delphi XE is a possibility to use TObject-descendant as parameter types in DataSnap server methods. I was planning to cover different possible parameter types that you can use in DataSnap applications, but it would be a huge discussion. Jim Tierney from ...

Delphi in Depth: ClientDataSets

Posted: 29 Mar 2011 05:11 AM PDT

I'm pleased to announce that my latest book, Delphi in Depth: ClientDataSets, is now available for purchase. The following is the introduction from this book. At the end of this post you will find a link to the book site. That site includes links for ordering the book from several different outlets, ...

Training Gratis Membangun Aplikasi Database Menggunakan Delphi

2011-04-11T06:56:00.000+07:00

Anda ingin training Membuat Aplikasi Database Menggunakan Delphi? Anda ingin training Delphi tapi tidak ada biaya? Hmmm... jangan khawatir. Zarko Gajic , penulis artikel-artikel delphi berkualitas akan membantu anda. Anda hanya mendaftar di sini, kemudian anda akan diirimi 26 email (1 hari 1 email) yang berisi materi pemrograman database menggunakan delphi. Jangan khawatir, ini bukan spam. Saya juga tidak akan mengirimi anda spam, karena saya sendiri juga benci spam.

Berapa Lama Training Ini Berlangsung?
Training ini nanti akan berlangsung selama 26 hari. Anda akan menerima materi pertama setelah anda mendaftar. Selanjutnya anda akan dikirimi email kedua dan seterusnya sehari satu email.

Apa Yang Saya Pelajari?

Dalam training gratis ini, anda akan mempelajari bagaimana cara men-design, men-develop dan melakukan testing aplikasi database menggunakan ADO. Training ini akan menitikberatkan pada penggunaan ADO yaitu melakukan koneksi database menggunakan TADOConnection, bekerja dengan Table dan Queriy, meng-handle exception , membuat laporan, dll.

Apakah Ada Syarat Khusus Untuk Mengikuti Training ini ?

Sebenarnya tidak ada syarat khusus untuk mengikuti training gratis ini. Anda hanya cukup mendaftar di sini, kemudian anda akan dikirimi materinya melalui email. Namun, supaya anda mudah mempelajari materi di training ini, anda sebaiknya memperhatikan hal-hal sbb :

1. Sebaiknya anda mengerti bahasa inggris. (Materi akan disampaikan dengan bahasa inggris)
2. Memahami dasar -dasar permograman delphi.
3. Sabar : )

About Delphi: Your App In Windows Explorer Folder Context Menu + 3 More Articles

2011-04-09T04:59:00.000+07:00

From Zarko Gajic, your Guide to DelphiVol. 14, No. 13. A neat trick to add an item to the right-click context popup menu for a folder in Windows Explorer.

Delphi

Delphi

Basics

Database Development

Advanced Delphi

Add Your Delphi Application as Item to Windows Folder Menu

When a users right-clicks on a folder in Windows Explorer a context popup appears. Beside standard items you can add an item for your application. When a user click the item - your application gets started and you can send it (as a parameter) the folder selected.

Cycle Enum Values in Delphi - Round Robin Enumeration Value

If you need to allow a user of your application to change the display of the ListView at run-time, you need to provide some sort of "selectable" user interface. You can choose to display enumerated properties in a selectable list.

Extend Delphi Components Without the Need to Install in the IDE; TButton = class(TButton)

in Delphi TIPS :: Have you ever needed for a specific Delphi control, like a TButton, to have just one more property or a method that is a "must have"... Read more

Understanding, Using and Enhancing Delphi VCL Components

Tutorials and articles on using Delphi Visual Component Library (VCL) controls and components more efficiently at design and run time.

Must Reads

	First Time Here? What is Delphi?
	How to Start a New Delphi Project
	Delphi Tutorials / Online Courses
	Delphi Tips, Tricks, Code Snippets
	What Happened to "Borland Delphi"?

Cara Efektif Menambahkan Komentar Pada Source Code

2011-04-07T12:35:00.007+07:00

Dear Delphiers, pada artikel ini saya akan mencoba membahas bagaimana cara membuat komentar yang efektif pada source code aplikasi yang kita bangun. Saya sendiri merasa source code tanpa komentar bagaikan sayur tanpa garam. Ga sedap gitu lho ... : ). Tapi kalau kebanyakan komentar juga tidak bagus juga. Source code jadi kotor, semrawut, dan sulit dibaca. Ibarat sayur kebanyakan garam, ASIN !!

Di delphi, ada beberapa cara untuk membuat komentar. Yang pertama dengan menggunakan operator "//". Tanda ini akan menjadikan baris di sebelah kanannya tidak akan dieksekusi oleh compiler. Cara ini sangat cocok untuk menambahkan satu atau dua baris komentar saja. Cara kedua dengan mengapit komentar dengan kurung kurawal "{}" . Karakter yang berada diantara tanda "{}" tidak akan dieksekusi oleh compiler. Cara ini sangat efektif untuk menambahkan komentar yang cukup panjang.
Dalam menambahkan komentar, menurut saya, ada beberapa hal yang perlu diperhatikan

Seperlunya

Komentar pada source code memang sangat penting bagi pengembangan sebuah software. Apa lagi jika satu unit file dikerjakan lebih dari satu orang. Namun meskipun demikian, kita tetap harus berhati-hati dalam menambahkan komentar. Jangan sampai dengan banyaknya komentar malah akan membuat source code menjadi kotor dan sulit dibaca.

procedure TfrmPembayaran.FormCreate(Sender: TObject);
begin
  inherited;
  FPenyaluranDana := TPenyaluranDana.Create(Self);
  FPembayaran     := GenerateObjectPembayaran;
  FJurnalUtip     := TJournal.Create(Self);
end;

Menurut hemat saya, baris kode di atas tidak perlu anda kasih komentar. Baris kode di atas merupakan baris kode yang benar-benar jelas, yaitu melakukan instantsiasi dari kelas TPenyaluranDana, TPembayaran, dan TJournal. Apa yang membingungkan kan? Makanya tidak perlu diberikan komentar.

Namun demikian , jangan mudah untuk tidak memberikan komentar juga. Jika memang baris kode kita sulit dibaca lebih baik diberikan komentar secukupnya. Ingatlah, hari ini anda paham algoritma di baris kode anda, tapi belum tentu besok, minggu depan, bulan depan, atau tahun depan. Apalagi bagi orang lain yang kebagian tugas membetulkan bug pada source code anda, sedangkan anda sudah tidak ada.

Jangan Terlalu Banyak Memberikan Komentar

Poin dua ini sebenarnya melengkapi poin pertama. Bahasa delphi terkenal akan mudahnya dipelajari. Hal ini karena mudahnya cara membaca source code delphi. Jadi, hendaknya kita bijak dalam menambahkan komentar.

Cara Cepat Menambahkan komentar

Di delphi 10 dan versi setelahnya, ada cara mudah memberikan komentar. Anda tinggal mem-blok baris yang akan dijadikan komentar lalu tekan tombol "Ctrl+/". Jika cara ini belum berhasil, anda bisa menggunakan program tambahan baik yang free maupun berbayar. CnPack atau Model Maker Explorer (MMX) adalah contoh program tambahan yang perlu anda pertimbangkan di komputer anda.

Open Source vs. commercial software + 1 Article

2011-04-05T06:00:00.000+07:00

Posted: 27 Mar 2011 02:41 AM PDTI was recently asked, where does Open Source make sense? This is a hard question, because it depends on the objective. Some people argue from a freedom perspective, nerds can modify anything. But freedom is also the freedom of choice, and enforcing Open Source everywhere would definitely be ...
Open Source vs. commercial software

Posted: 27 Mar 2011 02:41 AM PDT

I was recently asked, where does Open Source make sense? This is a hard question, because it depends on the objective. Some people argue from a freedom perspective, nerds can modify anything. But freedom is also the freedom of choice, and enforcing Open Source everywhere would definitely be ...

hcOPF - AV in Application with hcCodeSite defined

Posted: 26 Mar 2011 10:00 PM PDT

If you get an AV on shutdown of an application using hcOPF with the packages compiled with the hcCodeSite directive defined, the problem is likely the sequence of events. My current project uses a global domain object representing the place of business. This domain object is created in the ...

Sekilas Tentang Generics

2011-04-03T15:39:00.000+07:00

Generics pertama kali diperkenalkan pada Delphi 2009. Dengan adanya fitur ini, kita bisa mendefinisikan sebuah kelas tanpa mendefinisikan secara khusus tipe data dari atribut dari kelas tersebut.Untuk mempermudah pemahaman tentang generics, berikut ini saya berikan dua contoh source code yang memanfaatkan fitur generics.

Contoh 1

    type
      TGenericContainer = class
      Value : T;
     end;

    var
      genericInt : TGenericContainer;
      genericStr : TGenericContainer;
    begin
      genericInt := TGenericContainer.Create;
      genericInt.Value := 2009; //only integers
      genericInt.Free;

      genericStr := TGenericContainer.Create;
      genericStr.Value := 'Delphi Generics'; //only strings
      genericStr.Free;
    end;

Contoh 2

    TSomeClass = class
    private
      FData : T;
      procedure SetData(inData : T);
    public
      property Data : T read FData write SetData;
    end;

    var
      a : TSomeClass;
      b : TSomeClass;
      c : TSomeClass;
    begin
      a := TSomeClass.Create;
      a.Data := 5;
      a.Free;

      b := TSomeClass.Create;
      b.Data := 'The rain in spain';
      b.Free;

      c := TSomeClass.Create;
      c.Data := Button1;
      c.Free;

Video DataSnap Terbaru : DataSnap XE - Passing "Plain Old Delphi Object" Parameters

2011-04-02T05:46:00.003+07:00

Dear Delphiers,
masih ingat artikel ini kan? Yach kita bisa belajar delphi dengan melihat video panduan di youtube . Pada artikel ini saya akan memberikan sedikit informasi tentang video terbaru (per 1 April 2011) dari chanel DelphiUniversity di youtube.

Video ini berjudul Delphi Labs: DataSnap XE - Passing "Plain Old Delphi Object" Parameters . Di video ini aan didemokan bagaimana cara mengirim dan menerima objek dari dan ke server menggunakan arsitektur DataSnap.

Pada bahasa Java Enterprise Edition, ada satu konsep "Plain Old Java Objects" untuk mengirimkan data antar aplikasi. Di video ini juga akan dipai patern yang sama untuk bertukar data antar server dan client. Kita akan menggunakan PODOs, "Plain Old Delphi Objects"

Source yang dituliskan di video ini bisa do dowload di http://cc.embarcadero.com/ item/28276

Info lanjut silahkan klik berikut ini :
http://www.embarcadero.com/ rad-in-action/delphi-labs
http://blogs.embarcadero.com/ pawelglowacki

Let Your Delphi Application Be Executed When A Folder Is Right-Clicked in Windows Explorer + 8 Articles

2011-03-31T05:20:00.001+07:00

Let Your Delphi Application Be Executed When A Folder Is Right-Clicked in Windows Explorer

Posted: 28 Mar 2011 11:43 PM PDT

in Delphi TIPS :: When a users right-clicks on a folder in Windows Explorer a context popup appears. Beside standard items you can add an item for your application. When a user click the item - your application gets started and you can send it (as a parameter) the folder selected. Read the full ...

The First Thing You Should Do

Posted: 28 Mar 2011 04:47 PM PDT

We've all done it: File|New|VCL Forms Application. Then we drop a button and a memo, double click on the button, and write some code that prints out to the TMemo. You start out just "testing something out", but then you end up working on a routine, or maybe even a class or a collection ...

Web Based IDE's

Posted: 28 Mar 2011 03:43 PM PDT

I started a computer club at my son's middle school. One of the limitations is that no software can be installed, and there are no development tools on the computers. So I set out to find web based IDE's where we can write and run code via the web browser. This is what I found. ...

Spring 2011

Posted: 28 Mar 2011 08:56 AM PDT

It's the time of the year again: i am very happy to announce the immediate availability of the "Spring 2011″ releases of out entire product suite. Point your browsers to portal.remobjects.com (licensed users) or remobjects.com/trials and remobjects.com/free for free products and ...

WWDC 2011 Tickets are On Sale

Posted: 28 Mar 2011 08:50 AM PDT

Apple's annual World Wide Developer Conference (WWDC) in San Francisco has just been announced and opened for registration today. I already got my ticket, and i'm looking forward to seeing many of you there! Go to http://developer.apple.com/wwdc for more info, and get your ticket ...

Apple's WWDC2011 Has been announced

Posted: 28 Mar 2011 08:47 AM PDT

DSConfers: if you haven't got enough quality conference time this year yet, and need something to tide you over until DSConf #2 in the fall, why not attend Apple's WWDC in San Francisco, which was just announced (but hurry up, it will probably sell out fast). Daniel Magin and marc ...

Delphi ClientDataSet Book (by Cary Jensen)

Posted: 28 Mar 2011 06:09 AM PDT

Cary Jensen has published a brand new Delphi book focused on a very common Delphi component, the ClientDataSet. The books is now available on Amazon. The book title is "Delphi in Depth: ClientDataSets", with a partial reference to a Delphi book Cary edited in the early days of the product ...

The Best Delphi Ever

Posted: 28 Mar 2011 03:02 AM PDT

We received a really nice email from someone who evaluated RAD Studio XE so I thought I would share some of it...I just wanted to let you know thatthis is the best Delphi ever !I had just completed an evaluationof Delphi and C++ in RADStudio XE.· Your ...

Cycle Enum Values in Delphi - Round Robin Enumeration Value Cycling

Posted: 28 Mar 2011 02:00 AM PDT

in Delphi Tips :: An enumerated type in Delphi, or enum lets you define a list of values. The values have no inherent meaning, and their ordinality follows the sequence in which the identifiers are listed. If you need to allow a user of your application to change the display of the ListView at ...

Cara Mempercepat Penulisan Source Code

2011-03-30T05:26:00.013+07:00

Dear Delphiers, salah satu tolok ukur produktivitas seorang programmer bisa diukur dengan berapa baris kode bisa dia hasilkan dalam sehari. Walaupun hal ini tidak bisa menjadi acuan utama untuk mengukur produktivitas seorang programmer. Tapi hal ini merupakan parameter yang paling mudah diukur. Jadi tida heran kalau dalam wawancara pekerjaan calon programmer sering ditanya pernah mengerjakan proyek dengan berapa baris kode.

Delphi, dengan segala kelebihnannya menyediakan satu tool untuk mempercepat penulisan source code. Tool ini yaitu Codes Template. Dengan tool kita bisa membuat template untuk kode-kode program yang sering kita gunakan. Kita bisa memanggil template dengan menuliskan dua atau tiga huruf pertama dari nama template kemudian diikuti dengan menekan kombinasi tombol Ctrl+J . Perhatikan studi kasus di bawah ini :

Saya, ketika melakukan proses edit data selalu memanggil form look up data. Dari form tersebut saya pilih data yang akan saya edit. Setelah mendapatkan data yang akan diedit tersebut, kemudian saya tampilkan dalam form. Hal ini saya kerjakan berulang-ulang untuk semua form dalam project yang sedang saya kerjakan. Untuk menampilkan data saya menggunakan syntacs seperti di bawah ini :

  sSQL := 'select Nobukti, tglbukti, keterangan from tjournal';
  with cLookUp('Daftar Jurnal', sSQL) do
  begin
    try
      if Strings[0] <> '' then
   begin
     // Tampilkan dalam form untuk diedit
   end;
 finally
      Free;
    end;
  end;

Karena baris kode diatas sering saya pakai, maka saya bisa membuat sebuah template sehingga saya bisa melakukan penulisan baris kode untuk edit data dengan lebih cepat. Cara membuat code template :
1. Clik Tools > Editor Option
2. Akan muncul jendela Editor Properties , Pilih Tab Source Options

3. Click button Edit Code Templates ...> akan muncul jendela baru untuk mengedit/menambahkan template baru

4. Click button Add > akan muncul dialog untuk memasukkan nama dan deskripsi template

5. Masukkan nama template dan description untuk template tersebut > Click OK

6. Copy-kan baris kode yang sering kita pakai

7. Perhatikan pada source code yang saya beri garis bawah berwarna biru, "|" . Karakter menandakan letak kursor pada saat kita mengenarte baris kode menggunakan template.

8. Cara menggunakan template ini yaitu dengan mengetikkan 2 atau tiga huruf pertama kemudian diikuti tombol Ctrl+J. Untuk contoh di atas, kita menuliskan "Loo" kemudian diikuti Ctrl+J. Lihat hasilnya di bawah ini :

TZDB 1.7 database 14 March

2011-03-29T05:59:00.001+07:00

TZDB 1.7 database 14 March

Posted: 27 Mar 2011 08:28 AM PDT

I have finally managed to get some free time on my hands and released the latest update to TZDB containing the latest DB (from 14 March). As usual, no code changes, just data updates. For those unaware: TZDB is an open source project that provides Delphi (7+) and FreePascal (2.0+) users with a ...

Understanding Embarcadero AppWave + 3 Articles

2011-03-28T08:43:00.003+07:00

Understanding Embarcadero AppWavePosted: 25 Mar 2011 12:52 AM PDTTwo days ago Embarcadero gave a public webinar about a very interesting (and very bold) new initiative, called AppWave, which wants to turn applications into commodities on Windows much like Apple and Google have done for their phones. In this blog post, I'm not trying to explain the idea to ...

Understanding Embarcadero AppWave

Posted: 25 Mar 2011 12:52 AM PDT

Two days ago Embarcadero gave a public webinar about a very interesting (and very bold) new initiative, called AppWave, which wants to turn applications into commodities on Windows much like Apple and Google have done for their phones. In this blog post, I'm not trying to explain the idea to ...

Important Compatibility Announcement regarding OpenSSL

Posted: 24 Mar 2011 12:58 PM PDT

The latest two versions of OpenSSL I've released only support Windows XP SP2, Windows Server 2003 SP1 and newer. The affected OpenSSL versions are: 0.9.8 q, 0.9.8 r, 1.0.0 c and 1.0.0 d. Technical Background: The mentioned libraries statically link against a version of msvcrt.lib which include ...

Implementing generic helpers as metaclasses

Posted: 24 Mar 2011 11:57 AM PDT

While it wasn't the main point of the post, I did mention previously the possibility of using metaclasses as generic helpers, and how this can be preferable to using interfaces. An esteemed commentator then suggested the example I gave was far too trivial to be generalised, and in particular, ...

Extend Delphi Components Without the Need to Install in the IDE; TButton = class(TButton)

Posted: 23 Mar 2011 06:00 PM PDT

in Delphi TIPS :: Have you ever needed for a specific Delphi control, like a TButton, to have just one more property or a method that is a "must have" for your current application? What most beginners do not know is that they *can* create their own custom controls derived from the existing VCL set ...

Belajar Delphi Lewat youtube.com

2011-03-24T06:00:00.002+07:00

Hello Delphiers,
pada artikel ini saya mengajak delphier semua untuk mencoba belajar delphi melalui youtube. Ya youtube. Di situs itu sudah ada channel yang khusus berisi tutorial delphi, yaitu DelphiUniversity. Sampai artikel ini ditulis (17 Maret 2011) sudah ada sekitar 14 tutorial.

Ke 14 tutorial itu membahas produk terbaru dari embarcadero, yaitu Delphi XE. Kebanyakan membahas teknologi yang lagi hot, yaitu DataSnap XE. Tidak sabar melihat video-video itu? Silahkan klik link ini :
Ini beberapa contoh tutorialnya:

Object Oriented Programming Pada Delphi - Bag 6

2011-03-22T06:00:00.003+07:00

Pada artikel sebelumnya, kita sudah sedikit mengimplementasikan prinsip-prinsip OOP pada kelas TMruList. Pada artikel berikut ini, kita akan membahas beberapa hal prinsip tentang OOP lebih lanjut. Kita akan membahas skope variable dan method, constructor dan destructor, dll.

Skope Variable dan Method
Ketika kita bicara tentang skope dari variable dan method, artinya kita membicarakan dari mana suatu method/variable bisa diakses. Bisa juga kita artikan siapa saja yang bisa mengakses variable dan method tersebut . Pada kelas yang sudah kita buat, semua method dan variable bisa diakses oleh siapapun dan dari manapun. Hal yang demikian bukanlah design yang bagus. Coba perhatikan variable FNumItems pada kelas TMRUList.Variable ini hanya dipakai di dalam kelas tersebut untuk mencatat berapa jumlah string yang ada pada list. Karena variable ini kelihatan (bisa dipakai) oleh pengguna kelas , maka bisa saja si user mengganti nilai variable ini, maka hal ini akan merusak integritas kelas kita ini.
Jadi, kita harus membedakan variable dan method yang bisa diakses oleh user (di luar kelas) dengan variable atau method yang hanya bisa diakses dari dalam kelas. Kita seharusnya hanya mengijinkan user untuk melihat variable dan method yang berhubungan dengan interface kelas, yaitu hal-hal pokok yang diperlukan untuk menggunakan kelas tersebut . Detail implementasi dari kelas sebaiknya disembunyikan dari user. Dengan demikian kita bisa merubah detail dari implementasi kelas ini tanpa mengganggu baris kode user yang menggunakan kelas ini selama interface kelas tidak berubah. Hal ini merupakan prinsip OOP kedua, yaitu enkasulapsi (encsulaption).
Sidebar
Prinsip Enkasulapsi ….
Untuk menyembunyikan variable dan method dari pengguna kelas, si pembuat kelas bisa memisahkan kelasnya menjadi beberapa seksi (bagian). Seksi-seksi ini menentukan skope dari variable dan method yang dideklarasikan di masing-masing seksi tersebut. Sebuah kelas bisa mempunyai empat seksi, yaitu :

Public
Published
Private
Protected

Bagaimana skope dan siapa saja yang bisa mengakses variable/method kita tergantung di mana kita mendeklarasikan variable/method tersebut.

Public
Semua hal yang dideklarasikan pada bagian ini berarti bisa diakses oleh pengguna kelas. Kemudian, jika kita dalam mendeklarasikan method atau variable tidak dimasukkan ke seksi manapun, maka by default, method/variable tersebut seperti dideklarasikan di seksi public.

Private
Kebalikan dengan seksi public, semua yang dideklarasikan di seksi ini hanya bisa diakses dari kelas yang bersangkutan. Versi kedua dari kelas MRUList memberikan contoh variable yang dideklarasikan di seksi private, yaitu FNumItems dan FMList. Perhatikan baris kode berikut ini :

Type
 TMruList = Class
  Private
   FMList : Array[0..MRUMaxItems – 1] of String;
   FNumItems : Integer;
  Public
   Function Count : Integer;
   Procedure Add( s : String);
   Function GetString( n : Integer) : String
 End;

Dengan deklarasi seperti di atas, pengguna kelas ini tidak bisa langsung mengakses FMList atau FNumItems secara langsung. Hanya kelas MRUList sendiri yang bisa mengaksesnya. Jadi, pengguna kelas tidak perlu tahu apa itu FMList dan FNumItems . Hal inilah yang dimaksud enkasulapsi - yaitu menyembunyikan implementasi detail suatu kelas.

Protected
Seksi Protected , pada bagian ini, semua yang dideklarasikan bisa diakses dari kelas ini sendiri dan kelas-kelas turunannya. Pembahasan ini akan lebih detail nanti (kalau ada waktu) ketika membahas tentang inheritance.

Published
Seksi publised hampir sama dengan public. Bedanya, jika class ini berupa kelas komponen, maka semua yang dideklarasikan di seksi published ini akan muncul di object properties. Hal ini tidak terjadi jika dideklarasikan di seksi public.

Tibalah Saatnya Menuliskan Contructor & Destructor Sendiri

Dari artikel-artikel sebelumnya, kita sudah pernah membahas apa itu constructor– yaitu sebuah function khusus yang dipakai untuk mengalokasikan memori untuk objek dari kelas di mana constructor tersebut dideklarasikan. By default, suatu kelas mempunyai sebuah constructor yaitu create. Sebenarnya kita bisa mendeklarasikan constructor sendiri untuk kelas-kelas yang kita buat. Caranya sama dengan membuat sebuah method. Dengan membuat cosntructor sendiri, kita bisa memperloleh keuntungan yaitu kita bisa melakukan inisialisasi properti ketika constructor dipanggil.
Sebagai contoh, berikut ini saya tuliskan baris kode untuk mengalokasikan memori untuk objek bertipe kelas TSquare, setelah itu dilakukan inisialisi properti dari objek tersebut. :

o := TSquare.Create;
o.FX := 10;
o.FY := 10;
o.FWidth := 5;
o.FCaption := ‘First Square';

Jika kita menuliskan constructor sendiri untuk kelas TSquare ini, kita bisa mengirimkan nilai awal (initial value) dari atribut-atribut kelas TSQuare ini. Kita bisa menuliskan :

o := TSquare.Create( 10, 10, 5, ‘First Square');

Baris kode di atas lebih elegan dan menguntungkan. Dengan membuat constructor sendiri, kita bisa menjamin ada nilai awal untuk atribut dari kelas ketika pertama kali constructor dipanggil. Jika ada atribut yang tidak mempunyai nilai awal , lalu atribut-atribut tersebut dipakai pada suatu method, bisa jadi error yang akan ditampilkan oleh compiler. Lihat kode di bawah ini :

o := TSquare.Create; 
// Calculate its area; 
a := o.Area;

Baris kode di atas, kita menjalankan method area (untuk menghitung luas) , tapi kita lupa melakukan inisialisasi atribut panjang dan lebar. Jika kita membuat contructor sendiri, kesalahan yang seperti ini akan bisa dihindari karena kita dipaksa untuk memasukkan nilai awal untuk atribut panjang dan lebar pada saat memanggil constructor.

Keuntungan lain dengan membuat constructor sendiri yaitu kita bisa melakukan inisialisasi suat objek yang dalam kelas. Dibagian awal dari artikel OOP Pada Delphi ini, kita membuat sebuah kelas yaitu TMRUList. Kelas ini mempunyai atribut yang bertipe TStringList. Sebelum bisa digunakan, atribut yang bertipe TStringList ini harus dialokasikan memori untuknya (Instansiasi, saya kebelakang akan menggunakan istilah instansiasi untuk menggantikan istilah "Mengalokasikan Memori"). Tempat yang paling tepat untuk meng-instantsiasi atribut ini adalah constructor. Jadi, ketika kelas TMRUList di-instantsiasi, pada saat yang sama kelas ini juga meng-instantsiasi atribut yang berti TStringList tersebut.

Sekarang, artibut yang bertipe TStringlist tadi juga perlu dibebaskan memori-nya (destroy, saya akan memakai istilah ini untuk menggantikan istilah "membebaskan memori") .Kapan yang tepat untuk men-destroy atribut tersebut? Saat yang yaitu ketika proses destryo objek yang bertipe TMRUList itu sendiri. Sama dengan proses instansiasi, proses destroy juga tidak otomatis dilakukan. Ketika objek TMRUList di-destroy, kita perle mengeksekusi baris kode yang akan men-destroy atribut yang bertipe TStringList. Di dalam delphi, disediakan method yang dipakai untuk men-destroy suatu object, yaitu destructor . Destructor bisa dibilang sebagai kebalikan dari constructor – destructor ini dipanggil ketia sebuah objek di-destroy.

Lebih jelasnya lihat baris kode berikut ini :
Kita deklarasikan sebuah constructor pada bagian deklarasi kelas dengan kata kunci Constructor :

Type
 TSquare = Class
 FX, FY : Integer;
 FCaption : String;
 FWidth : Integer;
 Function Area : Integer;
 
 Constructor Create( px, py : Integer; // deklarasi constructor
 pWidth : Integer; Caption : String;
End;

Kemudian, kita tuliskan isi dari constructor tersebut pada bagian implementation. Pada bagian, kita juga menggunakan kata kunci Constructor:

Constructor TSquare.Create(px, py : Integer;
 pWidth : Integer; pCaption : String);
Begin
 Self.FX   := px;
 Self.FY   := py;
 Self.FWidth  := pWidth;
 Self.FCaption  := pCaption;
End;

Seperti yang terlihat pada baris kode di atas, , yang dilakukan constructor adalah meng-copy nilai dari parameter ke atribut yang ada pada kelas tersebut. Untuk kasus di atas, penggunaan keyword adalah optional saja. Hal ini karena nama parameter dengan atribut kelas berbeda. Jika anda menamakan paramer sama dengan atribut kelas, maka penggunaan keyword Self adalah sebuah keharusan. Namun, lebih baik anda menghindari penamaan yang sama antara paramer dan nama atribut kelas.

Baris kode berikut memperlihat constructor pada kelas TMRUList. Pada kelas ini, digunakan atribut yang bertipe TStringList , yaitu FMList , untuk menampung string yang paling akhir dipakai.

Constructor TMRUList.Create;
Begin
 FMList := TStringList.Create;
End;

Pada baris kode di atas, constructor hanya meng-instantsiasi kelas TStringList dan menyimpannya pada atribut FMList. Seperti yang sudah saya utarakan di atas, atribut FMList harus di-destroy ketika kelas TMRList ini di-destry. Kita harus lakukan hal ini di dalam destructor.

Delphi secara otomatis akan memanggil destructor ketika methog destroy dari suatu objek dijalankan.

mruList := TMRUList.Create;
Try
 // Work with mruList here
Finally
 mruList.Free; // baris ini akan memanggil destructor
End;

Ketika method Free dijalankan, Delphi secara otomatis akan memanggil destructor. Destructor di deklarasikan dengan kata kunci Destructor. Yang perlu diingat, kita harus menambah kata kunci Override di belakang deklarasi destructor. Berikut deklarasi kelas TMRUList secara lengkap :

Type
 TMruList = Class
 Private
  FMList : TStringList;
  Constructor Create;
  Destructor Destroy; Override;
 Public
  Function Count : Integer;
  Procedure Add( s : String);
 Function GetString( n : Integer) : String
End;

Implemenasi dari destructor hampir sama dengan constructor. Kalau constructor biasanya namanya create, sedangkan destructor namanya harus destroy. Yang perlu diingat yaitu kita harus men-destroy dulu atribut yang bertipe kelas baru kemudian memanggil method Destroy. Ingat, dalam memanggil method destroy harus diawali dengan kata kunci inherited :

Destructor TMRUList.Destroy;
Begin
 FMList.Free;
 Inherited Destroy;
End;

Perhatikan, pada baris kode kelas di atas, variable numItems saya hilangkan, karena variable nilainya bisa langsung didapatkan dari atribut yang bertipe TStringList, yaitu dengan memanggil method Count. Berikut ini, baris kode kelas TMRUList setelah numItems dihilangkan :

// Return the number of elements in the MRUList
Function TMruList.Count : Integer;
Begin
 Result := Self.FMList.Count;
End;

// Shift all the elements in the list up by one,
// add new element at the start
Procedure TMruList.Add(s : String);
Var
 i : Integer;
Begin
 Self.FMList.Insert(0, s);
 If Self.FMList.Count >= MRUMaxItems Then
  Self.FMList.Delete( Self.FMList.Count – 1);
End;

Function GetString( n : Integer ) : String;
Begin
 If (n >= 0) and (n <= Self.FMList.Count - 1) Then
  Result := Self.FMList.Strings[n];
End;

Sekian

Object Oriented Programming Pada Delphi - Bag 5

2011-03-14T07:30:00.009+07:00

Delphi Lover, pada artikel sebelumnya kita telah belajar membuat kelas sendiri lengkap dengan method-methodnya. Pada artikel ini, kita akan mempelajari konvensi penamaan kelas, membuat kelas yang sering dipakai di dunia nyata. Dengan mempelajari artikel ini diharapkan baris kode kita mudah dibaca (karena sesuai dengan konvensi di Delphi) dan memperdalam pemahaman kita tentang kelas, objek dan cara penggunaanya. Selamat mengikuti.

Konvensi Penamaan Pada Delphi

Salah satu konvensi pada Delphi adalah nama kelas selalu diawali dengan huruf T (te) yang merupakan sigkatan dari type. Itulah mengapa pada artikel-artikel terdahulu kita menamakan TSquare dan Tstudent bukan Student dan Square. Coba perhatikan kelas-kelas bawaan Dephi semua diawali dengan huruf T (type), mis TButton, TForm, dll.

Konvensi lainnya yaitu nama atribut selalu diawali dengan huruf F (ef), yang merupakan singkatan dari Field. Akan lebih jelas kenapa diawali huruf F (ef) setelah kita mempelajari istilah properties pada artikel-artikel berikutnya. Untuk sekarang ikuti dulu aja : )

Kelas MRU List

Sudah ada beberapa hal tentang OOP yang kita pelajari, namun contoh berikut, yang merupakan contoh yang sering terjadi di dunia nyata akan lebih memperdalam pemahaman kita tentang OOP. Kita akan membuat kelas (tipe data baru) MRUList – yaitu sebuah kelas yang akan dipakai untuk mencatat string yang sering digunakan pada sebuah aplikasi (Most Recently Used). Contoh implementasi MRU antara lain :

1.Produk Microsoft Office, bisa menampilkan file yang paling sering dipakai.
2.Delphi , bisa menampilkan file-file yang baru saja dibuka.

Kita akan membuat sebuah aplikasi di mana user bisa melihat string apa saja yang baru saja dipakai. Karena kita belum mempelajari semua fitur OOP di delphi, kelas yang akan kita buat merupakan kelas yang sederhana dulu. Kita akan mencoba memakai fitur-fitur OOP yang sudah kita pelajari selama ini.
OK, sekarang kita mulai dengan menentukan operasi-operasi apa saja yang akan dilakukan oleh kelas. Kira-kira operasi yang kita butuhkan meliputi :

1.Operasi Query berapa elemen yang ada di list;
2.Operasi untuk menambahkan string pada MRU List;
3.Operasi untuk menampilkan string yang ada pada posisi tertentu;

Ketika kita menambahkan sebuah string pada list, string tersebut akan berada di awal list.Pada aplikasi ini kita harus tentukan jumlah maksimal string yang bisa ditampung di dalam list. Jika sudah mencapai jumlah maksimal, ketika ada string yang ditambahkan lagi, maka kita harus menghapus string yang terakhir dan menempatkan string yang baru pada awal list. Itulah mengapa aplikasi ini disebut MRU (Most Recently Used) List, karena kita dengan aplikasi ini kita bisa mengetahui daftar string apa saja yang baru saja dipakai.
Berikut ini deklarasi awal dari kelas yang akan kita buat :

Type
  TMruList = Class
    Function Count : Integer;
    Procedure Add( s : String);
    Procedure GetString( n : Integer) : String
  End;

Berdasarkan deklarasi kelas di atas, berikut ini contoh penggunaannya :

Var
  muList : TMruList;
  s : String;

Begin
  // inisialisasi objek / alokasikan memori
  mruList := TMruList.Create;
  Try 
    // menambahkan string ke objek
    mruList.Add(‘Spence’);
    mruList.Add(‘Jones’);

    // akses string dalam list
    // string terakhir dipakai berada di index 0
    s := mruList.GetString( 0 );
    // s berisi Jones (string terakhir);
 Finally
  // bebaskan memori
  mruList.Free;
 End;
End;

Pada contoh di atas, kita alokasikan dan membebasan meori pada procedure yang sama. Jika kita menggunakan kelas ini pada sebuah form, maka kita sebaiknya mengalokasikan memori pada saat form dicreate (onCreate Event) dan membebaskan memori pada saat form didestrory (onDestroy event).

OK, sekarang tiba saatnya kita menuliskan baris kode di bagian implementasi kelas. Namun sebelum itu, kita harus tentukan dulu bagaimana caranya menyimpan string pada kelas ini. Solusi terbaik mungkin dengan menggunakan TstringList untuk menyimpan string. Ketika user menambahkan string ke dalam MRUList, kita tambahkan saja string tersebut pada awal stringlist. OK, karena solusi untuk menyimpan string kita gunakan stringlist, maka kita harus deklarasikan sebuah variable yang bertipe TstringList. Kira-kira bagian deklarasi dari kelas TmruLIst seperti di bawah ini :

Type
  TMruList = Class
    FMList : TStringList;
    Function Count : Integer;
    Procedure Add( s : String);
    Procedure GetString( n : Integer) : String
  End;

Dengan demikian kelas di atas harus mengalokasikan memori untuk variable FMList. Kita harus menambahkan baris kode berikut ini :

FMList := TStringList.Create;

Dimana kita harus tambahkan baris kode di atas? Hmmm , perhatikan, proses pengalokasian memori untuk kelas TmruLIst tidak otomatis mengalokasikan memori untuk varable FMList. Kita bisa mengalokasikan memori untuk variable FMList (dengan menambahkan baris kode di atas) pada baris setelah kita alokasikan memori untk kelas TmruList ini. Lihat baris kode berikut :

mruList := TMruList.Create;
mruList.FMList := TStringList.Create;

Tapi cara yang demikian cara yang kurang bagus (poor design) . Dengan cara di atas berarti kita mewajibkan programmer lain yang menggunakan kelas ini untuk melakukan operasi yang berurutan, yaitu mengalokasikan memori untuk kelas, lalu mengalokasikan memori untuk variable FMList. Demikian juga ketika akan melakukan proses membebaskan memori, programmer harus membebaskan memori FMList dulu baru membebaskan memori untuk kelas ini. Hal ini sangat merepotkan dan cenderung menambah resiko kesalahan.

Ada satu solusi untuk masalah di atas, yaitu dengan menyerahkan proses pengalokasian memori pada constructor dan pembebasan memori pada destructor. Cara ini akan kita implementasikan nanti pada artikel berikutnya. Untuk sementara kita akan menggunakan array dengan panjang yang kita tetapkan di awal. Array ini dipakai untuk menampung string. Selain itu kita juga mendeklarasikan satu variable yang akan mencatat berapa string yang digunakan pada satu waktu. Lihat baris kode berikut ini :

Const
 MRUMaxItems = 4;

Type
 TMruList = Class
  FMList : Array[0..MRUMaxItems – 1] of String;
  FNumItems : Integer;
  Function Count : Integer;
  Procedure Add( s : String);
  Function GetString( n : Integer) : String
 End;
Implementation

// Return the number of elements in the MRUList
Function TMruList.Count : Integer;
Begin
 Result := Self.FNumItems;
End;
// Shift all the elements in the list up by one, add new element at the start
Procedure TMruList.Add(s : String);
Var
 i : Integer;
Begin
 For i := max(Self.FNumItems, MRUMaxItems - 1] DownTo 1   Do
  Self.FMList[i] := Self.FMList[i – 1];

 Self.MList[0] := s;
 Self.FNumItems := Max(FNumItems + 1, MRUMaxItems);
End;
Function GetString( n : Integer ) : String;
Begin
 If (n >= 0) and (n <= Self.FNumItems - 1) Then
  Result := Self.FMList[n];
End;

(Bersambung)

Free Magazine (Sekilas Tentang Delphi Starter Edition)

2011-03-10T08:53:00.004+07:00

Nama Blaise Pascal Magazine seharusnya bukanlah nama asing buat kita-kita, para delphi maniak. Ya, sebuah majalah yang berisi tentang bahasa keluarga pascal. Sesuai tag line-nya “ALL ABOUT DELPHI AND DELPHI PRISM(.Net) , LAZARUS & PASCAL, AND RELATED LANGUAGES” . Pada edisi 15/97 Download edition membahas tentang Delphi Starter Edition.

Pada edisi kali ini akan dibahas beberapa hal tentang Delphi Starter Edition, antara lain :

1. Delphi XE Starter edition reviewed

2. Delphi XE Starter try: a littel Mailserver

3. ClientDataset: what to do if you dont have it?

4. get kbmMemTable CodeGear Edition its free!

5. Introduction to Databases Part 2:

- Common Database Objects

- Advantage Database Server and Delphi XE Starter Edition

- Moving /adding your components into the Delphi Starter Edition

Menarik bukan? Edisi ini bisa anda download disini

Object Oriented Programming Pada Delphi - Bag 4

2011-03-07T21:45:00.021+07:00

Para Delphi dan OOP Mania, pada artikel sebelumnya kita telah mempelajari cara mengalokasikan dan membebaskan memori sebuah objek. Pada artikel berikut ini, saya akan coba menjelaskan bagaimana cara mendeklarasikan sebuah kelas lengkap dengan method – methodnya. Selamat mengikuti.

Seperti yang telah kita pelajari pada artikel sebelumnya, kelas adalah sebuah pola/rancangan/struktur data. Pada artikel tersebut, kita telah mendeklarasikan kelas sebagai berikut :

Type
 TStudent = Class
  FNama : String;
  FNIS : String;
  FAlamat : String;
  FTelpon : String;
 End;

Jika kita membuat empat objek bertipe TStudent, maka masing-masing objek tersebut akan mempunyai atribut yang sama yaitu nama,nis, alamat dan telpon. Struktur dari masing-masing objek tadi sama persis,dan struktur objek ini ditentukan pada/oleh kelas TStudent.

Atribut-atribut yang ada pada objek student – dalam kasus ini yaitu FNama, FNIS, Falamat ,dan FTelpon, di OOP dikenal dengan beberapa nama. Kadang disebut instance variables, data members, properties dan fields. Hati-hati, jangan terkecoh dengan fields yang berarti kolom pada table.

Jika kita telah terbiasa dengan tipe data Record, tentunya kita akan melihat bahwa struktur sebuah kelas tidak berbeda dengan struktur tipe data record. Keduanya merupakan tipe data yang merupakan gabungan dari beberapa data. Lalu apa yang membedakan kelas dengan tipe data record ? Di dalam kelas, kita bisa membuat procedure (biasa disebut method). Dengan method ini nantinya objek yang kita buat bisa melakukan sesuatu. Method untuk kelas TStudent bisa "RegisterForClass", "SavetoTable", "SendInvoice", dll. Untuk lebih memberi gambaran apa itu method, coba anda buka kelas TstringList dan TiniFile. Sebutkan method-method yang ada pada kedua kelas tersebut.

Saatnya Kita Menuliskan Method

Ada dua langkah yang harus kita lakukan ketika akan membuat sebuah method. Yang pertama, kita harus deklarasikan method tersebut pada bagian deklarasi kelas. Hal ini hampir sama dengan pendeklarasian atribut/properties kelas. Deklarasi ini akan memberitahulan ke compiler method-method apa saja yang dimiliki kelas ini. Method pada kenyataannya sama dengan function atau procedure. Method bisa mengembalikan nilai dan bisa juga menerima parameter. Berikut ini adalah contoh kelas dengan empat atribut dan tiga methods :

Type
 TSquare = Class
  FX, FY : Integer;
  FWidth : Integer;
  Caption : String;
  Function Area : Integer; // hitung luas
  Procedure MoveLeft(dx, dy : Integer); menggerakan ke kiri
  Procedure MoveRight(dx, dy : Integer); menggerakan ke kanan
End;

Langkah selanjutnya yaitu menuliskan baris kode untuk method-method tadi. Kita nanti akan melihat bagaimana cara menuliskan baris kode pada sebuah method , namun sebelum itu coba kita lihat bagaimana kita akan menggunakan method-method tersebut:

Var
 Square1 : TSquare;
 SqWidth : Integer;

Begin
 Square1 := TSquare.Create;
 Try
  Square1.Fx := 10;
  Square1.Fy := 20;
  Square1.FWidth := 7;

  SqWidth := Square1.Area; // 49 nilai yg kita harapkan       Square1.MoveLeft(2, 3);
 Finally
  Square1.Free;
 End;

Seperti yang kita lihat pada baris kode di atas, kita bisa memanggil method dengan menuliskan nama method tersebut diawali dengan nama objeknya (disambung dengan dot/titik) , hal ini sama dengan cara memanggil atribut kelas. Sekarang, jika kita mempunyai dua buah objek bertipe TSquare, dan kita panggil salah satu method, atribut mana yang dipakai oleh method tersebut ? Perhatikan baris kode berikut ini :

Var
 Square1 : TSquare;
 Square2 : TSquare;
 SqWidth : Integer;

Begin
 Square1 := TSquare.Create;
 Square1.FWidth := 7;

 Square2 := TSquare.Create;
 Square2.FWidth := 5;
 SqWidth := Square1.Area; // Hasilnya 49 atau 25?

Berapa nilai sqWidth? Kita inginkan nilainya 49 – yang didapat dari nilai atribut Width x Width. Dan memang demikian. Lalu kenapa bisa nilainya 49 kok bukan 25? Perhatikan, bahwa sebuah method akan menggunakan atribut dari objek yang memanggilnya. Jika kita memanggil method area dari objek Square1 , maka method ini akan menggunakan atribut width milik objek square1 yang bernilai 7.

Sejauh ini kita sudah mengetahui cara mendeklarasikan sebuah method. Selanjutnya kita harus menuliskan baris kode yang merupakan implementasi method yang kita deklarasikan.Kita harus tuliskan baris kode tersebut pada bagian implementation. Bagaimana caranya? Mudah, tuliskan seperti kita menulis sebuah procedure/function seperti biasa. Tapi satu hal yang perlu kita perhatikan. Kita harus bertitahu compiler bahwa procedure yang kita tuliskan bukan procedure seperti biasanya. Caranya dengan menambahkan nama kelas sebelum nama methos (disambung dengan dot/titik). Lihat contoh dibawah ini :

TSquare.Area : Integer;

//dan

Procedure TSquare.MoveLeft(dx, dy : Integer);

Yang perlu anda catat bahwa, kenapa objek yang memanggil method area tidak dijadikan parameter? Lalu bagaimana method – yang aslinya berupa procedure/function biasa – bisa mengakses data dari objek tersebut? Sebenarnya , objek tersebut dijadikan parameter pada method tadi, tapi kita tidak melihatnya, atau lebih tepatnya kita tidak mau menuliskannya. Ketika kita menuliskan baris kode :

SqWidth := Square1.Area; // 49

Compiler sebenarnya mengenerate baris kode :

SqWidth := Area( Square1 )

Jadi secara “Behind the scenes” compiler menjadikan objek sebagai parameter. Di damal method, kita bisa menggunakan “identifier” self untuk mengacu ke objek yang memanggil method tersebut.Ketika kita menuliskan baris kode :

Square1.Area

Di dalam method tersebut Self mengacu ke objek Square1. Jika kita menulis baris kode :

Square2.Area

Berarti Self mengacu ke objek Square2.
Di bawah ini keseluruhan kode untuk method Area:

Function TSquare.Area : Integer;

Begin
 Result := Self.FWidth * Self.FWidth;
End;

Dan di bawah ini keseluruhan kode untuk method MoveLeft dan MoveRight:

Procedure TSquare.MoveLeft( dx, dy : Integer);

Begin
 Self.Fx := Self.Fx – dx;
 Self.Fy := Self.Fy – dy;
End;
Procedure TSquare.MoveRight( dx, dy : Integer);

Begin
 Self.Fx := Self.Fx + dx;
 Self.Fy := Self.Fy + dy;
End;

Pada sebagian besar kasus, penggunaak Self merupakan opsional saja – jadi kita bisa langsung mengakses atribut objek tanpa didahului self, seperti pada baris kode berikut ini :

Function TSquare.Area : Integer;

Begin
 Result := FWidth * FWidth;
End;

Baris kode di atas tidak menimbulkan error. Hal ini karena compiler tahu method yang dipanggil tersebut milik kelas apa, oleh karena itu compiler tahu atribut yang kita akses baik kita menggunakan self atau tidak. . Namun ada satu pengecualian, jika kita mempunyai variable lokal pada method yang namanya sama persis dengan atribut objek, maka untuk mengakses atribut objek harus didahuui dengan self, jika tidak maka compiler akan membaca variable lokal tersebut (bukan atribut objek) , perhatikan contoh di bawah ini :

Function TSquare.Area : Integer;

Var
 FWidth : Integer; 
Begin
 Result := FWidth * FWidth;
End;

Pada method di atas terdapat satu variable lokal bernama Fwidth. Jika kita akses Fwidth tanpa diawalai Self, maka compiler akan memanggil Fwidth (variable lokal) bukan Fwidth (Atribut objek)

Tip

Setelah kita deklarasikan method kita bisa klik Ctrl Shift C –Delphi akan mengenerate kode (hanya outline) di bagian implementation. (Bersambung)

Delphi Starter Edition video

2011-03-03T13:01:00.002+07:00

Delphi XE Starter Edition adalah sebuah solusi yang ditawarkan oleh Embarcadero. Dengan paket ini kita bisa mendapatkan harga yang jauh lebih murah dibanding Delphi Profesional maupun Delphi Enterprise.

Untuk lebih mengenal apa itu itu Delphi XE Starter Edition bisa di lihat video berikut ini :

Jika masih punya pertanyaan seputar Delphi Starter Edition bisa di lifat FAQ tentang edisi ini.

Object Oriented Programming Pada Delphi - Bag 3

2011-03-01T04:15:00.004+07:00

Pada artikel sebelumnya , kita telah mempelajari cara menggunakan kelas dan objek. Pada artikel berikut ini, saya akan membahas tentang bagaimana cara mengalokasikan dan membebaskan memori yang dipakai objek. Selamat mengikuti.

Pastikan bebaskan memori yang sudah tidak terpakai !

Perhatikan potongan program di bawah ini :

Procedure Test;
Var
i, j : Integer;
stringList1 : TStringList;

Begin
stringList1 := TStringList.Create;
i := 10;
j := 0;
i := i div j; // baris 10 – menimbulkan Exception
stringList1.Free; // baris 11 – tdk akan pernah dieksekusi
End;

Pada baris ke 10, program akan menampilkan eksepsi devide by zero. Jika kita jalankan kode di atas menggunakan debugger, kita akan lihat bahwa baris ke 11 tidak akan pernah dieksekusi. Memori yang di alokasikan untuk stringList1 tidak pernah dibebaskan. Contoh di atas mungkin akan jarang terjadi, namun yang jelas kita harus hati-hati ketika mengalokasikan memori , kita harus memastikan bahwa memori yang dialokasikan tadi bisa dibebaskan. Delphi menyarankan – dan saya juga – untuk selalu mengapit penulisan Create / Free dengan Try / Finally. Try / Finally merupakan bagian dari standar pemrograman Pascal, cara kerjanya saya jelaskan dibawah ini.

Dalam menggunakan Try/Finally kita akan menjumpai dua buah kelompok baris kode. Kelompok pertama terletak di antara Try dan Finally, sedangkan kelompok kedua terleta di antara finally dan end. Perhatikan potongan baris kode di bawah ini :

Try
kelompok 1
Finally
kelompok 2
End;

Jika ada baris kode di kelompok pertama menimbulkan eksepsi, maka delphi akan menjaankan baris kode yang berada di kelompok kedua sebelum menampilkan eksepsi. Jika kelompok pertama tidak menimbulkan ekspsi baris kode pada kelompok kedua tetap akan dijalankan. Oleh karena itu, baris kode pada kelompok kedua pasti akan diekseusi baik terjadi atau tidak eksepsi pada baris kode di kelompok pertama. Untuk memastikan program bisa membebaskan memori yang sudah tidak terpakai, panggillah procedure free pada kelompok kedua. Lihat pola standar berikut ini :

objek := namakelas.namaconstructor
Try
// Gunakan objek di sini
Finally
.Free;
End;

Perhatikan , kita harus memanggil constructor sebelum baris Try. Hal ini untuk mengantisipasi jika constructor gagal dieksekusi. Jika constructor gagal dieksekusi, delphi tidak akan mengalokasikan memori..Jika constructor dieksekusi setelah baris Try, delphi akan menjalankan baris kode pada kelompok kedua, hal ini akan memungkinkan delphi membebaskan memori yang belum dialokasikan. Dengan menempatkan constructor sebelum try, jika constructornya gagal dieksekusi maka delphi tidak akan mengeksekusi baris kode pada kelompok kedua.
Jika kita harus mengalokasikan dan membebaskan memori untuk lebih dari satu buah objek, penggunaan Try / Finally akan sedikit lebih komplek. Perhatikan potongan baris kode berikut ini :

Var
Student1 : TStudent;
StringListl : TStringList;

Begin
// alokasikan memori
StringListl := TStringList.Create;
Student1 := TStudent.Create;
Try
// akses data Student1 & StringList1
Finally
Student1.Free;
StringList.Free;
End;

Apakah baris kode di atas sudah memastikan procedure free akan dipanggil? Tidak. Jika constructor TStudent gagal dieksekusi, program tidak akan masuk padablok Try,oleh karena itu baris kode pada blok finally tidak akan dieksekusi,dan memori untuk StringList1 tidak akan dibebaskan. Solusi yang bisa kita lakukan adalah :

Var
Student1 : TStudent;
StringListl : TStringList;

Begin
// alokasikan memori
StringListl := TStringList.Create;
Try
Student1 := TStudent.Create;
Try
// akses data Student1 & StringList1
Finally
Student1.Free;
End;
Finally
StringList.Free;
End;

Baris kode di atas bisa dicompile, tapi penulisan baris kode seperti sangat membosankan; coba anda bayangkan jika kita harus create tiga objek atau lebih . Satu trik untuk menyederhanakan baris kode di atas bisa kita buat. Trik ini berdasarkan bahwa Free tidak akan dijalankan jika objeknya nil. Coba cek algoritma precedure Free di bawah ini :

// Delphi’s Free
If theObjectBeingReleased <> Nil Then
ReleaseTheMemory; // Self.Destroy

Sebelum membebaskan memori, procedure Free pertamakali akan mengecek apakah objeknya nil atau tidak. Berarti, apakah baris kode berikut ini aman ?

Var
Student1 : TStudent;
Begin
// Lupa inisialisasi
Student1.Free;

Jawabannya tergantung dari nilai Student1 ketika procedure Free dipanggil. Apakah Student1 nil? Tidak. Di Delphi, variable tidak diberi nilai awal. Perhatikan baris kode di bawah ini (saya jamin tidak akan menimbulkan error) :

Var
Student1 : TStudent;
Begin
Student1 := Nil;

// Lupa inisialisasi Student1
Student1.Free;

Bagaimana baris kode di atas bisa menyederhanakan penulisan baris kode yang mengharuskan kita mengalokasikan memori dan membebaskan memori dari banyak objek? Perhatikan, dengan memehami algoritma procedure Free berarti kita bisa menuliskan baris kode berikut ini :

Student1 := Nil;
Try
Student1 := TStudent.Create;
Finally
Student1.Free;
End;

Jika constructor gagal dijalankan bisa dipastikan procedure Free tidak akan gagal dieksekusi. Kenapa demikian? Ya, karena jika constructor gagal dieksekusi berarti objek tersebut tidak dialokasikan memori untuknya sehingga nilainya tetap nil. Jika objek bernilai nil, ketika dipanggil procedure Free tidak akan menimbulkan error..
Jadi , solusi yang bisa kita ambil ketika kita harus mengalokasikan memori untuk banyak objek bisa seperti baris berikut ini :

Var
Student1 : TStudent;
StringListl : TStringList;

Begin
Student1 := Nil;
StringList1 := Nil;
Try
StringListl := TStringList.Create;
Student1 := TStudent.Create;
// Akses data Student1 dan StringList1
Finally
Student1.Free;
StringList.Free;
End;

Penulisan baris kode yang awal , yaitu menuliskan try/finally di dalam try finally, merupakan solusi yang lebih aman, namun agak ribet. Sedangkan solusi yang kedua (dengan inisialisasi objek menjadi nil) enawarkan solusi penulisan baris kode yang singkat dan enak dibaca. Silahkan anda pilih sendiri.
Berbica mengenai kegagalan dalam membebaskan memori, sebenarnya ada beberapa tool yang bisa membantu kita dalam mendekteksi hal ini. Beberapa contoh antara lain : FastMM dan EukareLog. Silahkan pelajari kedua tool tersebut. Bersambung

Wallpaper Delphi XE

2011-02-25T12:49:00.015+07:00

Bagi teman-teman yang ingin mempercantik destopnya dengan walpaper bernuansa Delphi XE, silahkan download gambarnya di bawah ini

1. 1440 X 900

2. 1280 x 1024

3. 1280 x 1024

4. 1024 x 768

Object Oriented Programming (OOP) Pada Delphi - Bag 2

2011-02-22T06:13:00.021+07:00

Pada artikel sebelumnya sudah saya jelaskan secara ringkas tentang apa itu OOP, objek, kelas dan sebuah contoh sederhana tentang deklarasi kelas. Pada artikel ini saya akan membahas lebih dalam tentang objek.

Bekerja Dengan Objek

Sebelum kita melanjutkan ke bagian cara deklarasi kelas, kita akan sedikit membahas bagaimana caranya menggunakan kelas dan objek. Kita akan menggunakan TstringList (dawaan delphi) sebagai contoh dalam pembahasan ini.

Var
StringList1 : TStringList; // TStringList > kelas –
// StringList1 objek

Di mana kita harus tuliskan deklarasi di atas? Ini tergantung pada dimana kita akan menggunakan objek ini (scope) berapa lama kita akan menggunakannya (lifetime-nya). Jika kita hanya akan mengakes pada satu method kita, maka deklarasikan pada method tersebut. Misalnya :

Procedure Test;
Var
StringList1 : StringList;
Begin

End;

Pada contoh di atas, variable StringList1 kita deklarasikan pada procedure test. Setelah kita selesai menjalankan procedure test, maka kita sudha tidak bisa mengakses variable StringList1 lagi. Jika kita ingin objek kita ingin objek Stringlist1 ini mempunya skope yang lebih luas dan life time yang lebih lama, kita harus deklarasikan objek ini di luar procedure test. Jika kita deklarasikan objek ini di bagian implementation unit, diluar procedue test, maka objek ini bisa diakses dari semua bagian unit di mana objek ini di deklarasikan. Tapi jika objek ini kita deklarasikan di bagian interface, maka objek ini akan bisa diakses dari semua bagian unit di mana objek ini dideklarasikan dan bisa juga diakses dari unit lainnnya yang mencantumkan unit ini pada bagia uses-nya.

Tanpa memperhatikan dimana kita deklarasikan objek Stringlist1, program kita mempunya kewajaiban untuk mengalokasikan dan membebaskan (jika sudah tidak dipakai) memori. Hal ini yang menjadi perbedaan pokok jika kita bekerja menggunakan variable bertipe objek dan variable bertipe biasa (non objek), misalnya :

Var
i : Integer;

Begin
i := 10;
end

Hanya dengan mendeklarasikannya berarti kita sudah menglokasikan memori untuk variable tersebut. Beda jika yang kita deklarasikan merupakan variable objek. Setelah variable tersebut kita deklarasikan, kita tidak bisa langsung memakainya. Kita harus alokasikan memori dulu untuk variable tersebut, misalnya :

Var
Student1 : TStudent;
Begin
// alokasikan memori sebelum student1 digunakan.
end

Untuk menglakikasikan memori, kita harus memanggil sebuah procedure khusus yang biasa disebut constructor. Procedure Constructor sebuah kelas bisa beragam namanya, bahkan sebuah kelas bisa mempunyai lebih dari satu constructor. Kebanyakan dan biasanya, procedure constructor diberi nama Create. Kita nanti , pada artikel-artikel beikutnya, akan membahas lebih mendalam bagaimana caranya membuat constructor. Cara memanggil contructor yaitu dengan cara menuliskan nama kelasnya sebelum nama constructor tersebut, misalnya :

TStudent1.Create;
TStringlist.Create;

Constructor sebenarnya sebuah fungsi yang mengembalikan sebuah pointer yang mengarah ke memori yang dialokasikan untuk objek tersebut. Contoh yang lebih jelas bisa dilihat di bawah ini :

Var
Student1 : TStudent;
Begin
// Alokasikan memori

Kesalahan yang sering terjadi bagi yang baru belajar OOP adalah dia lupa memanggil constructornya sebelum digunakan objek yang dia deklarasikan.
Setelah kita alokasikan memori untuk objek tersebut ( dengan memanggil constructor) , kita bisa mengakses data dari objek tersebut dengan menggunakan operator titik (dot) , seperti :

Student1 := TStudent.Create;
Student1.Nama := ‘Bagus’;
Student1.NIS := ‘613990005’;

Jika kita mencoba mengakses data dari objek tersebut tanpa memanggil constructornya, maka akan terjadi error (runtime error)
Oya, dalam sebuah program, kita bisa mendeklarasikan dan menggunakan banyak objek , misalnya :

var
Student1 : TStudent;
Student2 : TStudent;
Begin
// Alokasikan memori
Student1 := TStudent.Create;
Student2 := TStudent.Create;

Dan masing-masing object mempunyai data sendiri-sendiri. Dalam contoh ini (tepatnya yang dideklarasikan di artikel sebelumnya) Student1 mempunyai empat data yaitu Nama,NIS, Alamat dan Telpon, demikian juga Student2.

Student1 := TStudent.Create;
Student2 := TStudent.Create;

Student1.FNama := ‘Bagus Prasojo’;
Student2.FNama := ‘Andi’;

Oya, setiap kita mengalokasikan memori untuk sebuah objek, maka memori itu akan tetap terpakai selama objek tersebut belum di hancurkan (destroy). Oleh karena itu, setiap kita mengalokasikan memori maka kewajiban kita untuk membebaskan memori tersebut setelah objek yang kita buat sudah tidak diperlukan lagi. Jika kita lupa , maka akan terjdi yang namanya memory leak. Apa itu memory leak? Saya membahasnya lebih detail pada artikel ini dan ini, silahkan dibaca. Cara membebaskan memory begitu mudah, tinggal panggil procedure free, misalnya :

Student1.Free;
Student2.Free;

Perhatikan, pola cara membebaskan memori dengan mengalokasikan memori berbeda. Jika kita mengalokasikan memori dengan memanggil funsi create diawali nama kelas, tapi ketika kita membebaskan memori kita panggil procedure free diawali dengan nama objek. Beda ya memanggil procedure diawali dengan nama kelas dan nama objek? Yupe, beda, di artikel-artikel selanjutnya akan kita bahas tentang hal ini.
Di bawah ini contoh penulisan sebuah procedure secara lengkap dimulai dari deklarasi, alokasi memori, dan diakhiri dengan pembebasan memori..

Procedure Test;
Var
StringList1 : StringList; // deklarasi

Begin
// Panggil constructor untuk alokasikan memori
StringList1 := TStringList1.Create;

// ubah dan akses data

// bebaskan memori
StringList1.Free;
End;

Pada contoh di atas, kita mengalokasikan memori dan membebaskan memori pada satu procedure yang sama. Hal ini tidak bermasalah selama objek yang kita alokasikan memori untuknya hanya bisa diakses dari procedure tersebut. Jika objek tersebut bisa diakses dari seluruh bagian unit, maka kita harus hati-hati dalam menentukan kapan kita harus memanggil procedure free (untuk membebaskan memori).

Inti dari apa yang kita bahas di atas tadi adalah, ketika kita mengalokasikan memori untuk sebuah objek, maka kita beranggung jawab untuk membebaskan memori tersebut. Jika kita lupa , maka kemungkinan terjadinya memory leak sangat besar. Namun hal ini sebenarnya tidak sesederhana itu. Pada artikel selanjutnya kita akan bahas lebih mendalam. Bersambung

Object Oriented Programming (OOP) Pada Delphi - Bag 1

2011-02-15T21:35:00.006+07:00

Object Pascal, adalah sebuah bahasa dimana delphi menjadi salah satu IDE (Integrated Development Environment) nya, adalah sebuah bahasa yang mendukung penuh konsep OOP. Sederhananya, bahasa ini memungkinkan bagi programmer untuk membuat dan memanipulasi object. Lebih detailnya, bahasa ini mendukung empat prinsip pokok OOP yaitu : Data Abstraction, Encapsulation, Inheritance, Polymorphism.

Mempelajari OOP berbeda dengan mempelajari Delphi. Apalagi bagi seorang yang sudah mengenal bahasa Pascal. Bisa jadi ada orang yang sangat mahir delphi/pascal namun sangat lemah pada konsep OOP.

Apa itu OOP? Apa Itu Object? Apa Itu Kelas?

OOP adalah semua hal yang berkaitan dengan writing programs that manipulate objects : ). Delphi, Java, C++ adalah beberapa contoh bahasa yang mendukung OOP. Ketiga bahasa di atas mempunyai prinsip-prinsip OOP yang sama, tentunya dengan sintaks (penulisan baris kode program) yang berbeda. Sekali kita sudah menguasai konsep OOP, maka akan begitu mudah mempelajari OOP pada bahasa manapun. Karena kita hanya akan fokus pada sistaks, bukan pada apa itu OOP.

Setiap kita mempelajari OOP, maka kita tidak akan lepas dari dua istilah objek dan class (Kelas). Kelas adalah pola/rancangan/struktur data yang dipakai programmer untuk membuat tipe data baru. Untuk mempermudah, kadang saya menyamakan kelas dengan tipe data : ). Setiap bahasa pemrograman mempunyai tipe data bawaan misalnya integer, string, boolean, dll. Delphi dan bahasa lainnya (yang mendukung OOP) memungkinkan bagi programmer untuk membuat tida data sendiri, misalnya Tmahasiswa, Trekening, Tbank, dll. Selama tipe data tersebut bukan tipe data bawaan bahasanya, kita bisa menyebutnya tipe data abstract (abstract data types). VCL (Visual Component Library) milik delphi merupakan contoh koleksi dari banyak kelas. Jadi form, button, combobox, query, dll adalah kelas yang sudah dibuat oleh tim developer embarcadero.

Kita bisa membuat kelas sendiri dan menggunakannya sama dengan kelas-kelas yang ada pada VCL delphi. Kita akan membahsa lebih detail mengenai cara pembuatan dan penggunaan kelas baru pada beberapa artikel berikutnya. Untuk memberikan gambaran awal apa itu kelas perhatikan baris kode berikut ini :

TStudent = class
FNama: string;
FNIS: string;
FAlamat: string;
FTelpon: string;
end;

Baris kode di atas adalah sebuah deklarasi kelas Tstudent dimana kelas tersebut mempunya empat atribut (informasi) yaitu Fnama, FNIS, Falamat, dan Ftelpon. Kita bisa memakai kelas (tipe data) TSTudent ini dengan cara :

Var
Student1 : TStudent;
Student2 : TStudent;

Pada pembahasan di atas, kita sudah membahasa apa itu kelas. Lalu apa itu objek? Hmmm… mudah. Objek adalah instansiasi dari kelas, atau suatu data yang bertipe data kelas. Hmmm mbulet : ). Dari deklarasi di atas, kita bisa perjelas bahwa Student1, Student2 adalah objek dan Tstrudent adalah kelas. (Bersambung)

Nick Hodges Keluar Dari Embarcadero

2010-07-16T13:01:00.005+07:00

Nick Hodges Keluar Dari Embarcadero

Salah satu orang penting di Embarcadero telah keluar, lebih tepatnya dikeluarkan. Dia ungkapkan hal itu di akun Facebook-nya.

Di forum embarcadero dia juga mengatakan yang sama.

Folks --

There have been some rumors floating around, and I wanted to set things
straight.

I was let go by Embarcadero on Monday. This wasn't my decision.

About twenty years ago, a friend in the Navy gave me a copy of Tom
Swan's Mastering Turbo Pascal series, and right from the start, I loved
the elegance and beauty of it. I taught myself, and I used Borland
Pascal for Windows to write what was possibly the world's crappiest
shareware.

Then Delphi came along, and I was totally hooked. I loved it. The
beauty of the VCL, the speed of the compiler, the awesome design-time
experience -- it was quite intoxicating. I was fortunate enough to get
on the beta, which allowed me to get smart enough to stumbled my way on
to TeamB. I became what Guy Kawasaki calls a "customer evangelist". I
attended my first Borcon in 1995, I became a Borcon speaker, and then
even a Borcon Advisory Board member. I'd like to think that you could
say that there was no greater or more passionate Delphi fan and
supporter than I -- except maybe for Dr. Bob.

In 2006 I moved my family half way across the country to become the
Delphi Product Manager. Later, I moved over to be R&D Manager, a job I
truly loved. Working at a place that raises your IQ 20 points just by
walking in the door is terrific. During my time with the company, I
continued to be a tireless advocate for Delphi, for CodeGear and then
Embarcadero, for the development team, and for you customers. I pretty
much ate, breathed, and slept Delphi.

It's a real bummer that there no longer room at Embarcadero for
Delphi's biggest supporter -- again, with props to Dr. Bob

Obviously, moving forward, I'm going to have to cast a wide net to find
a position, so I don't know if I'll be able to remain a "direct" member
of the community. (That may actually please some of you, I know.
) But Delphi is still the best and coolest development tool around. It
will easily survive the loss of one guy. I won't be posting as much
here in the coming weeks, I don't think, but I'll be around. And of
course, if anyone has any job leads, please let me know. I've got
lots of time for interviews.

--

Nick

https://forums.embarcadero.com/thread.jspa?threadID=40037&tstart=0

Sejarah Pascal

2010-07-09T12:54:00.004+07:00

Sebagai pecinta pascal, ada baiknya kita mengetahui sejawah dari pascal. Pada artikel berikut, saya akan mencoba mengumpulkan artikel-artikel dari internet yang berkaitan dengan pascal. Selain pascal, saya juga akan mengumpulkan artikel tentang Delphi

http://en.wikipedia.org/wiki/Pascal_(programming_language)
Pascal is based on the ALGOL programming language and named in honor of the French mathematician and philosopher Blaise Pascal. Wirth subsequently developed the Modula-2 and Oberon, languages similar to Pascal. Before, and leading up to Pascal, Wirth developed the language Euler, followed by Algol-W.
Initially, Pascal was largely, but not exclusively, intended to teach students structured programming. A generation of students used Pascal as an introductory language in undergraduate courses. Variants of Pascal have also frequently been used for everything from research projects to PC games and embedded systems. Newer Pascal compilers exist which are widely used. ^[^{citation needed}^]
Pascal was the primary high-level language used for development in the Apple Lisa, and in the early years of the Mac; parts of the original Macintosh operating system were hand-translated into Motorola 68000 assembly language from the Pascal sources. The popular typesetting system TeX by Donald E. Knuth was written in WEB, the original literate programming system, based on DEC PDP-10 Pascal, while an application like Total Commander was written in Delphi (i.e. Object Pascal).
Object Pascal is still widely used^[^{citation needed}^] for developing Windows applications such as Skype.

1. http://burks.bton.ac.uk/burks/language/oberon/obhist/history.htm

In the late sixties, several proposals for an evolutionary successor to Algol were developed. The most successful one was Pascal, defined in 1970 by Prof. Niklaus Wirth at ETH Zürich, the Swiss Federal Institute of Technology. Besides cleaning up or leaving out some of Algol's more obscure features, Pascal added the capability to define new data types out of simpler existing ones. Pascal also supported dynamic data structures; i.e., data structures which can grow and shrink while a program is running.
Pascal received a big boost when ETH released a Pascal compiler that produced a simple intermediate code for a virtual machine (P-code), instead of true native code for a particular machine. This simplified porting Pascal to other processor architectures considerably, because only a new P-code interpreter needed be written for this purpose, not a whole new compiler. One of these projects had been undertaken at the University of California, San Diego. Remarkably, this implementation (UCSD Pascal) didn't require a large and expensive mainframe computer, it ran on the then new Apple II personal computers. This gave Pascal a second important boost. The third one came when Borland released TurboPascal, a fast and inexpensive compiler, and integrated development environment for the IBM PC. Later, Borland revived its version of Pascal when it introduced the rapid application development environment Delphi.
Pascal has greatly influenced the design and evolution of many other languages, from Ada to Visual Basic.

2. Delphi History – from Pascal to Borland Developer Studio 2006 (diambil dari http://delphi.about.com/cs/azindex/a/dhistory.htm)

This document provides concise descriptions of Delphi versions and its history, along with a brief list of features and notes. Find out how Delphi evolved from Pascal to a RAD tool that can help you solve complex development problems to deliver high-performance, highly scalable applications ranging from desktop and database applications to mobile and distributed applications for the Internet – not only for Windows but also for Linux and the .NET.

What is Delphi?
Borland Delphi is a high-level, compiled, strongly typed language that supports structured and object-oriented design. Delphi language is based on Object Pascal. Today, Delphi is much more than simply "Object Pascal language".
The roots: Pascal and its history
The origin of Pascal owes much of its design to Algol - the first high-level language with a readable, structured, and systematically defined syntax. In the late sixties (196X), several proposals for an evolutionary successor to Algol were developed. The most successful one was Pascal, defined by Prof. Niklaus Wirth. Wirth published the original definition of Pascal in 1971. It was implemented in 1973 with some modifications. Many of the features of Pascal came from earlier languages. The case statement, and value-result parameter passing came from Algol, and the records structures were similar to Cobol and PL 1. Besides cleaning up or leaving out some of Algol's more obscure features, Pascal added the capability to define new data types out of simpler existing ones. Pascal also supported dynamic data structures; i.e., data structures which can grow and shrink while a program is running. The language was designed to be a teaching tool for students of programming classes.
In 1975, Wirth and Jensen produced the ultimate Pascal reference book "Pascal User Manual and Report". Wirth stopped its work on Pascal in 1977 to create a new language, Modula - the successor to Pascal.
Borland Pascal
With the release (November 1983) of Turbo Pascal 1.0, Borland started its journey into the world of development environments and tools. To create Turbo Pascal 1.0 Borland licensed the fast and inexpensive Pascal compiler core, written by Anders Hejlsberg. Turbo Pascal introduced an Integrated Development Environment (IDE) where you could edit the code, run the compiler, see the errors, and jump back to the lines containing those errors. Turbo Pascal compiler has been one of the best-selling series of compilers of all time, and made the language particularly popular on the PC platform.
In 1995 Borland revived its version of Pascal when it introduced the rapid application development environment named Delphi - turning Pascal into a visual programming language. The strategic decision was to make database tools and connectivity a central part of the new Pascal product.
The roots: Delphi
After the release of Turbo Pascal 1, Anders joined the company as an employee and was the architect for all versions of the Turbo Pascal compiler and the first three versions of Delphi. As a chief architect at Borland, Hejlsberg secretly turned Turbo Pascal into an object-oriented application development language, complete with a truly visual environment and superb database-access features: Delphi.
What follows on the next two pages, is a concise description of Delphi versions and its history, along with a brief list of features and notes.

Now, that we know what Delphi is and where are its roots, it's time to take a trip into the past...

Why the name "Delphi"?
As explained in the Borland's Museum article, project codenamed Delphi hatched in mid 1993. Why Delphi? It was simple: "If you want to talk to [the] Oracle, go to Delphi". When it came time to pick a retail product name, after an article in Windows Tech Journal about a product that will change the life of programmers, the proposed (final) name was AppBuilder. Since Novell released its Visual AppBuilder, the guys at Borland needed to pick another name; it became a bit of a comedy: the harder people tried to dismiss "Delphi" for the product name, the more it gained support. Once touted as the "VB killer" Delphi has remained a cornerstone product for Borland.
Note: some of the links below marked with an asterix (*), using the Internet Archive WayBackMachine, will take you several years in the past, showing how Delphi site looked long-ago.
The rest of the links will point you to a more in-depth look at what each (new) technology is about, with tutorials and articles.
Delphi 1 (1995)
Delphi, Borland's powerful Windows programming development tool first appeared in 1995. Delphi 1 extended the Borland Pascal language by providing object-orientated and form-based approach, extremely fast native code compiler, visual two-way tools and great database support, close integration with Windows and the component technology.
Here's the Visual Component Library First Draft
Delphi 1^* slogan:
Delphi and Delphi Client/Server are the only development tools that provide the Rapid Application Development (RAD) benefits of visual component-based design, the power of an optimizing native code compiler and a scalable client/server solution.
Here’s what were the "7 Top Reasons to Buy Borland Delphi 1.0 Client/Server^*"
Delphi 2 (1996)
Delphi 2^* is the only Rapid Application Development tool that combines the performance of the world's fastest optimizing 32-bit native-code compiler, the productivity of visual component-based design, and the flexibility of scalable database architecture in a robust object-oriented environment.
Delphi 2, beside being developed for the Win32 platform (full Windows 95 support and integration), brought improved database grid, OLE automation and variant data type support, the long string data type and Visual Form Inheritance. Delphi 2: "the Ease of VB with the Power of C++"
Delphi 3 (1997)
The most comprehensive set of visual, high-performance, client and server development tools for creating distributed enterprise and Web-enabled applications.
Delphi 3^* introduced new features and enhancements in the following areas: the code insight technology, DLL debugging, component templates, the DecisionCube and TeeChart components, the WebBroker technology, ActiveForms, component packages, and integration with COM through interfaces.
Delphi 4 (1998)
Delphi 4^* is a comprehensive set of professional and client/server development tools for building high productivity solutions for distributed computing. Delphi provides Java interoperability, high performance database drivers, CORBA development, and Microsoft BackOffice support. You've never had a more productive way to customize, manage, visualize and update data. With Delphi, you deliver robust applications to production, on time and on budget.
Delphi 4 introduced docking, anchoring and constraining components. New features included the AppBrowser, dynamic arrays, method overloading, Windows 98 support, improved OLE and COM support as well as extended database support.
Delphi 5 (1999)
High-productivity development for the Internet
Delphi 5^* introduced many new features and enhancements. Some, among many others, are: various desktop layouts, the concept of frames, parallel development, translation capabilities, enhanced integrated debugger, new Internet capabilities (XML), more database power (ADO support), etc.
Then, in 2000, Delphi 6 was the first tool to fully supports new and emerging Web Services ...

What follows is a concise description of most recent Delphi versions, along with a brief list of features and notes.

Delphi 6 (2000)
Borland Delphi is the first rapid application development environment for Windows that fully supports new and emerging Web Services. With Delphi, corporate or individual developers can create next-generation e-business applications quickly and easily.
Delphi 6 introduced new features and enhancements in the following areas: IDE, Internet, XML, Compiler, COM/Active X, Database support...
What’s more, Delphi 6 added the support for cross-platform development – thus enabling the same code to be compiled with Delphi (under Windows) and Kylix (under Linux). More enhancements included: support for Web Services, the DBExpress engine, new components and classes...
Delphi 7 (2001)
Borland Delphi 7 Studio provides the migration path to Microsoft .NET that developers have been waiting for. With Delphi, the choices are always yours: you're in control of a complete e-business development studio — with the freedom to easily take your solutions cross-platform to Linux.
Delphi 8
For the 8th anniversary of Delphi, Borland prepared the most significant Delphi release: Delphi 8 continues to provide Visual Component Library (VCL) and Component Library for Cross-platform (CLX) development for Win32 (and Linux) as well as new features and continued framework, compiler, IDE, and design time enhancements.
Delphi 2005 (part of Borland Developer Studio 2006)
Diamondback is the code name of the next Delphi release. The new Delphi IDE supports multiple personalities. It supports Delphi for Win 32, Delphi for .NET and C#...
Delphi 2006 (part of Borland Developer Studio 2006)
BDS 2006 (code named "DeXter") includes complete RAD support for C++ and C# in addition to Delphi for Win32 and Delphi for .NET programming languages.
Turbo Delphi - for Win32 and .Net development
Turbo Delphi line of products is a subset of the BDS 2006.
Delphi in the Future... See what CodeGear (Borland) plans are for Delphi up to the year 2007: Delphi Road Map...

Function Untuk Menambahkan Karakter ‘0’( Nol) di depan Angka

2010-07-08T12:03:00.008+07:00

Biasanya , ketika kita bikin aplikasi database kita akan banyak berurusan dengan data No Bukti. Pada umumnya, data no bukti ini mempunyai pola tertentu, misalnya :

PO/10/0000001 : No Bukti Purchase Order, tahun 2010, no Urut 1
GR/10/0000101 : No Bukti Goods Receiving, tahun 2010, no Urut 101.

PO/10/0000001 : No Bukti Purchase Order, tahun 2010, no Urut 1
GR/10/0000101 : No Bukti Goods Receiving, tahun 2010, no Urut 101.

Dengan pola seperti itu, wajib bagi kita untuk menambahkan karakter 0 sebelum no urut. Pada artikel ini saya akan mencoba memberikan dua contoh function yang bisa melakukan hal di atas.

1. Cara Sendiri

function TambahkanKarakterNol(Const AAngka, 
ALength : Integer) : String;
begin
Result := IntToStr(AAngka);
while length(Result) < ALength do Result := '0' + Result;
end;

2. Caranya Delphi : )

function TambahkanKarakterNol(AAngka, ALength : Integer): string;
begin
Result := SysUtils.Format('%.*d',[ALength, AAngka]);
end;

Cara Efektif Menggunakan StringGrid

2010-07-07T12:25:00.003+07:00

StringGrid merupakan salah satu VCL yang sangat berguna. Jika anda sudah familiar dengan Webbased Application, anda bisa analogikan StringGrid dengan Table. Table digunakan untuk meenampilkan data. Adapun StringGrid, selain sebagai komponen untuk menampilkan data, dia juga juga bisa sebagai tempat untuk memasukkan data, lihat gambar di bawah ini :

Pada gambar di atas, saya menampilkan form jurnal umum sebagai contoh penggunaan StringGrid. Pada contoh di atas, stringgrid dipakai untuk memasukkan data item jurnal berupa Kode dan nama perkiraan, status Debet/Kredit dan Nominal.

Untuk memanfaatkan Stringgrid saya mempunyai beberapa konstanta yang mencerminkan nomor urut kolom, misalnya _KolKode merujuk pada kolom Kode Perkiraan, _KolNama merujuk pada kolom Nama. Lebih jelasnya lihat baris kode berikut :

Const
_KolKode : Integer = 0;
_KolNama : Integer = 1;
_KolDK : Integer = 2;
_KolNominal : Integer = 3;

Konstanta-konstanta tersebut saya pakai di beberapa tempat. Diantaranya pada pada proses Edit. Ketika edit yang harus dilakukan adalah menampilkan kembali daftar Item Jurnal pada Grid. Lebih jelasnya lihat baris kode di bawah ini :

Var
i: Integer;
iBaris: Integer;
begin
ClearGrid;

iBaris := 1;
for i := 0 to Journal.JournalItems.Count - 1 do
begin
SGIteJurnal.Cells[_KolKode,iBaris]    := Journal.JournalItems[i].Kode;
SGIteJurnal.Cells[_KolNama,iBaris]    := Journal.JournalItems[i].Nama;
SGIteJurnal.Cells[_KolDK,iBaris]      := Journal.JournalItems[i].DK;
SGIteJurnal.Cells[_KolNominal,iBaris] := FormatFloat('0.00', Journal.JournalItems[i].Nominal);

if i < Journal.JournalItems.Count then
begin
Inc(iBaris);
SGIteJurnal.RowCount := SGIteJurnal.RowCount + 1;
end;
end;
end;

Sampai di belum terlihat apa manfaatnya menggunakan konstanta-konstanta di atas. Manfaatnya akan terlihat ketika tiba-tiba bos kita atau klien kita meminta perubahan tampilan di StringGrid. Misalnya Klien pengin merubah urutan data yang tadinya Kode,Nama,DK, Nominal menjadi Kode,Nama,DK, Nominal. Kalau kita tidak menggunakan kontanta maka kita harus menukar nomor kolom DK dan Nominal di semua baris kode yang menggunakan kedua kolom tersebut. Namun, jika kita menggunakan konstanta maku kita cukup menukar value dari konstanta-konstanta yang merujuk ke kedua kolom terssbut. Kita cukup melakukan perubahan sebai berikut :

Const
_KolKode    : Integer = 0;
_KolNama    : Integer = 1;
_KolNominal : Integer = 2;
_KolDK      : Integer = 3;

Mudah bukan? : )

Perubahan Terbaik Saya Berkaitan Dengan Delphi

2010-07-06T12:45:00.003+07:00

Dear Delphier,
Dalam artikel berikut saya akan menguraikan perubahan terbaik yang sudah saya lakukan berkaitan dengan Delphi/Pascal. Dari sini saya harapkan bisa diambil manfaatnya terutama bagi para Delphier pemula. Setidaknya mereka tidak melakukan kesalahan yang sudah saya lakukan. Dari artikel ini juga saya berharap agar para Delphier muda bisa mengikuti perubahan-perubahan tersebut sehingga bisa segera merasakan betapa nikmatnya perubahan-perubahan tersebut : ).

1. Berpindah Dari Paradigma Procedural Ke OOP (Object Oriented Programming)

Perubahan ini bagi saya merupakan perubahan yang spektakuler. Dari perubahan ini semakin membuka pikiran saya bahwa begitu banyak hal yang belum saya kuasai dalam dunia pemrograman. Dari sini saya juga mulai merasa nikmatnya pemrograman. Banyak hal yang dulunya sangat sulit (baca : sangat melelahkan) dilakukan, dengan paradigma OOP hal itu bisa dilakukan dengan sangat mudah.

Perjumpaan saya pertama kali dengan OOP yaitu ketika saya pindah kerja ke PT. Tiga Serangkai Inti Corpora sebuah Holding Company yang memiliki beberapa unit bisnis yaitu Printing And Publishing, Retail, Book Distribution, Consumer Goods Distribution, dll. Sebenarnya pada saat kuliah saya juga sudah mengenal OOP, tapi karena tidak pernah diterapkan ya akhirnya hanya sebatas kenal saja.

2. Merapikan Source Code

Dulu, saya merasa source code saya adalah yang paling amburadul dan sulit terbaca. Ketika terpaksa harus membuka program-program lama, saya butuh waktu yang agak lama untuk mengingat kembali apa yang saya lakukan dengan source code tersebut. Saya saja sulit apa lagi orang lain. Tentunya hal ini bertentangan dengan perkataan seorang pakar pemrograman, Martin Fowler. Martin Fowler berkata : “Any Fool Can Write Code That A Computer Can Understand. Good Programmers Write Code That Humans Can Understand”. Mulai sekarang saya berusaha untuk merapikan source code saya, bukan hanya supaya enak dilihat tapi juga enak dibaca (baca : dimengerti). Untuk mewujudkan hal tersebut, yang saya lakukan antara lain :

a. Meluruskan Indentasi

b. Membuat nama method sejelas mungkin sehingga tidak perlu penjelasan maksud dari method tersebut sengan menambahkan Comment

c. Menamakan Variable sejelas mungkin.

d. Membatasi jumlah baris source code dalam satu method.

e. Dll

3. Menggunakan Model Maker

Design Kelas begitu sangat mudah. Kesan itulah yang pertama kali saya rasakan ketika memakai tool ini. Dengan tool ini kita akan sangat mudah untuk mendesign Class Diagram, Sequence Diagram, dll. Hebatnya lagi, class diagram yang sudah kita buat bisa kita generate menjadi file dot pas sehingga bisa langsung kita gunakan.

4. Menggunakan Model Maker Explorer

Sebuah tool pemrograman yang sangat luar biasa. Sekali anda pakai saya jamin anda akan merasa ada yang kurang jika melakukan aktifitas coding tanpa tool ini. Dengan tool ini kita dengan mudah mebuat variable, Field, Property, dll tanpa harus memindahkan kursor ke bagian deklarasi. Dengan tool ini kita juga bisa melakukan extract method. Pengin mencobanya?

5. Berpindah Dari Delphi 7 Ke Delphi 2010

Delphi 2010 merupakan versi terakhir dari Delphi. Banyak perubahan dari Delphi 7 ke Delphi 2010 ini. Salah satu yang membuat saya gembira adalah adanya fasilitas Refactoring. Delphi 2010 ini juga sudah terintegrasi dengan Dunit sehingga memudahkan kita untuk melakukan unit testing. Delphi 2010 juga sudah dilengkapi dengan memory management yang baik. Salah satunya dia bisa melaporkan jia terjadi memory leak. Bagaimana caranya? Baca saja artikel saya yang membahas tentang mendekteksi memory leak di blog ini juga.

Selain perubahan-perubahan di atas, saya masih mempunyai obsesi dalam dunia pemrograman. Hal-hal yang sangat ingin saya lakukan adalah :

1. Menguasai Teknik XP (Extreem Programming)

2. Menguasai Design Pattern

3. Membuat Program Yang Fully OOP

4. Explorasi FPC (Free Pascal Compiler) dan Lazarus

5. Explorasi XML

6. Menguasai Web Service di Delphi

7. Menulis buku tentang Delphi

Bisa membantu mewujudkan kenginan dan harapan saya? : )

Merubah Warna Textbox Pada Saat Mendapatkan Focus [DevEx : 1]

2010-07-05T13:00:00.005+07:00

Dear Delphiers,
Kadang-kadang kita menghendaki komponen textbox berubah warnanya ketika dia mendapat focus. Hal ini bisa saja kita lakukan dengan mengkombinasikan event OnEnter dan OnExit pada komponen textbox tersebut. OnEnter untuk merubah warna ketika mendapatkan focus dan OnExit kita pakai untuk mengembalikan warna semula. Namun hal ini bukanlah cara yang Robust. Dengan cara ini kita harus menerapkannya pada tiap komponen. Ya kalau Cuma satu Form? Bagaimana kalau pada semua form? Bisa dibayangkan bagaimana susahnya merealisasikan keinginan tersebut.

Ada cara yang lebih mudah. Yaitu dengan menggunakan komponen dari DevExpress. Di sini saya menggunakan komponen cxTextEdit. Ikutilah langkah-langkah berikut :

1. Tempatkan sebuah komponen cxEditStyleControllerStyle pada form;

2. Setting property StyleFocused sesuai Keinginan. Disini saya melakukan setting property StyleFocused seperti gambar di bawah ini

1. Kemudian pada Event OnClick dari form tuliskan baris kode berikut :

for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TcxCustomTextEdit then
begin
(Components[i] as TcxCustomTextEdit).StyleFocused.StyleController := cxEditStyleController;
(Components[i] as TcxCustomTextEdit).Style.StyleController := cxEditStyleController;
(Components[i] as TcxCustomTextEdit).StyleDisabled.StyleController := cxEditStyleController;
end;
end;

Pada baris kode di atas, program akan mengecek semua komponen yang ada pada form. Jika komponen tersebut merupakan komponen TcxCustomTextEdit (demikian juga komponen-komponen turunannya) maka program akan mengeset StyleController pada saat focus,normal, dan disable hasilnya bisa dilihat digambar berikut :

Pengumuman Soal Dev Express

2010-07-05T12:55:00.001+07:00

Sudah dua bulan ini saya beralih ke Delphi 2010. Selain itu, saya juga mulai menggunakan komponen DevExpress. Kelihatannya Komponen DevExpress ini cukup lengkap dan menarik. Oleh karena itu, di blog ini saya akan membuat kolom khusus yang berisi artikel-artikel yang berisi petualangan :) saya dalam mempelajari / menggunakaan komponen ini. Happy Reading ....

Daftar Website Yang Membahas Delphi

2010-07-03T13:07:00.001+07:00

Dalam artikel ini saya mencoba memberikan daftar situs yang bermanfaat bagi kita semua, Delphi Lover.

http://delphi-id.org

Situs ini dikomandani mas Luri Darmawan, seorang pendekar delphi di negeri ini yang sudah kondang di mana-mana. Situs ini berupa forum sharing bagi para delphier. Di situs ini kita bisa berbagi informasi tentang teknologi terbaru dari delphi, tips n trick, pertanyaan, dll.

http://delphi-id.tk

Situs yang bagus. Situs ini (kelihatannya) muncul akibat situs http://delphi-id.org lama down. Tapi akhir-akhir ini kedua situs kakak-adik : ) ini sudah Up semua.

http://delphi.about.com

Sebuah situs delphi berbahas inggris yang paling lengkap yang pernah saya jumpai. Situs yang dikomnadani oleh Zarco G ini berisi tutorial, tips n Trick, dan artikel-artikel menarik lainnya. Saya sangat menyukai artikel/tuorial tentang OOP. Bahkan saya bisa sedikit mengenal OOP dari situs ini. DI situs ini kita juga bisa mendapatkan newsletter dari satu bab/tutorial yang sedang dibahas di situs ini.

http://www.delphi3000.com

Situs ini berisi ribuan tips n trick dan artikel menarik tentang delphi. Disitus ini aartikel-artikel tersebut sudah dikategorikan menurut pebahasannya sehingga memudahkan kita dalam melakukan pencarian.

http://www.embarcadero.com

Situs ini merupakan official website dari perusahaan yang membuat delphi. Dalam situs ini terdapat forum tempat berbagi informasi , pertanyaan dan lainnya dari pada delphier di seluruh dunia.

http://www.delphi-resource.com

Situs yang bagus dan berisi artikel yang sangat kita perlukan.

http://blog.marcocantu.com

Sebuah blog yang syarat informasi tentang delphi. Blog ini merupakan blog dari Delphi Expert yaitu Marco Cantu. Siapa dia? Ini sekilas info tentang dia :

The author of this blog is Marco Cantù a Borland Delphi guru with 10 books published on the topic in the US (8 Mastering Delphi editions, DDH, and Mastering Kylix) and tens of translations around the world. Before working with Delphi, he did publish 3 books on C++ (particularly Borland C++ and the venerable OWL library).

Besides writing, he teaches classes on Delphi and XML technologies, and has spoken at many conferences and user groups worldwide. He has spokean at over 10 Borland US Conferences, at the Software Development Conference (SD), Borland European conferences, EKON (Germany), DCon (UK), Conference to the Max (Holland), and (of course) quite a few in Italy.

Marco lives in Piacenza, Italy with his wife Lella, their kids Benedetta and Jacopo, and their dog Lillo.

http://delphindo.wordpress.com

Ini merupakan blog dari milis delphi terbesar di Indonesia, Delphindo. Dalam blog ini banyak artikel yang bermanfaat yang merupakan kontribusi dari pada petinggi di milis Delphindo.

http://www.torry.net

Stus ini berisi daftar kumpulan komponen VCL baik yang FreeWare maupun Shareware, Banyak juga yang benarbenar gratis.

http://www.programmingtutorials.com/delphi.aspx

http://www.klik-kanan.com/delphi/index2.shtml

Situs ini berbahasa indonesia.Berisi banyak artikel tentang delphi yang sangat bermanfat.

http://www.festra.com

Delphi tutorials for beginners and intermediate level programmers * Crash Course Delphi: online, hands-on Delphi tutorial for beginners * Delphi projects with fully commented source code * Free Delphi code * Download tutorial projects with tested source code * Components * DClub Library functions and procedures * Tips and hints * DelphiLand Forum

http://blogs.embarcadero.com

Blog ini merupakan (sepertinya) blog agregator dari para crew di embrcadero. Jelas blog yang sangat bermanfaat buat ita yang sedang belajar.

http://delphigurus.blogspot.com

Ini blog yang sedang anda baca : )

Beberapa Hal Yang Menyebabkan Memory Leak

2010-07-02T12:30:00.003+07:00

Pada artikel Mendeteksi Memory Leak sudah dijelaskan apa itu memory leak dan cara mendeteksinya. Pada artikel berikut ini akan saya berikan dua penulisan program yang akan menyebabkan memory leak.

1.Object Tidak Di Free Ketika Sudah Tidak Dipakai

Jika kita meng-create Object secara runtime maka kita berkewajiban untuk mem-Free Object tersebut. Jika kita lupa, maka akan terjadi memory leak. Lihat contoh di bawah ini :
Misalnya kita mempunyai kelas TKaryawan yang di dalamnya ada method SaveToDB.

Var
Karyawan : TKaryawan;
begin
Karyawan := TKaryawan.Create(nil);
if Karyawan.SaveToDB then
begin
ShowMessage('Berhasil Simpan Data Karyawan');
end else begin
ShowMessage('Gagal Simpan Data Karyawan');
end;
end;

Pada contoh di atas, kita meng-create object TKaryawan dengan cara
Karyawan := TKaryawan.Create(nil); Pada saat create object ini komputer akan mengalokasikan memory untuk object Karyawan. Alokasi memory inilah yang harus dibebaskan ketika object karyawan sudah tidak dipakai lagi. Pada baris kode di atas belum dilakukan hal tersebut. Seharusnya yang harus kita lakukan adalah :

Var
Karyawan : TKaryawan;
begin
Karyawan := TKaryawan.Create(nil);
try
if Karyawan.SaveToDB then
begin
ShowMessage('Berhasil Simpan Data Karyawan');
end else begin
ShowMessage('Gagal Simpan Data Karyawan');
end;
finally
Karyawan.Free;
end;
end;

2.Penggunaan Resources (Sumber Daya) Dari Luar

Contohnya adalah pada saat kita mengakses sebuah file. Lihat contoh berikut :
Var
F : TextFile;
S : String;
begin
AssignFile(F, 'c:\myFile.Txt');
Readln(F,S);
end;

Pada contoh di atas, kita lupa untuk meng-close file tersebut. Hal ini akan menyebabkan memory leak. Seharusnya yang kita lakukan adalah :

Var
F : TextFile;
S : String;
begin
try
AssignFile(F, 'c:\myFile.Txt');
Readln(F,S);
finally
CloseFile(F);
end;
end;

Hati-hati juga ketika kita melakukan koneksi ke database. Setelah sudah tidak diperlukan lagi, maka kita juga wajib menutup koneksi tersebut.

Mendeteksi Memory Leak

2010-07-01T13:05:00.002+07:00

Dear Delphiers,
Kadang kita mengalami PC yang kita pakai kerja lama-lama lemot. Viruskah? Sudah update antivirus tetap aja masih lemot. Tapi setelah restart PC kita kembali segar bugar. Kalau memang kejadian ini sering kita alami, seharusnya kita mulai curiga jangan-jangan aplikasi yang sedang kita kerjakan mengalami/melakukan “Memory Leak”

Apa itu memory leak? Memory Leak adalah ketidak mampuan software yang kita bangun untuk membebaskan memory yang dia pakai . Memory Leak adalah masalah yang srius. Coba bayangkan, ketika kita membangun aplikasi yang harus berjalan 24/7 dan pada setiap procedure menyebabkan memory leak, apa yang akan terjadi? Bisa-bisa Komputer akan hang dan bilang kalo dia kehabisan memory (Out Of Memory).
ReportMemoryLeaksOnShutdown
Semua versi delphi mulai Delphi 2006 mempunyai fasilitas memory manager yang sangat-sangat lebih bagus dari versi sebelumnya. Salah satu fitur yang sangat berguna adalah, aplikasi bisa kita minta melaporkan apakah ada memory leak pada saat aplikasi selesai dijalankan.
Caranya dengan mengganti value dari global variable ReportMemoryLeaksOnShutdown menjadi true. Nilai dari ReportMemoryLeaksOnShutdown by default adalah False. Lebih jelasnya ikuti langkah-langkah berikut ini :

1. Buka project > View Source
2. Perhatikan baris berikut :

begin
Application.Initialize;
......
......
Application.Run;
end.

Tuliskan code “ReportMemoryLeaksOnShutdown := DebugHook <> 0;” pada baris sebelum baris Application.Initialize. Maka akan menjadi :

Begin
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
Application.Initialize;
......
......
Application.Run;
end.

3. Jalankan aplikasi dengan menekan F9.
4. Tekan Ctrl+F2 untuk mengakhiri aplikasi.

Jika setelah selesai menjalankan aplikasi tidak ada pesan akan adanya memory leak, maka aplikasi kita bebas dari memory leak. Tapi jika ada pesan adanya memory leak, kita harus mencari bagian mana yang menyebaban memory leak tersebut.

Contoh Memory Leak
Berikut ini contoh jika terjadi Memory Leak. Tempatkan baris code berikut pada event OnCreate dari main form pada aplikasi kita.

procedure TfrmMain.FormCreate(Sender: TObject);
var
SS: TStrings;
begin
SS := TStringList.Create;
SS.Add('Ini Menyebabkan Memory Leak');
end;
Jalankan aplikasi dan langsung dimatikan. Setelah aplikasi selesai dijalankan maka akan ada pesan kira-kira seperti ini :

Pesan di atas menunjukan bahwa telah terjadi memory leak pada aplikasi yang baru saja kita jalankan. Kenapa bisa terjadi memory leak? Ya ! Hal ini terjadi karena ada object yang belum di Free. Objek apa itu? Lalu bagaimana mengatasi memory leak pada kasus ini? Caranya, pastikan objek yang sudah di create harus di free ketika objek tersebut sudah tidak dipakai. Perhatikan baris code berikut :

procedure TfrmMain.FormCreate(Sender: TObject);
var
SS: TStrings;
begin
SS := TStringList.Create;
try
SS.Add('Ini Menyebabkan Memory Leak');
finally
SS.Free;
end;
end;

Lalu jalankan aplikasi dan langsung dimatikan. Masih ada pesan adanya memory leak? OK, cukup sekian artikel ini semoga bermanfaat. SELAMAT BERKARYA !

Daftar Website Icon Gratis

2010-06-29T16:50:00.001+07:00

Icon merupakan bagian tak terpisahkan dari sebuah Software. Bisa dibilang Software tanpa icon bagaikan sayur tanpa garam. Sayangnya tidak semua dari kita bisa membuat Icon yang enak dilihat. Tapi jangan sedih dulu. Di internet sudah banyak situs-situs yang menyediakan icon secara gratis. Situs-situs tersebut a.l. :

Icon merupakan bagian tak terpisahkan dari sebuah Software. Bisa dibilang Software tanpa icon bagaikan sayur tanpa garam. Sayangnya tidak semua dari kita bisa membuat Icon yang enak dilihat. Tapi jangan sedih dulu. Di internet sudah banyak situs-situs yang menyediakan icon secara gratis. Situs-situs tersebut a.l. :
1. http://www.iconspedia.com
2. http://www.freeiconsdownload.com/
3. http://www.freeiconsweb.com/

4. http://www.iconarchive.com/
5. http://fasticon.com/freeware/

OK, mulai sekarang jangan malas memoles software yang kita buat dengan menambahkan icon : )

Membuat Form Yang Seragam

2010-06-29T07:32:00.001+07:00

Dear Delphiers,
Kadang kita menghendaki semua form yang ada di dalam aplikasi kita seragam. Misalnya, di setiap form kita menghendaki ada tombol New,Edit,Save dan Delete. Bagi pemula, biasanya mereka akan membuat sebuah form yang dijadikan acuan ketika membuat form-form baru. Ketika membuat form baru yang mereka lakukan pertama kali ada mengkopi form acuan tersebut kemudian me-Rename form tersebut menjadi form yang mereka kehendaki. Hal ini bisa saja dilakukan, tapi kurang Robust. Coba bayangkan, ketika terjadi perubahan misalkan dalam kasus ini klien menghendaki di setiap form ditambahkan tombol Help. Dengan cara di atas, maka kita harus lakukan adalah membuka tiap form lalu menambahkan tombol Help. Pusingkan?

Dear Delphiers,
Kadang kita menghendaki semua form yang ada di dalam aplikasi kita seragam. Misalnya, di setiap form kita menghendaki ada tombol New,Edit,Save dan Delete. Bagi pemula, biasanya mereka akan membuat sebuah form yang dijadikan acuan ketika membuat form-form baru. Ketika membuat form baru yang mereka lakukan pertama kali ada mengkopi form acuan tersebut kemudian me-Rename form tersebut menjadi form yang mereka kehendaki. Hal ini bisa saja dilakukan, tapi kurang Robust. Coba bayangkan, ketika terjadi perubahan misalkan dalam kasus ini klien menghendaki di setiap form ditambahkan tombol Help. Dengan cara di atas, maka kita harus lakukan adalah membuka tiap form lalu menambahkan tombol Help. Pusingkan?

Sebenarnya ada cara yang lebih Robust. Yaitu dengan memanfaatkan konsep yang sangat mendasar di Object Oriented Programming, yaitu Inheritance. Ikuti langkah – langkah berikut ini :
1. Buat sebuat project (saya memakai BDS 2010)
2. Buat sebuat main form, form ini nanti akan kita pakai untuk menampilkan form-form di aplikasi ini. Simpan form tersebut dengan ufrmMain. Jangan lupa namakan form ini dengan frmMain.
3. Tambahkan menu untuk menampilkan form, misalnya Form 1, dan Form 2.

4. Buatlah sebuah form yang akan dijadikan acuan untuk mebuat form-form yang lain. Tambahkan komponen Toolbar, lalu tambahkan empat tombol pada toolbar tersebut. Ubah caption tombol tersebut dengan New,Save, Edit,Delete. Namakan tombol-tombol tersebut dengan nama btnNew, btnSave, dst. Simpan form ini dengan ufrmDefault.
5. Buatlah dua buah form, turunkan dari form ufrmDefault yang baru saja dibuat. Caranya Klik File > New > Other > Inheritable Items > Pilih frmDefault. Setelah itu akan muncul sebuah form yang sama persis dengan frmDefault. Namakan form tersebut dengan frmSatu. Simpan form ini dengan nama ufrmSatu. Perhaitkan pada baris deklarasi kelas TfrmSatu. Di situ tertulis :

TfrmSatu = class(TfrmDefault)
private
{ Private declarations }
public
{ Public declarations }
end;

Maksud dari deklarasi tersebut adalah kelas TfrmSatu merupakan turunan dari TfrmDefault

6. Ulangi langkah ke lima dan simpan form tersebut dengan ufrmDua. Jangan lupa namakan form tersebut frmDua.
7. Langkah selanjutnya adalah kita tampilkan form tersebut. Ingat, kita tadi sudah membuat dua menu di frmMain. Sekarang kita isi menu-menu itu dengan perintah untuk menampilkan frmSatu dan frmDua. Caranya klik menu untuk menampilkan formSatu, lalu isi dengan perintah di bawah ini :

frmSatu := TfrmSatu.Create(Self);
frmSatu.Show;

Lakukan hal yang sama untuk formDua.
8. Langkah terakhir, Klik F9 untuk menjalankan project ini. Coba klik menu untuk fomSatu dan formDua. Sama persiskan? Kita tinggal mengisi form tersebut sesuai kebutuhan. Mudah bukan? SELAMAT BERKARYA

Pengaturan File Project Menggunakan Delphi 2010

2010-06-20T20:50:00.001+07:00

Delphi 2010 merupakan IDE (Integrated Development Environtmen) untuk bahasa Object Pascal. Delphi 2010 ini merupakan produk dari Embarcadero Technologies, Inc. Produk ini merupakan versi terbaru dari keluarga Delphi.

Delphi 2010 merupakan IDE (Integrated Development Environtmen) untuk bahasa Object Pascal. Delphi 2010 ini merupakan produk dari Embarcadero Technologies, Inc. Produk ini merupakan versi terbaru dari keluarga Delphi.

Pada Delphi 2010 ini terdapat sedikit perubahan dalam konfigurasi file-file sebuah proyek. Dalam artikel ini , saya akan mencoba untuk memberikan contoh cara pengaturan file (organisasi file) dalam sebuah proyek yang dikembangkan menggunakan Delphi 2010. Apa yang saya tuliskan di sini merupakan cara yang saya terapkan dalam mengatur file-file proyek saya selama berkecimpung dalam dunia Delphi. Dan Alhamdulillah, apa yang lakukan selama ini terbukti cukup ampuh sehingga saya tidak mengalami permasalahan dalam pengaturan file-file.
Dalam setiap proyek yang saya kerjakan , saya selalu memisahkan letak file-file berdasarkan kategori sebagai berikut :
a. Images : Semua file gambar yang digunakan dalam proyek saya masukkan ke folder ini
b. Classes : Folder ini dipakai untuk menampung file Kelas
c. Form : Folder ini dipakai untuk menampung file form (.pas dan .dfm)
d. Library : Folder ini dipakai untuk menampung file-file library
e. dcu : folder ini dipakai untuk menampung file-file *.dcu (Delphi Compiled Unit) yang dihasilakan ketika proses kompilasi.
f. bin : folder ini dipakai untuk menampung *.EXE yang dihasilkan ketika proses kompilasi.

Untuk poin b-d biasanya saya masukkan dalam sebuah folder bernama “Source”. Lebih jelasnya silahkan lihat gambar berikut :

Dalam pengaturan file ini, dibutuhkan kedisiplinan kita ketika menyimpan file. Setiap ketika menambah form baru, maka harus kita pastikan bah kita sudah menyimpannya dalam folder “Form”, demikian juga , ketika kita menambah sebuaf file kelas, maka kita juga harus pastikan bahwa kita sudah menyimpannya dalam folder “Classes”.
Khusus untuk folder bin dan dcu diperlukan settingan khusus supaya file-file *.dcu dan *.exe masuk ke dalam folder tersebut. Perlu diketahui, file *.dcu dan *.exe dihasilkan pada saat kompilasi. Yang perlu anda lakukan adalah sebagai berikut : Klik Project > Options > Delphi Compiler . Cari baris “Unit Output Directory”. Isi baris ini dengan folder path dari folder “dcu”. Lalu cari barus “Output Directry”. Isi baris ini dengan path dari folder “bin”. Lebih jelasnya lihat gambar berikut ini :

Mudah bukan? Selamat berkarya. Kritik dan Saran Welcome. Thx

How can I prevent the user from closing a form?

2010-03-09T18:37:00.001+07:00

To prevent the user from closing a form you need to disable the close
button in the title bar of a form and at the same time disable the
"Close" menu item in the form's system menu. This is done by calling
the EnableMenuItem API function (see the example below).

To prevent the user from closing a form you need to disable the close
button in the title bar of a form and at the same time disable the
"Close" menu item in the form's system menu. This is done by calling
the EnableMenuItem API function (see the example below). Nonetheless,
the user can still close the form using the Alt+F4 key combination,
so we have to set the KeyPreview form property to True and write an
event handler for the OnKeyDown event to cancel out this hot key:

procedure TForm1.FormCreate(Sender: TObject);
var
hSysMenu: HMENU;
begin
hSysMenu := GetSystemMenu(Self.Handle, False);
if hSysMenu <> 0 then begin
EnableMenuItem(hSysMenu, SC_CLOSE,
MF_BYCOMMAND Or MF_GRAYED);
DrawMenuBar(Self.Handle);
end;
KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) then
Key := 0;
end;

Source : http://www.delphi3000.com/articles/article_1597.asp?SK=

Introduction to InterBase SQL

2010-03-04T08:54:00.002+07:00

SQL is not difficult to learn — which is good since any attempt to bypass learning it when working with a database server will almost certainly end in an inefficient failure. This session will introduce the basics of SQL (Structured Query Language, occasionally pronounced "sequel") grammar, and then progress to include intermediate syntax such as JOINs, aggregate functions. Finally, some Interbase-specific keywords and optimizations will be covered.

Introduction to InterBase SQL
SQL is not difficult to learn — which is good since any attempt to bypass learning it when working with a database server will almost certainly end in an inefficient failure. This session will introduce the basics of SQL (Structured Query Language, occasionally pronounced "sequel") grammar, and then progress to include intermediate syntax such as JOINs, aggregate functions. Finally, some Interbase-specific keywords and optimizations will be covered.

Introduction

SQL is not difficult to learn — which is good since any attempt to bypass learning it when working with a database server will almost certainly end in an inefficient failure. This session will introduce the basics of SQL (Structured Query Language, occasionally pronounced "sequel") grammar, and then progress to include intermediate syntax such as JOINs, aggregate functions. Finally, some Interbase-specific keywords and optimizations will be covered.

All database servers are slightly different, but most of them use SQL as the primary interface for data modification and retrieval. SQL is an ANSI standard, and was designed to provide a database server-independent way of requesting or modifying data. In practice, the standard, in spite of its monstrous length, leaves enough details for the implementers (the developers of the database servers) to decide upon, that writing a complex query which will work on every DB server on the market can range from tricky to impossible. Since most DB producers add proprietary features to their SQL implementation, SQL is only partially successful as a way to write database-independent client software.

While they're significant enough to frustrate developers attempting to make a single query run against different servers, these differences are not so great that you will have to re-learn your SQL skills from scratch when moving from, say, SQL Server to InterBase. Once you've learned basic SQL, you should be able to do productive work with most of the popular commercial database servers.

All of the SQL examples in this paper are designed to work with employee.gdb, one of the example databases which ships with InterBase. Feel free to try each query using the ISQL window in IBConsole. There is a lot of information in this paper, and if you're new to SQL you may find it helpful to try out each section as you go.

The four essential database operations

Generally, users need to be able to do one of four things with a particular record (often referred to as CRUD)

1. Create a new record
2. Read the record
3. Update the data in the record
4. Delete the record

SELECT

The SELECT verb is used to retrieve one or more records from one or more tables in the database. Some database servers allow you to retrieve records from multiple databases in a single SELECT statement, but InterBase limits SELECT statements to tables, views, and procedures within a single database.

A simple SELECT statement looks like this:

SELECT

EMP_NO, LAST_NAME

FROM EMPLOYEE

A SELECT statement produces a result set, or a collection of data produced by the server in response to a query. When dealing with data from a database in a client application, it is helpful to think of data in terms of result sets instead of as tables, since the returned records may or may not correspond to a single physical table in the database.

This particular SELECT statement will produce a result set with two columns, and with one row for every row in the EMPLOYEE table. Each row in the result set will have one column corresponding to EMP_NO, and one column corresponding to LAST_NAME.

Another way to write this query is:

SELECT

EMPLOYEE.EMP_NO, EMPLOYEE.LAST_NAME

FROM EMPLOYEE

In this case, we have specified the table name both in the list of fields we'd like in the result set, and in the FROM clause, where table names need to be listed. It's not necessary to do this in a SELECT statement which only references a single table, but this syntax will be useful later on when we examine how to join data from multiple tables together into a single SQL statement.

Specifying a fields list

In the queries above, we have specified that we'd like two fields from the EMPLOYEE table inour result set. There is a shorthand syntax to indicate that we'd like every field from the EMPLOYEE table in the result set. Just specify "*" instead of a list of fields:

SELECT *

FROM EMPLOYEE

This syntax is useful when running queries against a table when you're not sure what the field names are, but I don't recommend that you use it in client applications. The reason is that network traffic is one of the biggest bottlenecks in an application which works with a database server. The less network traffic, the better! So it is wise to specify only the columns which your application absolutely requires in your SELECT statements. (We'll examine how to retrieve only the rows your application absolutely requires in just a moment.) Even if you need every column in a given table, it is still wise to specify the list of fields explicitly instead of using "*" because additional columns not required by your application might be added to the table later on.

So you should always specify the field names required by your application when writing SELECT statements. You can specify as many fields as your application requires, just separate them with commas like in the example above.

Restricting returned records with WHERE

For the same reason that it is advisable to specify only the columns required by your application in a SELECT statement — network bandwidth — it is even more advisable to restrict the rows returned to only those your user is interested in seeing. It is not at all uncommon to have hundreds of megabytes of data in a single table, and chances are very good that your users only want to see a few of these records at a time. Chances are even better that they don't want to wait for millions of records they're not interested in to cross the network before they can see the 10 or so records that they asked for.

A note for those migrating older applications where users could simply browse entire tables.
I regularly encounter a great deal of resistence to the idea that this mode of operation must change. The usual excuse is "the users need to be able to see all the records" and "they've always done it that way".
The short answer is: No, they do not need to see all the records.
No user can do anything productive browsing back and forth among thousands of records, they are always looking for particular records, or at worse, a small set of related records. The key is to give them an easy to use means of specifying what they are actually looking for. While there are often a few users who continue to insist, the vast majority catch on easily and find it much more productive.

A WHERE clause is the part of a select statement used to restrict the rows returned as a part of a result set. Here is an example of a SELECT statement with a WHERE clause added:

SELECT

LAST_NAME

FROM EMPLOYEE

WHERE

EMP_NO = 20

Imagine that we want to know the name of employee #20. This query will return that information with minimal network traffic. If we looked at the metadata for the employee table we would find that there is a constraint, in the form of a Primary Key, placed on the EMP_NO column which tells the database server to ensure that values in this column are unique — no two employee records can have the same value in the EMP_NO column. Therefore, the query above, which specifies a single value for EMP_NO in the WHERE clause will return at most one row. It would return no rows if no employee with EMP_NO = 20 existed.

Comparison Operators: =, <, < =, > =, >, <>

The above query used the Equals operator. As with programming languages, the other standard comparison operators are also available. The Not Equal operator can be specified as either"<>" or "!=".

Thus…

SELECT

LAST_NAME

FROM

EMPLOYEE WHERE

EMP_NO <> 20

… will bring back all employee names except the one for employee #20.

SELECT

LAST_NAME

FROM

EMPLOYEE WHERE

EMP_NO <= 20 … will bring back names for those employees having an Emp_No of less than or equal to 20. Boolean Operators: AND, OR, NOT Sometimes we need more complex conditions in a WHERE clause. The AND, OR, and NOT boolean operators can be used to combine multiple conditions: SELECT LAST_NAME FROM EMPLOYEE WHERE ((EMP_NO >= 20)

AND

(EMP_NO <= 30)) AND (NOT (JOB_CODE = 'VP')) The use of parentheses when combining multiple conditions is strongly recommended. There is a set order of operations, but using parentheses will save confusion. Note that strings and dates are always specified with single quotes, since double quotes are reserved for a special SQL feature called delimited identifiers. We'll discuss delimited identifiers later. Much later, if you're lucky… Conditions: IN, BETWEEN, LIKE We can also do wildcard matching using LIKE. LIKE works similarly to =, except that it can accept wildcard characters. The character "%" matches a string of any length. The character "_" matches a single character. Here is an example of how to use LIKE: SELECT EMP_NO, LAST_NAME FROM EMPLOYEE WHERE (LAST_NAME LIKE 'S%') OR (LAST_NAME LIKE '___') This query will return one row in its result set for any employee whose name starts with "S" or whose name is three characters in length. (Hey, I didn't say it was a useful query.) Note that, depending upon the collation used, LIKE may be case-sensitive, and 'S' may not equal 's'. Be careful when using LIKE since the database server won't always be able to optimize your query very well. This can be dangerous when selecting from a table with a lot of records in it. We'll cover basic query optimization later on. BETWEEN is useful for selecting ranges of values. It is inclusive of the specified values: SELECT LAST_NAME FROM EMPLOYEE WHERE HIRE_DATE BETWEEN '1/1/2001' AND '12/31/2001' IN allows you to select records matching a specified set of values: SELECT LAST_NAME FROM EMPLOYEE WHERE EMP_NO IN (20, 24, 28, 44) IN can also be used with sub-selects as you will see. Dealing with NULL Please read the next paragraph very carefully: NULL is not a value. It is a state representing no value. A field in a table can have many different values. If it's an integer field, it can have about four billion values. But there are only two states: NULL and NOT NULL. NULL means that either no value has ever been specified for that field in that particular row, or the NULL state has been explicitly assigned to it. NULL is not the same thing as zero, or an empty string. The SQL rules for dealing with NULL in comparisons and operations (addition, subtraction, and the like) are very simple: the result of any operator and NULL is always NULL. So NULL + 100 = NULL, a string concatenated with NULL is also NULL In a WHERE clause, any comparison with NULL will always evaluate to FALSE. So the following query: SELECT EMP_NO, LAST_NAME FROM EMPLOYEE WHERE (HIRE_DATE = NULL) /* Don't do this! */ …will never return any records, since nothing can ever equal NULL, not even NULL itself! However, we sometimes want to return records where a given column is in the NULL state, so there is a special operator for this: IS SELECT EMP_NO, LAST_NAME FROM EMPLOYEE WHERE (HIRE_DATE IS NULL) Likewise, we might want to return the list of records where the HIRE_DATE column is not in the NULL state: SELECT EMP_NO, LAST_NAME FROM EMPLOYEE WHERE (HIRE_DATE IS NOT NULL) Dealing with Dates There is often confusion about the correct format to use when expressing a date as a string literal. InterBase will accept a few different formats, but you should select one and use it consistently to avoid confusion when coding. The most common format is 'mm/dd/yyyy'. Other accepted formats include 'mm-dd-yyyy', 'dd.mm.yyyy' and 'yyyy.mm.dd'. Dates must always be in single quotes. InterBase also accepts a few special quoted strings as the dates they imply, these are 'TODAY', 'YESTERDAY', 'TOMORROW'. Starting with version 6.0, the more standard keyword CURRENT_DATE should be used, you can specify tomorrow with CURRENT_DATE + 1. Within Delphi/BCB, one should always use the provided AsDateTime methods available in database field objects in order to avoid depending on the field objects to convert from string values. Converting strings to dates depends on the settings of individual workstations (e.g. Windows settings). Ordering result sets SQL result sets are always unordered unless you specify otherwise. Put another way, you cannot expect the rows in the result set to come back in the same order even if you run the exact same query twice unless you specify that you'd like the result set ordered. The records might come back in storage order (the order on the disk), they might come back in random order — you just don't know. So how do you tell the server that you'd like the records ordered? Simply specify which columns should be used to sort the records: SELECT EMP_NO, LAST_NAME FROM EMPLOYEE WHERE (HIRE_DATE IS NOT NULL) ORDER BY LAST_NAME This query will return the records in alphabetical order, based upon the employee's name. They'll be in ascending order (that is, A to Z), because that is the default and we did not specify descending order. Note that two employees might have the same name. Since we didn't specify how to order two records with the same value in the LAST_NAME column, we will receive them in the result set in a random order — if there are two employees named "Smith" we simply cannot expect them to sort in any particular order unless we specify more fields in the ORDER BY clause: SELECT EMP_NO, LAST_NAME FROM EMPLOYEE WHERE (HIRE_DATE IS NOT NULL) ORDER BY LAST_NAME, HIRE_DATE DESC In this query, we're telling the server to first order the records by the LAST_NAME column (in ascending order, since there is no DESC next to name), and then order any group of records with the same name in descending order by the value in the HIRE_DATE column. HIRE_DATE is not one of the values we've selected in the result set, but that's OK; there's no requirement that a column be mentioned in the fields list in order to be used in the ORDER BY clause. As of version 6.5, InterBase will always put records with a NULL state at the top of a list of sorted records, whether the list is ascending or descending. Prior versions sorted NULL to the bottom. Parameterized queries It is common in client applications to run very similar queries over and over again. A good example is a master-detail form. As we scroll through the result set representing the master table, the query for the detail result set will be run many times, once for each record. Because this is so common, there is a special optimization for it supported by nearly every database server on the market, called a parameterized query. When you type some SQL and send it to the server, there is a lot which has to happen in order to produce your result set. The server must parse your SQL into an internal structure it can understand. The server's optimizer must examine the indices on the table and determine if any of them can be used to run the query more quickly. This is called preparing a query. On the client application, the component sets you're using to build your application typically do some actions behind the scenes, such as interrogating the system table for field lengths and the like. All of this takes time, and if you know ahead of time that you'll be running the same query over and over again, it's redundant after the first time. When you use a parameterized query, you are in effect telling the server that you'll be running more or less the same query several times, and changing only the values used for comparison in the WHERE clause. For example, let's say we want a list of projects for a given employee. We'll use this query on a master detail form which allows the user to scroll through a list of employees and see the projects each employee is working on.The "master" query will be one of the queries above which returns EMP_NO as part of the result set. Now we need to write a detail query which shows projects for a given master record: SELECT PROJ_ID FROM EMPLOYEE_PROJECT WHERE EMP_NO = :EMP_NO The colon in this query means that the second reference to EMP_NO is not a field but is a parameter. The parameter, in this case, has the same name as the field EMP_NO, but that's not a requirement. We can now tell the server to prepare this query and then run it multiple times changing only the value of the parameter. It would be like running these two, separate queries: SELECT PROJ_ID FROM EMPLOYEE_PROJECT WHERE EMP_NO = 20 SELECT PROJ_ID FROM EMPLOYEE_PROJECT WHERE EMP_NO = 21 …without the overhead of preparing two separate SQL statements. You can specify any number of parameters in a query. Each time the query is executed, you can supply different values. Parameters can also have a NULL state, but remember that if we set the EMP_NO parameter to NULL then this query would return no records since EMP_NO = NULL is false! INSERT In some ways, the discussion of SELECT was premature, since we can't SELECT result sets from the database until there is data to SELECT! The INSERT verb is used to create a new row in a single table. To create a new row in the EMPLOYEE table, we could use the following statement: INSERT INTO EMPLOYEE ( EMP_NO, LAST_NAME ) VALUES ( 123, 'Smith'); This statement, when run will result in the creation of a new record in the table with the value 123 in the EMP_NO column and the value "Smith" in the LAST_NAME column. These two columns will have the non-NULL state, but all other columns in the table will have the NULL state, unless the database administrator has created a DEFAULT value for the column. There is no requirement to specify every column in the table in an INSERT statement, but a column may have a NOT NULL constraint. If there is a NOT NULL constraint on the column and there is not a DEFAULT value for the column then you must specify a value for the column in your INSERT statement or the server will be unable to create the record and you'll get an error. If you will be specifying a value for every column in the new row then it's permissible to omit the column list and just give the values, e.g. INSERT INTO EMPLOYEE VALUES ( 123, 'John', 'Smith', '1234', '05/24/2002', 600, 'VP', '2', 'USA', 100000); But it's crucial to specify the column values in the order they are defined. It is generally advisable to always specify the column list as it helps avoid problems. INSERT statements do not return a result set. Only SELECT statements return a result set. Copying data with INSERT … SELECT It is sometimes necessary to INSERT many records into a table at once. For example, we might want to create a new project for every employee who was hired today. Instead of specifying the VALUES for the new row as constants, like in the example above, we can embed a SELECT statement into the INSERT statement, and one row will be created for each row in the result set of the SELECT statement: INSERT INTO EMPLOYEE_PROJECT ( EMPLOYEE_PROJECT.PROJID, EMPLOYEE_PROJECT.EMP_NO) SELECT 'BORCON', EMPLOYEE.EMP_NO FROM EMPLOYEE WHERE EMPLOYEE.HIRE_DATE = CURRENT_DATE This is a somewhat complex statement, so let's look at it carefully. The first line states that we'll be inserting rows into the EMPLOYEE_PROJECT table. The second line specifies which fields we'll be specifying values for (later in the statement). It's not necessary to specify the table name in the fields list as I have done here, but I wanted to clearly distinguish the columns in the table we're inserting into from the columns coming from the table we're Selecting from, since some of them have the same names. The rest of the statement tells InterBase that the values will be coming from a SELECT statement rather than a list of constants. For each row in the result set, one row will be created in EMPLOYEE_PROJECT. CURRENT_DATE is a reserved word (in InterBase 6 and later) which always returns the current date from the server's clock, so the SELECT portion of the statement will return one row for each employee who was hired today. There is only one item in the fields list of the SELECT portion of the statement which is actually a field in the EMPLOYEE table (EMP_NO). The other item is a constant. If we ran the SELECT by itself, the result set might look like this: COLUMN_1 EMP_NO 1 21 1 22 So these are the values which will be assigned to the two rows which will be inserted into the EMPLOYEE_PROJECT table (presuming that there were two employees hired today). Note on the Select clause of the Insert…Select statement:This is an Insert statement, not a Select statement. Only single table or view selects are allowed in the Select clause, Interbase will not currently allow joins. UPDATE The UPDATE verb is used to change the value of existing rows. Use of a WHERE clause is essential with UPDATE, because, by default, UPDATE changes every row in the table! If we were going to pay everyone in the company the exact same salary, for example, we might run the following statement: UPDATE EMPLOYEE SET SALARY = 5000 Running a statement like this is much more efficient than iterating through the table and updating each record, one at a time, but for the most part we generally do want to change values in only one record or a number if specific records matching some criteria, so most UPDATE statements have WHERE clauses: UPDATE EMPLOYEE SET SALARY = 5000 WHERE EMP_NO = 20 Bad news for employee 20, but the rest of us can breathe easy. It would probably not be a good idea to write an UPDATE statement like this: UPDATE EMPLOYEE SET SALARY = 5000 WHERE FIRST_NAME = 'Bob' …because if there were more than one Bob in the company then we'd be giving a lousy salary to all of them, not just the lazy one. In general, use the primary key or another unique key of the table when writing a WHERE clause designed to affect only one record. It's common to write UPDATE statements which specify the value of every column in the table in the WHERE clause. Since the primary key will always uniquely identify a given row, why would anyone do this? The answer is that this is way of protecting against multiuser conflicts (transactions are another way, but they do it differently). Let's imagine that a user, Emma, creates a new record. Later, another user, Peter, updates the record. Emma returns to her computer, but she hasn't refreshed her display so she doesn't see Peter's changes to the record. Emma decides to change the record. If only the primary key was specified in the WHERE clause of the UPDATE statement, then Emma would write over Peter's changes without realizing it. By specifying all field values in the WHERE clause, and not just the primary key value, the UPDATE statement will have no effect (i.e, it will not change any rows) if the record has been changed since Emma last looked at it. The client application can detect that the statement had no effect and let Emma know that the row has changed (or been deleted) since she last SELECTed it. DELETE DELETE looks just like UPDATE except, for obvious reasons, there is no list of fields: DELETE FROM EMPLOYEE WHERE EMP_NO = 20 Like UPDATE, you can omit the WHERE clause if you want to affect (in this case, clear) the entire table: DELETE FROM EMPLOYEE Moving beyond simple SELECTs Subqueries A subquery is a SELECT inside of another SQL statement and is used to select values from another table to be used for qualifying or setting values in the outer SQL statement. Subqueries can also be used in other statements too but are most commonly used in Select statements: SELECT EMPLOYEE.EMP_NO, EMPLOYEE.LAST_NAME FROM EMPLOYEE WHERE EMPLOYEE.EMP_NO IN (SELECT PROJECT.EMP_NO FROM PROJECT) This query will return the list of employees who have at least one project. Again, it's not strictly necessary to use the table names in the fields list (e.g., EMPLOYEE.EMP_NO), but it helps to clarify where the fields are coming from since EMPLOYEE and EMPLOYEE_PROJECT both have a field called EMP_NO. This query shows an example of using the IN operator with a subquery. We can't use the = comparison here, because the subquery returns many rows, and we can't use an equality comparison to compare a single value with a large number of rows. If we had tried to use = instead of IN, we'd receive the charming error message, "Multiple rows in singleton select." The = comparison could only be used if we were absolutely certain the subquery would return only one row. Subqueries can also be used in UPDATE statements. Let's imagine you want to set the project start date on every row in the EMPLOYEE_PROJECT table equal to the HIRE_DATE for the corresponding employee in the EMPLOYEE table. The following statement would do the trick: UPDATE EMPLOYEE_PROJECT SET EMPLOYEE_PROJECT.START_DATE = (SELECT EMPLOYEE.HIRE_DATE FROM EMPLOYEE WHERE EMPLOYEE.EMP_NO = EMPLOYEE_PROJECT.EMP_NO ) (This query won't actually work since the EMPLOYEE_PROJECT doesn't have a field called START_DATE.) This kind of statement works fairly well for tables which are not especially large. For very large tables, use a stored procedure to do the update (see the Optimization section for details). Attempting this on a large table, especially if more than one subquery must be used to set field values, will perform very poorly because the subqueries must be executed once for each record to be updated. The following statement will delete any employees with no projects: DELETE FROM EMPLOYEE WHERE EMPLOYEE.EMP_NO NOT IN (SELECT EMPLOYEE_PROJECT.EMP_NO FROM EMPLOYEE_PROJECT ) JOINs Everything we have seen thus far is useful, but JOINs are the real power of a relational database server. JOINs allow the developer to combine data from multiple tables in to a single result set. It is common when designing databases to use a lot of separate tables for various attributes of a single entity. For example, you might store records of an employee's salary, residence, etc., in separate tables rather than expanding the EMPLOYEE table. There a lot of advantages to doing this (the employee might have more than one residence, for example), but without being able to combine the information it would be very difficult to create a mailing list. A JOIN is simply a way of telling the database server how to match rows from two different tables. You can then return fields from both tables in your result set. For example, let's imagine we want to return a result set with employee names and the names of the projects they're working on. We need to tell the database server to match EMPLOYEE_PROJECT records with records in the EMPLOYEE table. In particular, given an EMPLOYEE_PROJECT record, we need to find a record in the EMPLOYEE table with the same EMP_NO value. The following query JOINs the two tables together to produce the desired result: SELECT EMPLOYEE.LAST_NAME, EMPLOYEE_PROJECT.PROJ_ID FROM EMPLOYEE INNER JOIN EMPLOYEE_PROJECT ON EMPLOYEE_PROJECT.EMP_NO = EMPLOYEE.EMP_NO ORDER BY EMPLOYEE.LAST_NAME, EMPLOYEE_PROJ_ID This query uses a particular type of JOIN called an INNER JOIN. INNER JOIN means that one or more records with a given EMP_NO must be present in both the EMPLOYEE_PROJECT and EMPLOYEE tables in order to produce a row in the result set. In other words, if there was a row in the EMPLOYEE table for employee #10 but there was no row in the EMPLOYEE_PROJECT table for employee #10 then there would be no row in the result set for employee #10. If no JOIN type is specified in the query (if we write JOIN EMPLOYEE instead of INNER JOIN EMPLOYEE) then an INNER JOIN will be used. INNER JOIN is the default join type. The second most common type of JOIN is a LEFT OUTER JOIN. This type of JOIN returns at least one row for each row in the "left" table, whether or not there is a corresponding row in the "right" table. The terms "left" and "right" often seem confusing at first, but that's what the SQL Standard calls them. The terms are based on the fact that we (at least most of the western world) read from left to right, therefore just remember that left refers to the table mentioned first and right refers to the second table being joined to the first. In the example above, the EMPLOYEE table is the left table, and the EMPLOYEE_PROJECT table is the right table. As previously mentioned, the query above won't return any rows in its result set for employees without projects. What if we wanted to see these employees anyway? Use a LEFT OUTER JOIN instead of an INNER JOIN: SELECT EMPLOYEE.LAST_NAME, EMPLOYEE_PROJECT.PROJ_ID FROM EMPLOYEE LEFT OUTER JOIN EMPLOYEE_PROJECT ON EMPLOYEE_PROJECT.EMP_NO = EMPLOYEE.EMP_NO ORDER BY EMPLOYEE.LAST_NAME, EMPLOYEE_PROJECT.PROJ_ID In this result set, the column EMPLOYEE_PROJECT.PROJ_ID will have a NULL state on rows for employees who don't have any projects. This might seem confusing since there are no records in the EMPLOYEE_PROJECT table with the NULL state in the PROJ_ID field, but it simply indicates that there is no matching record. In other words, if a column is NULL in the result set of a query resulting from a JOIN, one of two things is going on: 1. There was a matching row in the appropriate table, and the state of the corresponding column for that row was NULL, or 2. There was no matching row in the appropriate table. In addition to INNER and LEFT OUTER joins, there are also RIGHT OUTER and FULL OUTER joins (OUTER is optional and can be omitted). A RIGHT join, as it implies, is opposite of a LEFT join - all records are selected from the table on the right, and only matching records are selected from the table on the left. A FULL join is very rarely ever desired, it will select all records from both tables whether or not there is a match in the other. Using aliases for field and table names As we get used to the idea of having multiple tables in a SELECT statement, specifying the table names can get to be a lot of typing. SQL allows us to specify an alias for table names: SELECT E.LAST_NAME, EP.PROJ_ID FROM EMPLOYEE AS E LEFT OUTER JOIN EMPLOYEE_PROJECT AS EP ON EP.EMP_NO = E.EMP_NO ORDER BY E.LAST_NAME, EP.NAME The the alias for a table is defined by specifying it following the table name in the FROM clause. SQL allows you to use the alias before it's defined. Fields can also be given aliases. As with table aliases, they are defined directly following the column name in the field list: SELECT E.LAST_NAME AS SURNAME, EP.PROJ_ID AS PROJECT FROM EMPLOYEE E LEFT OUTER JOIN EMPLOYEE_PROJECT EP ON EP.EMP_NO = E.EMP_NO ORDER BY E.LAST_NAME, EP.NAME The "AS" operator is optional and can be omitted in Interbase. Field aliases can only be used for specifying the name to be returned in the result set, a field alias name cannot be used to reference the field elsewhere in the query (such as in an Order By clause). Aggregate Functions The MAX, MIN, COUNT, SUM, and AVG (average) functions do exactly what their names imply. They are called "aggregate functions" because they work on the entire result set at once instead of a single row. COUNT deserves special mention because it works in two different ways. COUNT(*) will count the number of rows in the table, after the WHERE clause is applied, JOINs are performed, etc. COUNT(FIELD_NAME) counts the number of non-NULL values in a particular column. COUNT(DISTINCT FIELD_NAME), of course, counts the number of distinct values there are in a particular column. For example, if you had a table with four rows in it, containing the following data: ID SOME_VALUE 1 2 1 3 2 4 2 Then the following query: SELECT COUNT(*), COUNT(SOME_VALUE), COUNT(DISTINCT SOME_VALUE), MAX(ID) Would return this result set: COUNT COUNT_2 COUNT_3 MAX 4 3 2 4 Grouping Since aggregate functions operate on all rows of the table at once and produce a single row as a result set, they can't be combined with "normal" selection of fields without grouping the results somehow. In other words, you can't SELECT employee names and the count of employees in the same statement, because the employee names selection produces many rows and the count of employees produces only a single row. You might, however, want to know how many employees have the same name. The GROUP BY clause allows you to tell the aggregate function that it should run once for each distinct value of a certain field or group of fields in the table. SELECT LAST_NAME, COUNT(LAST_NAME) FROM EMPLOYEE GROUP BY LAST_NAME ORDER BY LAST_NAME The GROUP BY clause must contain all columns mentioned in the fields list except for the aggregat functions. So in this example, LAST_NAME must be in the Group By clause. This query tells us what we want — for each name, how many people share the name. But the value for most names will be "1" and these ones would likely be uninteresting to the user of this query. So we need a way to eliminate the rows with unique names. HAVING The Having clause qualifies the Group By clause. After the Group By has done its work, any conditions specified in the Having clause are applied. So we can improve our query as follows: SELECT LAST_NAME, COUNT(LAST_NAME) FROM EMPLOYEE GROUP BY LAST_NAME HAVING COUNT(LAST_NAME) > 1

ORDER BY

LAST_NAME

Now we'll only see Last Names where at least two people share that name. This is accomplished by repeating the Count aggregate funtion on Last_Name.

DISTINCT

Distinct allows you to select unique values, or combinations of values, when there are duplicates. For example, you may want to see all the different cities your customers are from. If you execute the following:

SELECT

CITY

FROM CUSTOMER

ORDER BY

CITY

You will indeed see all the different cities, but each city will be repeated as many times as there are customers from that city. What is really wanted is each unique city:

SELECT DISTINCT

CITY

FROM CUSTOMER

ORDER BY

CITY

Cities are not necessarily unique across different provinces or states, so if your customers are international then the above won't be good enough. Distinct works on multiple columns:

SELECT DISTINCT

CITY, STATE_PROVINCE, COUNTRY

FROM CUSTOMER

ORDER BY

CITY, STATE_PROVINCE, COUNTRY

Note the Order By is not required to include the same columns (or be present at all) but it is very common to do so.

CAST, EXTRACT, and other functions

Cast allows you to coerce one datatype into another. The conversion being asked for must make sense or Interbase will raise an exception. All the valid conversions can be found in the Interbase documentation. A simple example will give the idea:

SELECT

CAST(QTY_ORDERED AS FLOAT) / 0.35

FROM SALES

Cast is not needed very often as Interbase will generally perform an implicit conversion for you. The above statement would give the same results without the cast.

Extract is available starting with Version 6.0. Extract allows parts if date and time fields to be extracted, for example:

SELECT

LAST_NAME, FIRST_NAME, EXTRACT(YEAR FROM HIRE_DATE)

FROM EMPLOYEE

The parts that can be extracted are: YEAR, MONTH, DAY, WEEKDAY, HOUR, MINUTE, and SECOND.

ALL, ANY, SOME, EXISTS, SINGULAR

These operators are used with sub-queries. Earlier you learned about the IN operator which lets you test whether a selected value exists within a set of specified or sub-selected values - it tests for equality.

ALL allows you to perform comparisons other than equality. For example, if you want to find those employees with a salary greater than the salary of all employees in your department, you might try:

SELECT

LAST_NAME, SALARY

FROM EMPLOYEE

WHERE

SALARY >ALL

(SELECT

SALARY

FROM EMPLOYEE

WHERE

DEPT_NO = 623

)

ANY and SOME are synonyms, use whichever you like. To find employees in your department with salaries less than the lowest in any other department, you could find them with:

SELECT

LAST_NAME, SALARY

FROM EMPLOYEE

WHERE

SALARY < ANY (SELECT SALARY FROM EMPLOYEE WHERE DEPT_NO <> 623

)

EXISTS is very valuable. Use it anywhere you need to know something exists but do not need to know the count.

If you want to see a list of Projects where no employees are currently assigned you could do this:

SELECT

PROJ_ID, PROJ_NAME

FROM PROJECT P

WHERE

NOT EXISTS

(SELECT

EMP_NO

FROM EMPLOYEE_PROJECT EP

WHERE

EP.PROJ_ID = P.PROJ_ID

)

SINGULAR returns true if exactly one row from the sub-select matches your test. The following will return projects where there is exactly one employee assigned.

SELECT

PROJ_ID, PROJ_NAME

FROM PROJECT P

WHERE

SINGULAR

(SELECT

EMP_NO

FROM EMPLOYEE_PROJECT EP

WHERE

EP.PROJ_ID = P.PROJ_ID

)

InterBase-specific SQL

STARTING WITH

Use this instead of LIKE wherever possible. This is most important for parameterized queries as a parameterized LIKE cannot use an index while STARTING WITH can.

CONTAINING

CONTAINING is similar to using LIKE with wildcards on both sides, e.g. LIKE '%BASE%'. However CONTAINING is case-insensitive and can also be used to search within text blob columns.

ROWS

Rows is a new feature starting with version 6.5. Rows is very flexible and provides a great deal of power. At its simplest, it less you select the n rows from a query.

SELECT

LAST_NAME,

FIRST_NAME, SALARY

FROM EMPLOYEE

ORDER BY

SALARY DESC, LAST_NAME,FIRST_NAME

ROWS 1 TO 10

This query returns only the first 10 records of the result set (You can also specify just ROWS 10). Strictly speaking, Rows can be used without the Order By, but this woud be of little value. In this example, the 10 employees with the highest salaries will be returned. It's possible you may want all the employees with the 10 highest salaries (more than one employee may have the same salary), in this case you can use the WITH TIES option:

SELECT

LAST_NAME,

FIRST_NAME, SALARY

FROM EMPLOYEE

ORDER BY

SALARY DESC, LAST_NAME,FIRST_NAME

ROWS 1 TO 10 WITH TIES

So if there were 17 employees sharing the top 10 salaries, all 17 would be returned.

Rows can also be specified as a percent:

SELECT

LAST_NAME,

FIRST_NAME, SALARY

FROM EMPLOYEE

ORDER BY

SALARY DESC, LAST_NAME,FIRST_NAME

ROWS 10 PERCENT

Finally, Rows can be used for sampling. The following example returns every 20th record from the result set up to a maximum of 100 records:

SELECT

LAST_NAME,

FIRST_NAME, SALARY

FROM EMPLOYEE

ORDER BY

SALARY DESC, LAST_NAME,FIRST_NAME

ROWS 100 BY 20

Probably one of the most sought after uses of this feature is to allow for very efficient paging of result sets as commonly seen on many web sites; some number of records, typically 10, are displayed with Next and Previous buttons. Rows allows you to return any slice of a result set

The Rows feature can also be used in Update and Delete statements. Normally, the Order By clause is only valid in a Select statement. However, it becomes valid for other statements as long as it is used along with the Rows feature (otherwise using rows in these statements would be of little value). For example, the following gives a raise to the top 10 salaried employees hired before 2002:

UPDATE EMPLOYEE

SET

SALARY = SALARY * 1.10

WHERE

EXTRACT(YEAR FROM HIRE_DATE) < 2002 ORDER BY SALARY DESC ROWS 10 The following deletes the 10 employees with the newest hire date: DELETE FROM EMPLOYEE ORDER BY HIRE_DATE DESC ROWS 10 RDB$DATABASE This is a system table that is guaranteed to only have a single record in it. This makes a few special queries possible such as: Asking Interbase to return the current date and time from the server SELECT CURRENT_TIMESTAMP FROM RDB$DATABASE /* 6.0+ */ SELECT CAST('TODAY' AS DATE) FROM RDB$DATABASE /* 5.6- */ Asking Interbase to return the currently logged-in user SELECT USER FROM RDB$DATABASE There are other situations where such a table is needed, for example to simply test for the existence of a specific record - the EXISTS function can only be used with a sub-query: SELECT 1 FROM RDB$DATABASE WHERE EXISTS ( SELECT * FROM EMPLOYEE_PROJECT WHERE EP.PROJ_ID = 123 ) Generators Generators are a way to create unique values in a multi-user database. In a single-user database it is acceptable to do things such as manually incrementing a value from a "key" table, or adding one to the highest current value in a table, but these schemes will not do in a multi-user environment. Most RDBMS products offer something similar, MS SQL has Identity fields and Oracle has Sequences. The standard way to use a generator from in a query is like this: SELECT GEN_ID(GEN_CUSTOMER, 1) FROM RDB$DATABASE Generators can also be used in insert and update statements. It is also common to see them as part of insert triggers. Taken from : http://blogs.teamb.com/craigstuntz/dtpostname/ibsqlintro/

FreeVCS Menu Disappears On Delphi 7. How to Fix It?

2010-03-04T08:15:00.002+07:00

Obviously Borland introduced no serious changes in the VCS interface, therefore the current FreeVCS IDE version seems to work without problems.

Obviously Borland introduced no serious changes in the VCS interface, therefore the current FreeVCS IDE version seems to work without problems.

Of course the actual setup program offers no option to set registry keys for the D6/D7 IDE but you can simply create the related entry by yourself:

-

Create a new reg key "HKCU\Software\Borland\Delphi\6.0(or 7.0)\Version Control".

(Remember the space between 'Version' and 'Control')

-

Create a new string value named "VCSManager".

(No space between 'VCS' and 'Manager')

-

Enter full path and name of the FreeVCS DLL. (Example : c:
C:\Program Files\FreeVCS\freevcs.dll)

Restart the D6/D7 IDE and the FreeVCS Menu should be there...

There is only one known problem related to D6/D7 for now:

On some installations you may see the error message "FreeVCS cannot save the file ...." when starting.
There is no further problem caused by this message, so you can simply ignore it.
If you find this annoying, you can get rid of the message by creating a "Config" directory in your Delphi startup directory, i.e. for a default installation of Delphi 6, creating "C:\Program Files\Borland\Delphi6\Projects\Config" stops the startup error.

You may also use Client beta 2.2.1.90, where this error should be fixed.

Menghitung Lama Procedure/Function Dieksekusi

2009-03-25T06:20:00.001+07:00

Untuk Mengetahui berapa lama waktu yang dibutuhkan untuk mengeksekusi suatu
procedure bisa kita gunakan function GetTickCount. Apa fungsi GetTickCuunt?
Baca sendiri helpnya ya, ini sudah saya copy-kan :

Untuk Mengetahui berapa lama waktu yang dibutuhkan untuk mengeksekusi suatu
procedure bisa kita gunakan function GetTickCount. Apa fungsi GetTickCuunt?
Baca sendiri helpnya ya, ini sudah saya copy-kan :

Retrieves the number of milliseconds that have elapsed since the system was started, up to 49.7 days.

Bagaimana cara menggunakannya?
Simple saja, yang harus kita lakukan hanya mencatat return value dari function GetTickCount sesaat sebalum procedure dieksekusi dan sesudahnya. Kemudian kita selisihkan hasilnya. Oya jangan lupa, hasil selisihnya adalah dalam satuan milliseconds , jika kita mengehendaki hailnya dalam satuan detik tinggal kita bagi dengan 1000.

Lebih jelasnya silahkan algoritma berikut ini

iAwal := GetTickCount;
Eksekusi Procedure;
iAkhir := GetTickCount;
iSelisih := iAkhir - iAwal;
dWaktu := iSelisih / 1000;

OK, selamat mencoba !

Berkenalan Dengan OOP

2009-03-20T16:32:00.001+07:00

OOP Kependekan dari Object Oriented Programming merupakan paradigma pemrograman yang berorientasikan kepada objek. Semua data dan fungsi di dalam paradigma ini dibungkus dalam kelas-kelas atau objek-objek. Bandingkan dengan logika pemrograman terstruktur. Setiap objek dapat menerima pesan, memproses data, dan mengirim pesan ke objek lainnya.

OOP Kependekan dari Object Oriented Programming merupakan paradigma pemrograman yang berorientasikan kepada objek. Semua data dan fungsi di dalam paradigma ini dibungkus dalam kelas-kelas atau objek-objek. Bandingkan dengan logika pemrograman terstruktur. Setiap objek dapat menerima pesan, memproses data, dan mengirim pesan ke objek lainnya.

Sebagai langkah awal untuk mempelajari OOP,berikut istilah - istilah yang akan banyak kita jumpai dalam belajar OOP

* Kelas
Kumpulan atas definisi data dan fungsi-fungsi dalam suatu unit untuk suatu tujuan tertentu. Sebagai contoh 'class of dog' adalah suatu unit yang terdiri atas definisi-definisi data dan fungsi-fungsi yang menunjuk pada berbagai macam perilaku/turunan dari anjing. Sebuah class adalah dasar dari modularitas dan struktur dalam pemrograman berorientasi object. Sebuah class secara tipikal sebaiknya dapat dikenali oleh seorang non-programmer sekalipun terkait dengan domain permasalahan yang ada, dan kode yang terdapat dalam sebuah class sebaiknya (relatif) bersifat mandiri dan independen (sebagaimana kode tersebut digunakan jika tidak menggunakan OOP). Dengan modularitas, struktur dari sebuah program akan terkait dengan aspek-aspek dalam masalah yang akan diselesaikan melalui program tersebut. Cara seperti ini akan menyederhanakan pemetaan dari masalah ke sebuah program ataupun sebaliknya.

* Objek
Membungkus data dan fungsi bersama menjadi suatu unit dalam sebuah program komputer; objek merupakan dasar dari modularitas dan struktur dalam sebuah program komputer berorientasi objek.

* Abstraksi
Kemampuan sebuah program untuk melewati aspek informasi yang diproses olehnya, yaitu kemampuan untuk memfokus pada inti. Setiap objek dalam sistem melayani sebagai model dari "pelaku" abstrak yang dapat melakukan kerja, laporan dan perubahan keadaannya, dan berkomunikasi dengan objek lainnya dalam sistem, tanpa mengungkapkan bagaimana kelebihan ini diterapkan. Proses, fungsi atau metode dapat juga dibuat abstrak, dan beberapa teknik digunakan untuk mengembangkan sebuah pengabstrakan.

* Enkapsulasi
Memastikan pengguna sebuah objek tidak dapat mengganti keadaan dalam dari sebuah objek dengan cara yang tidak layak; hanya metode dalam objek tersebut yang diberi ijin untuk mengakses keadaannya. Setiap objek mengakses interface yang menyebutkan bagaimana objek lainnya dapat berinteraksi dengannya. Objek lainnya tidak akan mengetahui dan tergantung kepada representasi dalam objek tersebut.

* Polimorfisme
Melalui pengiriman pesan. Tidak bergantung kepada pemanggilan subrutin, bahasa orientasi objek dapat mengirim pesan; metode tertentu yang berhubungan dengan sebuah pengiriman pesan tergantung kepada objek tertentu di mana pesa tersebut dikirim. Contohnya, bila sebuah burung menerima pesan "gerak cepat", dia akan menggerakan sayapnya dan terbang. Bila seekor singa menerima pesan yang sama, dia akan menggerakkan kakinya dan berlari. Keduanya menjawab sebuah pesan yang sama, namun yang sesuai dengan kemampuan hewan tersebut. Ini disebut polimorfisme karena sebuah variabel tungal dalam program dapat memegang berbagai jenis objek yang berbeda selagi program berjalan, dan teks program yang sama dapat memanggil beberapa metode yang berbeda di saat yang berbeda dalam pemanggilan yang sama. Hal ini berlawanan dengan bahasa fungsional yang mencapai polimorfisme melalui penggunaan fungsi kelas-pertama.

* Inheritas
Mengatur polimorfisme dan enkapsulasi dengan mengijinkan objek didefinisikan dan diciptakan dengan jenis khusus dari objek yang sudah ada - objek-objek ini dapat membagi (dan memperluas) perilaku mereka tanpaa harus mengimplementasi ulang perilaku tersebut (bahasa berbasis-objek tidak selalu memiliki inheritas.)

Istilah-istilah di atas adalah dasar-dasar OOP yang harus kita kuasai. Selanjutnya, simak artikel-artikel berikutnya untuk lebih mendalami OOP. Happy Reading n Studying

Merubah Enter Menjadi Tab

2009-03-19T17:31:00.001+07:00

Kadang, user menginginkan ketika dia klik ENTER maka kursor akan berpindah ke componet berikutnya. Ada beberapa cara, antar lain memakai coponent EnterAsTab (Silahkan Googling).

Kadang, user menginginkan ketika dia klik ENTER maka kursor akan berpindah ke componet berikutnya. Ada beberapa cara, antar lain memakai coponent EnterAsTab (Silahkan Googling).

Jika kita tidak bisa menemukan component tersebut, kita bisa akali sebagai berikut :
Di method FormKeyDown tuliskan Script Berikut

if Key = VK_RETURN then
begin
SelectNext(ActiveControl,True,True);
end;

Jangan lupa untuk mengeset properties KeyPreview dari form menjadi TRUE.
Sebenarnya untuk component StringGrid ketika Enter harus pindah ke cell berkutnya, script di atas belum bisa , ada yang bisa menambahkan ? :)

Selamat Mencoba

Membuat Form Yang Seragam

2009-03-19T17:25:00.001+07:00

Kadang, kita dituntut untuk membuat aplikasi yang semua formnya mempunya component yang sama.
Hal ini akan sangat melelahkann jika kita harus menempatkan semua component tersebut di tiap-tiap form.

Kadang, kita dituntut untuk membuat aplikasi yang semua formnya mempunya component yang sama.
Hal ini akan sangat melelahkann jika kita harus menempatkan semua component tersebut di tiap-tiap form.

Dengan pemahaman OOP yang dasar saja, sebenarnya kita bisa mengakali kasus di atas, caranya dengan menerapkan konsep inheritance. Yang harus kita lakukan adalah :
1. Buat Form Default (form ini nanti yang menjadi pola bagifrom2 lain)
2. Klik Menu File > New > Other
3. Pilih tab project kita
4. Cari from default tadi, klik OK
5. Simpan dengan nama lain.

Nah, kita sudah medapatkan form baru yang sama persis dengan from default. Jika ad perubahan di form default, maka otomatis form turunannya akan ikut berubah.

Selamat Mencoba

About Delphi Gurus

2009-03-19T12:52:00.001+07:00

Blog ini saya maksudkan untuk menuliskan uneg-uneg saya berkenaan dengan pemrograman delphi. Di sini saya akan mencoba menulis pengalaman saya selama +/- lima tahun berkutat dengan delphi.