Arsip: Konversi Record ke String dan Sebaliknya


by agusmade in Articles more 15 years ago 5993
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