高分求救：delphi 中如何生存临时文件

Question

delphi 中如何生存临时文件。请给出实例

Answer 1

unit Unit1;interfaceuses
  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.

Answer 2

var 
   loc_ini:Tinifiles;
begin
   getdir(path,0);
   loc_ini:=inifile.create(path+'\*.ini');
   try
     '''''
   finally
     loc_ini.free;
   end;
end;

Answer 3

ini可以在程序读写的时候产生，也可以算成临时文件

Answer 4

倒！临时文件跟普通文件有分别吗？
你程序运行完了就删除，就是临时文件；不删除，就不是临时文件
扩展名是tmp，就是临时文件；不是tmp（或其它惯用的临时文件扩展名）就不是临时文件是不是临时文件是人定，用法跟普通文件一样

Answer 5

我现在是想通过delphi 生存一个临时的HTML格式的文件

Answer 6

我现在是在生存HTML文件后，向里面写数据出现乱码，该怎么解决？
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;

Answer 7

getTempDirectory用来获取windows临时文件夹。
getTempFilename,getTempFilename32用来获取临时文件名这两个函数很好用，查查帮助就行了。

Answer 8

你可以用ini 文件，也可以用bachmove 来生成一个相应的文件。

Answer 9

我试了你的代码，确实乱麻，我也不知道为什么，不过为什么一定要用文件流？
这有段代码，你看一下，应该可以，我试过了
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;