Arsip: Edit, combo Box dan Array

more 18 years ago
priki
Salam kenal semuanya, saya newbie delphi dan aya mau tanya.
saya ada masalah gini :
ada 2 Edit text dan 1 combo box, nah nilai masing2 disimpan pada sebuah array of byte... yang jumlahnya 6, adapun gini detailnya
Edit1 berisi 2 character
Edit 2 berisi 3 karakter
Combobox 1 berisi 1 karakter,
nah yang saya mau tanyakan bagaimana menyimpan jumlah total 6 karakter itu kedalam sebuah array yang telah kita sediakan?
Terima kasih atas bantuan rekan2.... :)

more 18 years ago
ImanD
klo dah pasti tuh data, ni sample simple-nya.
uses
Dialogs;
function Integerkan(kar: Char): Integer;
var
Code: integer;
begin
Val(kar, Result, Code); // convert jika selain angka dan angka 0 maka nilai balik adalah 0
end;
function TForm1.Button1Click(Sender: TObject) ;
var
contoArray: array of byte;
begin
contoArray[1]:=Integerkan(Edit1.Text[1]);
contoArray[2]:=Integerkan(Edit1.Text[2]);
contoArray[3]:=Integerkan(Edit2.Text[1]);
contoArray[4]:=Integerkan(Edit2.Text[2]);
contoArray[5]:=Integerkan(Edit2.Text[3]);
contoArray[6]:=Integerkan(ComboBox1.Text[1]);
end;
semoga bercerah, silakan kembangkanmore ...
- 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 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 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 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- data numerik lebih dari 4 milyar error
by goehsatrio in MySQL more 14 years ago - tmainmenu dari database
by alfian in Enginering more 19 years ago - [?] Membuat Judul Dinamis di Fast Report?
by babypigs in Reporting more 17 years ago - ospek
by Alfando in OOT more 16 years ago - Parsing string
by tox2wow in Network, Files, I/O & System more 19 years ago - buka applikasi laen
by trimbil in Tip n Trik Pemrograman more 16 years ago - QReport...
by bayu in MySQL more 17 years ago - Problem Query di SQLITE
by kenjiro in Tip n Trik Pemrograman more 16 years ago - [STOP]netsend
by -BreWok- in Tip n Trik Pemrograman more 18 years ago - Akumulatif Saldo di fastReport
by fafenail in Form Enhancement & Graphical Controls more 19 years ago