Arsip: bagaimana cara menyimpan ekstensi kompresi data
more 15 years ago
moi-moi
terima kasih atas masukannya...
sebenarnya aq sdang membuat tugas akhir.dan tinggal menunggu waktu sidang.tapi dikarenakan dosen nya banyak yang di mau oleh karena itu aq sedang menyelesaikannya.dan hanya diberi waktu yang singkat...
jadi mohon bantuan kakak-kakak...
more 15 years ago
moi-moi
gimana caranya masukin string ke array char, truz bisa dikembalikan lagi..
s:string
L:array of char
s:=aku; di buat terpisah ke array L
jadi L[1]=a,L[2]=k,L[3]=u
kemudian ada button yang bisa ngembaliin jadi s:=aku lagi
dimana aku tadi menjadi string lagi.
more 15 years ago
DelphiExpert
type
TArrayOfChar = array of Char;
function StrToArray(const S: string): TArrayOfChar;
var I: Integer;
begin
SetLength(Result, Length(S));
for I := 0 to Length(S) - 1 do
Result[I] := S[I+1];
// atau kalo mau simple gunakan MOVE, pilih salah satu
SetLength(Result, Length(S));
Move(S[1], Result[0], Length(S));
end;
function ArrayToStr(const A: TArrayOfChar): string;
var I: Integer;
begin
SetLength(Result, Length(A));
for I := 0 to Length(A) - 1 do
Result[I+1] := A[I];
// atau kalo mau simple gunakan MOVE, pilih salah satu
SetLength(Result, Length(A));
Move(A[0], Result[1], Length(A));
end;
more 15 years ago
moi-moi
horeeee....
berhasil-berhasil,,,,,
makacih semua,,,,
akhirnya aq berhasil...
makacih pebbie,,,
makacih mas kofa,,,
makacih xerion,,,,
makacih DelphiExpert(Mr.Green).......
makacih atas semua masukan-masukannya...
salam kenal dech buat semua.....
@putri_
more 15 years ago
DelphiExpert
@moi-moi: salam kenal dech buat semua..... @putri_@putri nomer hape-nya berapa :mrgreen:
more 15 years ago
mas_kofa
@herux: Loh ... ingat anak istri !!bukankah kita punya hak buat poligami...
more 15 years ago
DelphiExpert
@mas_kofa: bukankah kita punya hak buat poligami...poligami itu apa ya mas kofa? saya koq [u:1da4678a0a]tidak[/u:1da4678a0a] tahu. saya kan cuman nanya nomer hape @putri, siapa tahu sudah ada di phone-book saya, kalau belum ada ya tinggal memasukkan saja-kan.
Loh ... ingat anak istri !!saya koq jadi bingung ya :mrgreen: tolong beri pejelasan ya @putri :lol: nb: halah
more 15 years ago
betamax
hahahaha.... mungkin gini om DE :
Case istri.yang.baik of :
1 : Kriteria := 'Cantik Perhatian';
2 : Kriteria := 'Pengertian dan sabar';
3 : Kriteria := 'Pintar Masak & Mandiri';
4 : Kriteria := 'Taat Beribadah & Penurut ';
5 : Kriteria := 'Hot... & Hottttss...';
6 : Kriteria := 'Semuanya Jangan saling kenal satu sama lain';
end;
ato ada masukan lain ???
:)more ...
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 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 4 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
- Bantuin saya dong...!
by Ardan in Hal umum tentang Pascal Indonesia more 17 years ago - SQL Server does not exist or access denied
by flamade in Hal umum tentang Pascal Indonesia more 16 years ago - enkripsi
by nelu in Delphi.NET more 15 years ago - Nanya install zeos
by lebon in MySQL more 17 years ago - error!!!
by marvel in Enginering more 18 years ago - Nanya SQL...
by reminder2k1 in MySQL more 15 years ago - Simpan field image pada dbase
by donna in Hal umum tentang Pascal Indonesia more 17 years ago - konversi database dari mssql ke mysql
by rofans in MySQL more 15 years ago - Dimana ya bisa belajar tt struktur file ?
by jancky in Tip n Trik Pemrograman more 16 years ago - Mengambil Huruf Arab Dan mengermbalikannya Ke Edit Text..??
by juan81 in Hal umum tentang Pascal Indonesia more 15 years ago