Arsip: membuat if statement untuk array
more 16 years ago
fenan
Dear senior2,
saya ketemu mentok lagi nih. :)
Saya ingin membuat if statement untuk membandingkan apakah suatu variable string ada dalam variable array. Yg saya maksud adalah seperti ini (dengan code yg salah):
var c:string;
const d:array of char ='0123456789';
begin
if c=d then
...
end;
Kurang lebih seperti itu. Bagaimana saya dapat membuat statement untuk mencari apakah String C sama dengan salah satu isi dari Array D ??
Mohon bantuannya. Terima kasih.
more 16 years ago
mas_kofa
const d:array of char ='0123456789';napa mesti pake array of char.... napa gak pake string aja....
Kurang lebih seperti itu. Bagaimana saya dapat membuat statement untuk mencari apakah String C sama dengan salah satu isi dari Array D ??bisa pake looping.......
for i := 0 to 9 do
begin
if s = d[i] then
begin
IsAda := true;
exit;
end;
end;
kalo d berupa string bisa langsung pake pos
IsAda := pos(c, d) > 0;
more 16 years ago
fenan
@mas_kofa, thank you lagi untuk bantuannya.
Saya mau nanya lagi nih :), jadi kalo saya mau langsung bikin statement seperti ini bisa ngga? :
d:array of string;
if pos(d,c)>0 then ...
Apakah bisa?
more 16 years ago
heerrr
Semestinya tidak bisa, deklarasi asal fungsi pos kan :
function Pos(Substr: string; S: string): Integer;
Jadi parameter pertama dan parameter kedua harus berupa type string.
Coba seperti ini :
for i:=0 to 9 do
if pos(d[i],c)>0 then ...
more 16 years ago
pebbie
bisa, harus di-cast dulu secara manual atau klo nggak salah compiler delphi akan diam-diam melakukan casting ke string dengan 1 karakter.
more ...
- Pages:
- 1
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 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
- mo tanya fungsi return
by NggotMan in Hal umum tentang Pascal Indonesia more 17 years ago - Nilai Kumulatif
by mas_kofa in MySQL more 17 years ago - tips : Bikin AutoNumber buat nomor faktur
by tox2wow in Enginering more 19 years ago - [HELP IMPORTANT] REPORT BUAT FIREBIRD (ZEOS)
by andrypein in FireBird more 13 years ago - jumlah komponen maksimal dalam sebuah project
by d4mnf1y32 in Hal umum tentang Pascal Indonesia more 12 years ago - tanya soal quick report
by Computer(Insane) in Tip n Trik Pemrograman more 17 years ago - Port Paralel Dengan Perangkat Luar
by umarbakri in Hal umum tentang Pascal Indonesia more 17 years ago - Link stress? deadline kelewat? bos ngamuk? pc meledak?
by yayaretina in Moderator Only more 15 years ago - open dan ngerun file shortcut codingnya gmn ya?
by adidot in Tip n Trik Pemrograman more 16 years ago - Happy Ramadhan
by LuriDarmawan in OOT more 19 years ago