Delphi Character array deposit file

Tdmsrequestbuffer=object
Head:tdmshead;
DATA:ARRAY[0..2047] of Char;
Datasize:integer;
Procedure Init (Sys:tdmssystype; Svr:tdmssvrtype);
Procedure Encoderequest;
function Size:integer;
End

Purpose, Save the data

function Savedatatofile (afilename:string; Adata:pointer; Alen:integer): Boolean;
Var
Stream:tmemorystream;
Begin
Result: = False;
Stream: = Tmemorystream.create;
Try
Try
Stream. Write (Adata^,alen);
Stream. SaveToFile (Afilename);
Result: = True;
Except
End
Finally
Stream. Free;
End
End

Calling methods

Savedatatofile (' E:\1.txt ', @RB. Data[0],rb. DataSize);

Delphi Character array deposit file