Delphi创建临时文件的例子，希望对大家有所帮助，实现这个功能，下面的代码或许有帮助：　　procedureTFrmTemp.BtnCreateTempClick(Sender:TObject);　　var　　Temp:array[0..255]ofchar;　　begin　　ifsave;　　GetTempFileName(pchar(dir),'TEXT',0,Temp);　　TempFile:=Temp;　　EDTemp.Text:=TempFile;　　mmTemp.Lines.LoadFromFile(TempFile);　　end;