delphi菜鸟的求助!请大虾们指点! 任何文件在传输的过程中都是01这两个数字的组合,如何把文件对应的这01组合保存为一个文本文件?请大虾,老鸟,大侠们指点一下,不胜感谢. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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;不明白你说什么? 上面只是个保存文件的例子(和你那对不上号).自己想做出什么样的 自己看着办吧!!! 如何用IHTML接口取得鼠标在webbrowser上移动时的坐标 在工程中引用 uCnFastStream 单元,指定是那个位置引用?? Forms1:=nil 变量表示 谁用过installshield8.0,高分给!!!! 心情不好,想散分。 有关条形码的问题 高分求一日期相减算法!!!在线等候 在paradox数据库中时间类型的缺省值怎么写呢?应是什么格式! 也请关注:特别是伴水老师要帮我看一下这两个贴子的问题??????? 哪位大虾有VCL层次结构的图表? 简单问题,字符截取 控件数组的问题????????????????????????
...
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;不明白你说什么? 上面只是个保存文件的例子(和你那对不上号).
自己想做出什么样的 自己看着办吧!!!