如何把一组字符型数据以二进制的形式存入一个txt文件中？

首先要转换成二进制再存入txt文件中,下面是两个转换的函数。
//十进制转换为二进制字符串  
function inttoBin(i: integer): string;
begin
 while i <>0 do
 begin          //i mod 2取模,再使用format格式化
   result:=Format('%d'+result,[i mod 2]);
   i:=i div 2
 end
end;

//数据(S)-->>二进制(S)
//任何数据都是以二进制形式存储的！
function conertde(s:string):string;
var
 i:integer;
begin
 for i:=1 to length(s) do
   result:=result+inttohex(ord(s[i]),2);
end;