Question

delphi的文件操作，比如创建一个文件是怎样操作的（只创建一个空文件）？

Answer 1

var
filename:string;
FHandle:integer;
begin
filename:='e:\database.txt';
if(not fileexists(filename))then
begin
FHandle:=filecreate(filename);
end;