Arsip: Edit, combo Box dan Array

 
user image
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.... :)
user image
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 kembangkan
user image
more 18 years ago

priki

Solved... Thx ya buat Mas ImanD terimakasih banyak :lol:
user image
more 18 years ago

ImanD

yuhuuu
more ...
  • Pages:
  • 1
Share to

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

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com