Arsip: Konversi Record ke String dan Sebaliknya


by agusmade in Articles more 13 years ago 5722
Trik sederhana ini sangat berguna untuk mengkonversi type Record yang kita buat ke string dan sebaliknya (seperti serialize dan unserialize pada PHP). sayangnya sampai detik ini saya belum berhasil menserialize sebuah class.
Trik ini sangat berguna untuk menyimpan sebuah data dengan record type buatan kita ke dalam database, atau untuk dikirim via IP saat kita membuat aplikasi jaringan. berikut adalah source programnya.

function TForm1.rec2string(data:TMyType):string;
var sstr:tstringstream;
    s:string;
begin
 sstr:=TStringStream.Create(s);
 sstr.Write(data,sizeof(data));
 result:=sstr.DataString;
 sstr.free;
end;
function TForm1.string2rec(s:string):TMyType;
var sstr:tstringstream;
begin
 sstr:=TStringStream.Create(s);
 sstr.Read(result,sstr.Size);
 sstr.free;
end;
// ==..==..== contoh penggunaan ==..==..==
...
type
 TMyType=record
  a:string[20];
  b:integer;
  c:boolean;
 end;
...
//fungsi2 diatas disisipkan di sini. 
...
var s:string;
    ax,bx:TMyType;
begin
 with ax do
  begin
   a := \\'test...\\';
   b := 20;
   c := true;
  end;
 s:=rec2string(ax);
 bx:=string2rec(ax);
 form1.caption:=bx.a;
end;
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com