delphi菜鸟的求助！请大虾们指点！

Question

任何文件在传输的过程中都是０１这两个数字的组合，如何把文件对应的这０１组合保存为一个文本文件？请大虾，老鸟，大侠们指点一下，不胜感谢．

Answer 1

type 
...
ClickList: TStrings;
...
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ClickList.Add(Format('Click at (%d, %d)', [X, Y]));// 用来测试保存内容的一个例子,主要是记录鼠标的移动坐标.
  ClickList.Add(timetostr(time));
end;..
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var  sj : String;
begin
   sj := formatdatetime('yyyy"年"m"月"d"日"'+'hh"时"mm"分"ss"秒"'+'ms',Now);//保存的LOG文件名
   ClickList.SaveToFile(ChangeFileExt(sj, '.LOG'));
end;不明白你说什么?  上面只是个保存文件的例子(和你那对不上号).
自己想做出什么样的 自己看着办吧!!!