Klasör ve içinde txt dosyası oluşturmak.

[PROGRAMADOR]

Kod: Tümünü seç

Function KlasorOlustur(anaklasoryolu,olusacakklasoradi:widestring):boolean;
Begin
	Result:=True;
	SetCurrentDirectoryW(pwidechar(anaklasoryolu));
	  if not DirectoryExists(anaklasoryolu) then begin
   		  if not CreateDir(olusacakklasoradi) then begin
      		  	Result:=false;
     		  	exit;
    		 end;
  	  end;
End;

Procedure TXTDosyasiOlustur(klasoryolu,olusacakdosyaadi:widestring);
var
 tof:Textfile;
Begin
	Try
		SetCurrentDirectoryW(pwidechar(klasoryolu));
		assignfile(tof, olusacakdosyaadi);
		rewrite(tof);
		writeln(tof, Ansichar($ef)+ Ansichar ($bb)+ Ansichar ($bf); +'#'); //utf8 desteklesin
		closefile(tof);
	Except
	End;
End;

KlasorOlustur fonksiyonu ile önce klasörü oluşturursun. Daha sonra oluşturduğun klasörün yolunu TXTDosyasiOlustur prosedüründe kullanırsın. Dosya adında uzantısını ".txt" olarak yazarsın.

[PROGRAMADOR]

Bu arada "Ansichar($ef)+ Ansichar ($bb)+ Ansichar ($bf);" stringini txt dosyasının başına eklersen utf8 desteklenmiş olacaktır. Dolayısıyla txt dosyasından veri alırken ve dosyaya veri yazarken karakter problemin de olmamış olur.

Ayrıca hangi delphi sürümünü kullandığını bilmediğim için tüm delphi sürümleriyle uyumlu olacak şekilde kodu yazdım.

İyi çalışmalar.