delphi 中如何生存临时文件。请给出实例
解决方案 »
- ClientDataSet查询提示'0.0' is not a valid timestamp
- DELPHI中的删除问题~~~如果正确可以加分
- 心情不好,问个无聊的问题!
- edit1我要让他不可编辑,但可以选择里面的文字,最简单的方法是什么
- 同一个Project,相同的源码,根据客户要求要有不相似的界面Form,怎么办?
- delphi有什么工具可以建立数据库
- 如何读取注册表中某目录下的所有键值?
- 新手提问:如何计算任意两个日期之间的天数
- 句柄是什么啊?
- delphi 与 oracle
- 在delphi中,怎样编程,在程序中实现显示格式为*.pdf的图象。
- 使用SocketConnection作为服务和客户的连接出问题了?
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,IniFiles;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Label1: TLabel;
Label2: TLabel;
Edit5: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
Var
ini: TIniFile;
begin
ini:=TiniFile.create('c:\zzzz.ini');
ini.WriteString('zz','name',edit1.Text);
ini.WriteString('zz','age',edit2.Text);
ini.writestring('xx','name',edit3.text);
ini.WriteString('xx','age',edit4.text);
ini.free;
showmessage('ok');
end;procedure TForm1.FormCreate(Sender: TObject);
Var
ini:TiniFile;
c:array of char;
begin
ini:=Tinifile.Create('c:\zzzz.ini');
edit1.text:=ini.readstring('zz','name','zj') ;
edit2.text:=ini.readstring('xx','name','xp') ;
edit3.text:=ini.readstring('zz','age','26') ;
edit4.text:=ini.readstring('xx','age','24');
setlength(c,256);end;procedure TForm1.Button2Click(Sender: TObject);
var
f:textfile;
begin
if SaveDialog1.Execute then
begin
assignfile(f,SaveDialog1.filename);
rewrite(f);
writeln(f,Label1.caption,edit1.text);
writeln(f,Label2.caption,edit2.text);
closefile(f);
end;end;end.
loc_ini:Tinifiles;
begin
getdir(path,0);
loc_ini:=inifile.create(path+'\*.ini');
try
'''''
finally
loc_ini.free;
end;
end;
你程序运行完了就删除,就是临时文件;不删除,就不是临时文件
扩展名是tmp,就是临时文件;不是tmp(或其它惯用的临时文件扩展名)就不是临时文件是不是临时文件是人定,用法跟普通文件一样
procedure TForm1.Button1Click(Sender: TObject);
var
FileS:TfileStream;
str1:String;
begin
str1:='qqqqqqqqqq';
FileS:= TfileStream.Create ('D:\MyFile.html',fmCreate);
FileS.write(str1,8);
end;
getTempFilename,getTempFilename32用来获取临时文件名这两个函数很好用,查查帮助就行了。
这有段代码,你看一下,应该可以,我试过了
procedure TForm1.Button1Click(Sender: TObject);
var
FileS:textfile;
str1,filename:String;
begin
Filename:=ExtractFilePath(Paramstr(0))+'MyFile.html';
str1:='qqqqqqqqqq';
assignfile(files,filename);
rewrite(files);
writeln(files,str1);
closefile(files);end;