Delphi 字符数组存入文件

  TDMSRequestBuffer=object
    Head:TDMSHead;
    Data:array[0..2047] of char;
    DataSize:Integer;
    procedure Init(Sys:TDMSSysType;Svr:TDMSSvrType);
    procedure EncodeRequest;
    function Size:integer;
  end;

 

目的，保存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;

调用方法

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