如何创建一个文件 如何创建一个文件: 我的意思是,比如点一下button就可以创建一个文件。html,或的txt,或是rtf,doc等? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Lines.SaveToFile('C:\1.txt');end;end. 只要有相关的SaveToFile 或者是SaveToFileStream(这个是文件流)的方法就可以了..如果是TXT的话..\最简单的就是..申明一个TEXTFILE类型的变量var MyTextFile:TextFile;然后对这个文件进行AssignFile的操做begin AssignFile(MyTextFile,'yourFileName'); Resert(MyTextFile); try //你想干什么就干什么.. finally closeFile(MyTextFile); //关闭文件end;end; 请教!!问一个窗体启动还有隐藏!!! 50分看程序找错误 在PowerDesigner9.5做的ER图,如何导入ACCESS数据库中? (新手)DBGrid显示问题 用Treeview如何连接数据库? 我毕业设计已经搞定,哪位有闲心的朋友,进来聊两句吧!题目:关于爱情! ADOTABLE的选择特定字段问题 打印时怎样使memo中的文字换行? TIdMessage控件中为何属性DeleteTempFiles不能用,大家有过这样的经历吗?帮帮忙! 请问什么是 纯数据库 怎么删除磁盘上的文件? 怎样在子线程中实现Socket的数据接收
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('C:\1.txt');
end;end.
就可以了..如果是TXT的话..\最简单的就是..
申明一个TEXTFILE类型的变量
var MyTextFile:TextFile;
然后对这个文件进行AssignFile的操做
begin
AssignFile(MyTextFile,'yourFileName');
Resert(MyTextFile);
try
//你想干什么就干什么..
finally
closeFile(MyTextFile); //关闭文件
end;
end;