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;

Mereset String Grid

Berikut ini tips untuk me-reset (mengosongkan) isi dari setia sel dalam strimg grid tanpa mengurangi jumlah kolom dan baris.

Semoga bermanfaat.

procedure ClearGrid(Sender:TForm;GridName: String);
Var I,j,x : Integer;
IRow,ICol : Integer;
begin
For I:= 0 to Sender.ComponentCount – 1 do
Begin
If (Sender.Components[i] is TStringGrid) Then
Begin
If (Sender.Components[i] as TStringGrid).Name = GridName Then
Begin
ICol := (Sender.Components[i] as TStringGrid).ColCount;
IRow := (Sender.Components[i] as TStringGrid).RowCount;
For J:= 1 to IRow-1 do
Begin
For X:=0 to ICol-1 do
Begin
(Sender.Components[i] as TStringGrid).Cells[X,j]:=’ ‘;
End;
End;
(Sender.Components[i] as TStringGrid).RowCount :=2;
End;
End;
End;
end;