Kullanıcı tanımlı dosya adı verme

[rapsodim]

Merhaba arkadaşlar benim sorunum txt dosyasına sabit isim verebilmem.opendialog kullanarak değişik isim verebilmeyi txt için yapamadım.
AssignFile(TextDosya,'C:\deneme.TXT');
ReWrite(TextDosya);

[gkimirti]

Kod: Tümünü seç

  if OpenDialog1.Execute then
  begin
    AssignFile(TextDosya, OpenDialog1.FileName);
    ReWrite(TextDosya);
  end;

[rapsodim]

dosya türü boş geliyor.sadece *.txt olarak nasıl yapabilirim.ayrıca opendialog açılınca kaydet değilde aç ikonu bulunuyor.bunu kaydet nasıl yapabilirim.

[mussimsek]

doğru foruma taşındı Bakınız, okuyuz, uyunuz : Forum Kuralları.

Kolay gelsin.

[rapsodim]

OpenDialog2.Filter := 'Text Dosyaları (*.txt)|*.txt';
if OpenDialog2.Execute then
begin
AssignFile(TextDosya, OpenDialog2.FileName);
ReWrite(TextDosya);
end;

şeklinde düzenledim.fakat dosya uzantısını almadan kayıt yapıyor

[gkimirti]

o zaman

Kod: Tümünü seç

 AssignFile(TextDosya, OpenDialog2.FileName+'.txt'); 

[rapsodim]

ilginiz için tşkr ederim.peki dialog kutusundaki aç yazısını nasıl kaydet yapabilirim.dialog açılıyor kayıt yapacagım dosya adını yazdıktan sonra ac yerine kaydet yazmadını nasıl sağlarım şimdiden teşekkür ediyorum.

[mussimsek]

@rapsodim, istersen ne yapmak istediğini lafla izah et. Daha etkin yöntemler önerilebilir.

Bence senin durumunda TSaveDialog kullanmak en güzeli. DefaultExt kısmını da *.txt verirsen, uzantıyı otomatik .txt yapar.

Kolay gelsin.

[rapsodim]

her iki yöntem ile oluyor ilginize tşkr ederim.saygılar sunarım....