text dosyasıyla ilgili

[mcrea]

Merhaba,

Delphide yeniyim. Ben diskte istedigim yerde bir text dosyası ve klasor felan olusturabilirmiyim? Evet ise nasıl olusturabilirim?

Bir de memo daki bilgileri text dosyasına kaydederken her defasında text dosyasındaki bilgiler siliniyor. Bunu nasıl engellerim yani yeni bilgileri nasıl textdeki onceki bilgilerin uzerine eklerim..

Saygılar...
Alperen

[Murat DİCLE]

Merhaba,

Saklerken bunu kullanıyorsun.

Kod: Tümünü seç

Memo1.Items.SaveToFile('metin.txt'); 

Form açıldığında doğal olarak Memo1 boş geliyor. Sen ilk önce kimse bişi yazmasına izin vermeden önce

Kod: Tümünü seç

Memo1.Items.LoadToFile('metin.txt'); 

yapmalısın.

Alsana minik bir notepad programı.

İşte bu kadar.

[fduman]

..yazmasına izin vermeden önce

Kod: Tümünü seç

Memo1.Items.LoadToFile('metin.txt'); 

yapmalısın.

Kod: Tümünü seç

Memo1.Items.LoadFromFile('metin.txt'); 

olması gerekir.

[Murat DİCLE]

Aslında evet yanlış yazmışım, ve hatta FULL yanlış yazmışım ( copy paste kurbanıyım ) TMEMO için şöyle olmalıydı..

Kod: Tümünü seç

Memo1.Lines.LoadFromFile('metin.txt'); 
Memo1.Lines.SaveToFile('metin.txt'); 

Saygılar..

[rsimsek]

Sanırım sorunun cevabı net olmamış.

Merhaba,

Delphide yeniyim. Ben diskte istedigim yerde bir text dosyası ve klasor felan olusturabilirmiyim? Evet ise nasıl olusturabilirim?

Evet oluşturabilirsiniz. Klasör oluşturmak için MkDir('c:\klasor_adi'); Daha detaylı bilgi için F1 e basınız.

Bir de memo daki bilgileri text dosyasına kaydederken her defasında text dosyasındaki bilgiler siliniyor. Bunu nasıl engellerim yani yeni bilgileri nasıl textdeki onceki bilgilerin uzerine eklerim..

Bunun cevabı verilmiş. Öncelikle bu işi nasıl yaptığınızı ve ihtiyacınızı tam yazmamışsınız. Tahmin üzerine yazmak gerekirse, programınızı çalıştırdığınızda yada ilgili formu açtığınızda (OnShow) öncelikle text dosyasının olup olmadığını kontrol edip mevcut ise Memo ya yüklemelisiniz.

Kod: Tümünü seç

if FileExists('metin.txt') then
  Memo1.Lines.LoadFromFile('metin.txt');

Daha sonra da yaptığınız değişikliklerle tekrar kaydet tuşu ile kaydetmelisiniz..

Kod: Tümünü seç

Memo1.Lines.SaveToFile('metin.txt');

[mcrea]

aslinda sormak istedigim sey bu degil..

Ben formu her calıstırısımda text dosyama birseyler kaydettiğimde text dosyasındaki önceki bütün veriler kayboluyor. Ben onceki verilere bir sey olmadan ve de memo gibi bir objeye .loadfromfile('C:\sdgdg.txt'); ile oncekileri cağırmadan nasıl kaydedebilirim?

Bir baska sormak istedigim text dosyaları olustururken mkdir gibi bir komutun olup olmadığı?

Şimdiden teşekkür ederim yardımlarınız için...

İyi günler...
Alperen...

[lazio]

Kod: Tümünü seç

var
  fFile : TextFile;
  sStr : String;
begin
  AssignFile(fFile, 'c:\deneme.txt');
  if not FileExists('c:\deneme.txt') then
  begin
    Rewrite(fFile); // Dosya varsa üstüne yazarak aç
    CloseFile(fFile);
  end;
  Append(fFile);  // Dosyayı Yazmak için aç (Dosya mevcut olmalıdır)
  WriteLn(fFile, 'bişeyler...');
  CloseFile(fFile);
  Reset(fFile); //   Dosyayı Okumak için aç (Dosya mevcut olmalıdır)
  ReadLn(fFile, sStr);
  CloseFile(fFile);
  ShowMessage(sStr);

[lazio]

şimdi fark ettimde aynı soruyu iki kez sormuşsunuz @mcrea

Lütfen forum kurallarını okuyup uyalım