Merubah Setiap awal kata menjadi huruf besar pada TEdit

Dalam keadaan tertentu kita memerlukan bahwa setiap kata yang diinput pada TEdit harus huruf besar pada huruf pertamanya. Seperti misalnya dalam penulisan nama orang, nama tempat dll. Terkadang operator lupa menekan shift, sehingga terjadi kekeliruan input.

Prosedur dibawah ini akan secara otomatis merubah huruf pertama setiap kata menjadi huruf besar.
Pada event OnChange pada TEdit, tuliskan kode berikut:

procedure TForm1.Edit1Change(Sender: TObject);
var
  OldChange: TNotifyEvent;
  OldStart: Integer;
begin
  with (Sender as TEdit) do
  begin
    OldChange := OnChange;
    OnChange  := nil;
    OldStart  := SelStart;
    if ((SelStart > 0) and (Text[SelStart - 1] = ‘ ‘)) or (SelStart = 1) then
    begin
      SelStart  := SelStart – 1;
      SelLength := 1;
      SelText   := AnsiUpperCase(SelText);
    end;

    OnChange := OldChange;
    SelStart := OldStart;
  end;

Mengecek ODBC lewat delphi

Untuk mengecek apakah setting ODBC yang dibutuhkan aplikasi database sudah ada pada system atau belum, maka sebelum proses koneksi diaktifkan kita harus mengecek dahulu statusnya. Apabila ini tidak dilakukan dan ternyata pada system tidak ada konfigurasi ODBC yang dibutuhkan, maka aplikasi akan terhenti secara tidak normal.

Sebaiknya kita melakukannya sesaat setelah Initialize pada Source project.

Program Test;
uses
 Forms,
 Windows,
 Sysutils,
 DBTables,
 UMain in 'UMain.pas' {FrmMain},
 UDtaMdl in 'UDtaMdl.pas' {DtaMdl: TDataModule},
 ....
 ....
{$R *.res}
Var OK : Boolean;
stPath,stDatabase,stdsn:String;

begin
Application.Initialize;
Chdir(ExtractFilePath(Application.EXEName));
GetDir(0,stpath);
stDatabase:='DATANYA.mdb';
stDsn:='NamaDSN';
Ok:=True;
//============= intinya======
If Not Session.IsAlias(stDsn) Then
Ok:=False;
 If Not Ok Then
Begin
Application.MessageBox('Konfigurasi ODBC belum   ada','Konfigurasi Database',0);
Application.Terminate;
 End else
 Begin
Application.CreateForm(TFrmMain, FrmMain);
Application.CreateForm(TDtaMdl, DtaMdl)
...
...
 End;
Application.Run;
end.