با سلام . چطور مي شه يك فايل با پسوند مورد نظر . تو درايو مورد نظر با استفاده از كد CreateFile ساخت . با تشكر .
Printable View
با سلام . چطور مي شه يك فايل با پسوند مورد نظر . تو درايو مورد نظر با استفاده از كد CreateFile ساخت . با تشكر .
دوست عزیز برای اینکار شما می توانید به این صورت عمل نمائیدنقل قول:
کد:procedure ReadAndWrite_TestFile;
var
f:TextFile;
Cnt_String,path :string;
begin
Path := ''; // ميتونيد اينجا مسير رو تعريف کنيد
Cnt_String:='IN NEVESHTEH DAR FILE NEVESHTEH SHAVAD';
if FileExists(Path+'TEST.TXT') then // آيا فايل در مسير جاري برنامه وجود دارد
begin
AssignFile(f,Path+'TEST.TXT'); // نام فايلي که ميخواهيد ايجاد نمائيد
Reset(f);
Readln(f,Cnt_String); // <<------ خواندن اطلاعات به صورت يک رشته
CloseFile(f); // <<---------- بستن فايل
end
else
begin // در صورتيکه فايل در مسير جاري برنامه وجود ندارد
AssignFile(f,Path+'TEST.TXT');
Rewrite(f); // فايل مورد نظر در مسير جاري ايجاد ميشود
Write(f,Cnt_String); // نوشته مورد نظر در فايل نوشته ميشود
CloseFile(f); // فايل بسته ميشود
end;
ShowMessage(Cnt_String);
end;
با تشكر
ولي اين فقط براي فايل هاي TXT هست...لطفا راه ايجاد يه فايل با پسوند دلخواه رو بدين
در ضمن دستورات copy.delete.rename رو هم روي يك فايل توضيح بدين
بعيد ميدومنم . چون من با پسوند هاي مختلف فايل ساختم .نقل قول: