Arsip: bagaimana cara menyimpan ekstensi kompresi data

 
user image
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...
user image
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.
user image
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;
user image
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_
user image
more 15 years ago

moi-moi

oh iya kalau aq ada kesulitan lagi mohon bantuan nya yach... hehehe......
user image
more 15 years ago

DelphiExpert

@moi-moi: salam kenal dech buat semua..... @putri_
@putri nomer hape-nya berapa :mrgreen:
user image
more 15 years ago

herux

Loh ... ingat anak istri !!
user image
more 15 years ago

mas_kofa

@herux: Loh ... ingat anak istri !!
bukankah kita punya hak buat poligami...
user image
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
user image
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 ...
Share to

Random Topic

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