Arsip: membaca karakter dalam array

more 11 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 11 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 11 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 11 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 11 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 11 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 11 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 11 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 11 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 11 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
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Tanya ebook tentan Indy
by purnomo2007 in Multimedia & Graphic Enhancement more 12 years ago - Mengatur Print nota dan continous form dengan LX300/800
by fakhrudin in Hal umum tentang Pascal Indonesia more 14 years ago - extpascal controls
by simba in Web Programming more 13 years ago - Error operasi pemmbagian (/)
by fat_279 in Hal umum tentang Pascal Indonesia more 14 years ago - Tanya Crystal Report ...
by jagur in Reporting more 16 years ago - Popup Menu ??
by Grandong in Tip n Trik Pemrograman more 16 years ago - Menampilkan data terakhir
by kepiss in Lain-lain more 12 years ago - Sidik Jari
by reminder2k1 in Reporting more 16 years ago - Yang Pingin Source, masuk sini....
by eksant in OOT more 16 years ago - why it seems so hard to search, read, and try?
by simba in OOT more 16 years ago