Aturan Case Pada Pengetikan Input di Delphi

Terkadang dalam waktu penginputan data, perlu adanya pengekangan seperti penulisannya harus huruf Kapital ataupun huruf kecil agar tidak terjadi kesalahan pada waktu input data.

Berikut code case yang bisa digunakan pada event OnChange Edit1

Huruf kecil

procedure TForm1.Edit1Change(Sender: TObject);

begin

  Edit1.Text:=lowercase(Edit1.text);

end;

end.

Huruf Kapital

procedure TForm1.Edit1Change(Sender: TObject);

begin

  Edit1.Text:=uppercase(Edit1.text);

end;

end.