Arsip: Ttg componentcount ?

more 18 years ago
debby
Ini pernah dibahas , tapi saya belum tahu betul. pernah saya praktekkan malah eror.
Misal : aku letakkan 2 groupbox dlm form, masing2 groupbox itu ada beberapa tedit.
Bagaimana groupbox1 terisi nilai 0 semua teditnya, sedangkan groupbox2 tidak terisi (kosong atau :=' ').
saya pake code tsb dibawah ini :
for i := 0 to ComponentCount -1 do
if components[i] is TEdit then
TEdit(components[i]).Text := '';
Tolong tambahin codenya mana yang kurang ?
Thx

more 18 years ago
danieljun
Untuk kilik2 bagian dari GroupBox pakai property Controls
for i := 0 to GroupBox1.ControlCount -1 do
if GroupBox1.Controls[i] is TEdit then
TEdit(GroupBox1.Controls[i]).Text := '0';
for i := 0 to GroupBox2.ControlCount -1 do
if GroupBox2.Controls[i] is TEdit then
TEdit(GroupBox2.Controls[i]).Text := '';
referensi lengkap ada di Help
more 18 years ago
debby
Terima kasih bozz...... udah saya praktekkan dan berhasil. Pusingku udah terobati.....

more 18 years ago
DelphiExpert
property Components adalah milik TWinControl. artinya, tiap komponen yg diturunkan dari TWinControl mempunyai property tsb, dengan kata lain; masing2 component/control letaknya adalah relative terhadap parent-nya (TWinControl).
Eits... tidak semua TWinControl accepts controls... tergantung flags pd constructor params.
dan ingat, apabilan anda tidak menyertakan nama-parent component yg dimaksud otomatis anda meng-akses semua component milik TForm tetapi masih dalam 1 root level, childs tetap di hold oleh sub parent dalam form (TPanel, TGroupBox dll) (jika saat itu dikau coding dalam sebuah form).
sebagai contoh untuk meng-akses TEdit yg ada dalam TGroupBox, anda harus menggunakan ComponentCount / Components dari si Parent-nya TEdit; yakni TGroupBox.
Perlu diingat TWinControl mempunyai 2 jenis list utk menampung daftar child-components/controls. yakni Components - ComponentCount dan Controls - ControlCount
masing2 menyimpan component/control sesuai dng makna dari nama property tsb. Components mengandung semua component yg ada pd sebuah TWinControl descendants, baik yg berupa Visual (TControl descendants) maupun yg non-visual (TComponent descendants), sedangkan Controls khusus menampung semua component yg bersifat visual (TControl descendants).
dengan demikian, utk mengakses visual component (TEdit, TComboBox, TImage dll) lebih tepat jika menggunakan Controls.
berikut contoh meng-akses childs (TEdit) pada GroupBox1.
for I:= 0 to GroupBox1.ControlCount - 1 do
if GroupBox1.Controls[I] is TEdit then
TEdit(GroupBox1.Controls[I]).Text:= '';

more 18 years ago
debby
Makasih ilmunya .. bang delphiexpert, memang forum ini perlu bagi saya, daripada baca buku cuman sebatas umum saja.
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- Mengambil semua ukuran Icon u/ suatu file type?
by _lmz in Network, Files, I/O & System more 18 years ago - Simulasi mobile phone keypad...?
by abichoy in Tip n Trik Pemrograman more 16 years ago - mohon pencerahannya..
by afre_N in Tip n Trik Pemrograman more 17 years ago - Problem Trigger di ZeosDBO dengan DB MySQL
by Manz in MySQL more 17 years ago - help me buat rsa .........
by CurutZ in Tip n Trik Pemrograman more 17 years ago - simpan otomatis
by Ayahe_Hasna in Paradox more 17 years ago - Develop Pake Delphi 2005
by kaka-delphi in Delphi.NET more 19 years ago - Alokasi & Acak No Undian
by tAtA in Tip n Trik Pemrograman more 17 years ago - syntax error in from clause
by fongers in Hal umum tentang Pascal Indonesia more 15 years ago - Bagaimana cara menghapus informasi window dari memory ?
by stoopid in Tip n Trik Pemrograman more 18 years ago