Arsip: membaca karakter dalam array

more 7 years ago
diandewi
halo....mau tanya, gimana ya caranya membaca karakter dalam array di delphi. misal saya punya array
a:[1011001100]
gimana caranya membaca masing2 karakter dalam array tersebut?
saya punya source code vb kayak gini, kalo diconvert ke delphi jadinya kyk gmn ya?
mohon bantuannya
x(i, j) = CInt(Mid(penduduk(i), j + 1, 1))

more 7 years ago
hendrang67
@diandewi: halo....mau tanya, gimana ya caranya membaca karakter dalam array di delphi. misal saya punya array a:[1011001100] gimana caranya membaca masing2 karakter dalam array tersebut? saya punya source code vb kayak gini, kalo diconvert ke delphi jadinya kyk gmn ya? mohon bantuannya x(i, j) = CInt(Mid(penduduk(i), j + 1, 1))Misal a itu variabel string dengan value : a:='1011001100' untuk ambil masing2 karakter variable a: for i:=1 to Length(a) do x[i]:= a[i];

more 7 years ago
hendrang67
@diandewi: saya punya source code vb kayak gini, kalo diconvert ke delphi jadinya kyk gmn ya? mohon bantuannya x(i, j) = CInt(Mid(penduduk(i), j + 1, 1))x[i,j]:= IntToStr(MidStr(Penduduk,j+1,1)); // harus tambahkan StrUtils di Uses atau x[i,j]:= IntToStr(Penduduk[j+1]); // ini lebih sederhana karena string dianggap array dalam delphi

more 7 years ago
hendrang67
@hendrang67:sorry salah function, yang benar Cint di VB, StrToInt x[i,j]:= StrtoInt(MidStr(Penduduk,j+1,1)); // harus tambahkan StrUtils di Uses atau x[i,j]:= StrtoInt(Penduduk[j+1]); // ini lebih sederhana karena string dianggap array dalam delphi@diandewi: saya punya source code vb kayak gini, kalo diconvert ke delphi jadinya kyk gmn ya? mohon bantuannya x(i, j) = CInt(Mid(penduduk(i), j + 1, 1))x[i,j]:= IntToStr(MidStr(Penduduk,j+1,1)); // harus tambahkan StrUtils di Uses atau x[i,j]:= IntToStr(Penduduk[j+1]); // ini lebih sederhana karena string dianggap array dalam delphi

more 7 years ago
diandewi
oke...makasi infonya....
kalo boleh ssaya mau nanya lg..
misalnya array "a" itu saya inputin satu per satu lewat TEdit, misal saya punya 10 array a yaitu a1-a10. trus saya inputin satu persatu nilainya lewat TEdit dimana satu array a ada 10 nilai jadi ada 10 TEdit. misal ada Tbutton "next" ketika saya klik next, array yang sudah saya inputkan td akan disimpan dalam file txt dengan nama a1, begitu seterusnya sampai a10 yang disimpan daam file yang sama, kira2 logikanya kyk gitu, sourcecodenya kayak gmn ya?
maaf saya banyak nanya, saya pemula di delphi

more 7 years ago
hendrang67
@diandewi: oke...makasi infonya.... kalo boleh ssaya mau nanya lg.. misalnya array "a" itu saya inputin satu per satu lewat TEdit, misal saya punya 10 array a yaitu a1-a10. trus saya inputin satu persatu nilainya lewat TEdit dimana satu array a ada 10 nilai jadi ada 10 TEdit. misal ada Tbutton "next" ketika saya klik next, array yang sudah saya inputkan td akan disimpan dalam file txt dengan nama a1, begitu seterusnya sampai a10 yang disimpan daam file yang sama, kira2 logikanya kyk gitu, sourcecodenya kayak gmn ya? maaf saya banyak nanya, saya pemula di delphiKalau mau simpan nilai yang di-input di TEdit ke file TXT berarti tidak perlu lagi pakai Array, bisa langsung rekam langsung nilai TEdit ke txt File. var i: integer = 0; //Declare variabel I diluar procedure (public variabel) procedure TForm1.NextClick(Sender: TObject); var AFile: TextFile; NamaFile: String; begin if i < 10 then // hanya 10 x save begin i:= i + 1; NamaFile:= 'A'+IntToStr(i)+'.txt'; // A1,A2,A3...A10 AssignFile(AFile, 'c:'+NamaFile); // disimpan di root directory, nama directory bisa diganti ReWrite(AFile); WriteLN(AFile, Edit1.Text); WriteLN(AFile, Edit2.Text); WriteLN(AFile, Edit3.Text); WriteLN(AFile, Edit4.Text); WriteLN(AFile, Edit5.Text); WriteLN(AFile, Edit6.Text); WriteLN(AFile, Edit7.Text); WriteLN(AFile, Edit8.Text); WriteLN(AFile, Edit9.Text); WriteLN(AFile, Edit10.Text); CloseFile(AFile); end; end;

more 7 years ago
diandewi
gimana caranya saya ambil nilai a itu kemudian saya proses seperti kode dibawah?
x[i,j] := StrToInt(MidStr(A(disini saya harus tambahin apa?),j+1,1))

more 7 years ago
diandewi
trus kalo fungsi for next di vb artinya apa ya kalo di delphi
contohnya kyk gini:
For i = 0 To 35
For j = 0 To 12
x(i, j) = CInt(Mid(penduduk(i), j + 1, 1))
Next j
kelasinput(i) = CInt(txttrainpenduduk(i).Text)
Next i

more 7 years ago
ianhade
@diandewi: trus kalo fungsi for next di vb artinya apa ya kalo di delphi contohnya kyk gini: For i = 0 To 35 For j = 0 To 12 x(i, j) = CInt(Mid(penduduk(i), j + 1, 1)) Next j kelasinput(i) = CInt(txttrainpenduduk(i).Text) Next ifor next itu proses pengulangan, apa fungsi next? itu berguna untuk membatasi sampai mana statement yg di loop akan di kerjakan(blok), juga berfunsi untuk menaikan counter (variabel i atau j). Kalau di delphi bisa menggunakan begin end;. Kalau delphi seperti ini :
for i:=1 to 35 do
begin
for j:=0 to 12 so
begin
//isi program anda
end;
//isi program anda
end;
CMIIW
wah lg convert dr vb ke delphi yah :D
more 7 years ago
diandewi
owh gitu.....makasi
iya nih :)
kira2 kalo pertanyaan saya yang di atasnya bisa dibantu? yang gimana syntaxnya ngambil data "a" yang udah disimpan dalam file txt.. :D
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
- Mendapatkan Direktori/Path dari suatu aplikasi
- Tips: Lacak Variabel dan Indentifer di Lazarus
- Tips: Leak Viewer di Lazarus
- Tips: Garis Panduan di Form Designer
- Referensi Pemrograman Bahasa Pascal dari Tim Pembina TOKI
- Tips: Syncro-Edit in Lazarus
- Tips: Macro OfAll and auto generate variable in Lazarus
- Dasar-Dasar Pemrograman Web
- Yang Tidak Bisa Dilakukan Turbo Pascal #4
- Yang Tidak Bisa Dilakukan Turbo Pascal #3
Last Topic
- Tempat Latihan Posting
by LuriDarmawan in OOT 15 days ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 7 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 7 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 7 years ago - Buat Menu akses dengan Otorisasi
by heriy4nt0 in Tip n Trik Pemrograman more 7 years ago - isi data di dbgrid bisa Multiline
by wati in Tip n Trik Pemrograman more 7 years ago - Membuat No Nota Secara Otomatis
by halimanh in Hal umum tentang Pascal Indonesia more 7 years ago - [tanya] bagaimana load file di listbox tanpa full path name
by andrypein in Hal umum tentang Pascal Indonesia more 7 years ago - AQ3: Cannot Perform this operation an a closed dataset
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago - [ASK] : Input Database
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago
Random Topic
- Kopdar dan silahturahmi (III)
by yayaretina in OOT more 8 years ago - [Help] Listbox -> bikin 2 baris dalam satu item
by abichoy in Tip n Trik Pemrograman more 12 years ago - VK_Down
by belajaraja in Tip n Trik Pemrograman more 11 years ago - Random Table paradox
by Pontiac in Enginering more 13 years ago - Download E-Mail
by xerion in Tip n Trik Pemrograman more 13 years ago - MyIsam VS InnoDB
by reza_onclick in MySQL more 11 years ago - funtion insert data dengan array
by cyber2000 in Tip n Trik Pemrograman more 10 years ago - Beda BDE dan ADO
by hendrikwjy in MySQL more 14 years ago - Pilih Turbo Pascal/Delphi
by -BreWok- in OOT more 13 years ago - koneksi delphi dengan mysql
by buyungff in Hal umum tentang Pascal Indonesia more 12 years ago